cgi-dev

Repository that serves as my CGI "scratchpad" to try things out.
git clone git://git.samirparikh.com/cgi-dev
Log | Files | Refs | README

welcome.cgi (891B) - raw

      1 #!/usr/bin/perl -wT
      2 
      3 use strict;
      4 
      5 my $time        = localtime;
      6 my $remote_id   = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR};
      7 my $admin_email = $ENV{SERVER_ADMIN};
      8 
      9 print "Content-type: text/html\n\n";
     10 
     11 print <<END_OF_PAGE;
     12 <HTML>
     13 <HEAD>
     14   <TITLE>Welcome to Mike's Mechanics Database</TITLE>
     15 </HEAD>
     16 
     17 <BODY BGCOLOR="#ffffff">
     18   <IMG SRC="../www/html/mm.png" ALT="Mike's Mechanics">
     19   <P>Welcome from $remote_id! What will you find here? You'll
     20     find a list of mechanics from around the country and the type of
     21     service to expect -- based on user input and suggestions.</P>
     22   <P>What are you waiting for? Click <A HREF="/cgi/list.cgi">here</A>
     23     to continue.</P>
     24   <HR>
     25   <P>The current time on this server is: $time.</P>
     26   <P>If you find any problems with this site or have any suggestions,
     27     please email <A HREF="mailto:$admin_email">$admin_email</A>.</P>
     28 </BODY>
     29 </HTML>
     30 END_OF_PAGE