First versions.

davorg · Dec 24, 2015 · a87ddee · a87ddee
commit a87ddee
Show file tree

Hide file tree

Showing 10 changed files with 198 additions and 0 deletions.
diff --git a/cgi1.cgi b/cgi1.cgi
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print "Content-type: text/plain\n\n";
+print 'Hello world';
diff --git a/cgi2.cgi b/cgi2.cgi
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+print "Content-type: text/plain\n\n";
+my $now = localtime;
+print "The time is $now";
diff --git a/cgi3.cgi b/cgi3.cgi
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print "Content-type: text/html\n\n";
+my $now = localtime;
+
+print <<END_HTML;
+<html>
+  <head>
+    <title>Time</title>
+  </head>
+  <body>
+    <h1>Time</h1>
+    <p>The time is $now</p>
+  </body>
+</html>
+END_HTML
diff --git a/cgi4.cgi b/cgi4.cgi
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -wT
+use strict;
+use CGI ':standard';
+
+print header;
+my $now = localtime;
+
+print start_html(-title=>'Time'),
+h1('Time'),
+p("The time is $now"),
+end_html;
diff --git a/cgi5.cgi b/cgi5.cgi
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use CGI ':standard';
+
+my $name = param('name');
+my $age = param('age');
+my $gender = param('gender');
+my @hobbies = param('hobby');
+
+my $list;
+
+if (@hobbies) {
+  $list = join ', ', @hobbies;
+} else {
+  $list = 'None';
+}
+
+print header,
+      start_html(-title=>$name),
+      h1("Welcome $name"),
+      p('Here are your details:'),
+      table(Tr(td('Name:'),
+               td($name)),
+            Tr(td('Age:'),
+               td($age)),
+            Tr(td('Gender:'),
+               td($gender)),
+            Tr(td('Hobbies:'),
+               td($list))),
+      end_html;
diff --git a/psgi1.cgi b/psgi1.cgi
@@ -0,0 +1,8 @@
+#!/usr/bin/plackup
+
+use strict;
+use warnings;
+
+my $app = sub {
+  return [ 200, [ 'Content-type' => 'text/plain' ], [ 'Hello world' ] ];
+};
diff --git a/psgi2.cgi b/psgi2.cgi
@@ -0,0 +1,14 @@
+#!/usr/bin/plackup
+
+use strict;
+use warnings;
+
+my $app = sub {
+  my $now = localtime;
+
+  return [
+    200,
+    [ 'Content-type' => 'text/plain' ],
+    [ "The time is $now" ]
+  ];
+};
diff --git a/psgi3.cgi b/psgi3.cgi
@@ -0,0 +1,22 @@
+#!/usr/bin/plackup
+
+use strict;
+use warnings;
+
+my $app = sub {
+  my $now = localtime;
+
+  return [
+    200,
+    [ 'Content-type' => 'text/html' ],
+    [ "<html>
+  <head>
+    <title>Time</title>
+  </head>
+  <body>
+    <h1>Time</h1>
+    <p>The time is $now</p>
+  </body>
+</html>" ] ];
+};
+
diff --git a/psgi4.cgi b/psgi4.cgi
@@ -0,0 +1,26 @@
+#!/usr/bin/plackup
+
+use strict;
+use warnings;
+
+use HTML::Tiny;
+
+my $app = sub {
+  my $now = localtime;
+  my $title = 'Time';
+  my $h = HTML::Tiny->new;
+  my $body = $h->html([
+    $h->head( $h->title($title) ),
+    $h->body([
+      $h->h1($title),
+      $h->p("The time is $now"),
+    ]),
+  ]);
+
+  return [
+    200,
+    [ 'Content-type' => 'text/html' ],
+    [ $body ],
+  ];
+};
+
diff --git a/psgi5.cgi b/psgi5.cgi
@@ -0,0 +1,51 @@
+#!/usr/bin/plackup
+
+use strict;
+use warnings;
+
+use Plack::Request;
+use HTML::Tiny;
+
+my $app = sub {
+  my $req = Plack::Request->new(shift);
+
+  my $name    = $req->parameters->{name};
+  my $age     = $req->parameters->{age};
+  my $gender  = $req->parameters->{gender};
+  my @hobbies = $req->parameters->get_all('hobby');
+
+  my $list;
+
+  if (@hobbies) {
+    $list = join ', ', @hobbies;
+  } else {
+    $list = 'None';
+  }
+
+  my $h = HTML::Tiny->new;
+  my $body = $h->html([
+    $h->head($h->title($name)),
+    $h->body([
+      $h->h1("Welcome $name"),
+      $h->p('Here are your details:'),
+      $h->table([
+        $h->tr([
+          $h->td('Name:'),
+          $h->td($name),
+        ], [
+          $h->td('Age:'),
+          $h->td($age),
+        ], [
+          $h->td('Gender:'),
+          $h->td($gender),
+        ], [
+          $h->td('Hobbies:'),
+          $h->td($list),
+        ]),
+      ]),
+    ]),
+  ]);
+
+  return [ 200, [ 'Content-type' => 'text/html' ], [ $body ] ];
+};
+