'lo

Andrew Wilson andrew at rivendale.net
Mon Aug 27 10:04:47 CDT 2001


On Mon, Aug 27, 2001 at 02:12:38PM +0100, Andrew Wilson wrote:
> #!/usr/bin/perl -w
> ##################
> 
> use strict;
> 
>   print <<END;
> Content-Type: text/html <html>
> <head><title>Photos</title></head>
> <body bgcolor=#FFFFFF>
> <table>
>   <tr>
>     <td bgcolor=#EEEEEE>
>       <font face="Arial, Helvetica">
>       <a href="../">../</a>
>     </td>
>     <td>
>       <font face="Arial, Helvetica">Previous Dir
>     </td>
>   </tr>
> END
> 
> foreach my $file (<*>) {
>   next if $file =~ /~/;
>   next if $file =~ m#.cgi$#;
>   my $src = ($file =~ m#.jpg$#) ? "image2" : "folder";
> 
>   print qq{
>   <tr>
>     <td bgcolor=#EEEEEE>
>       <font face="Arial, Helvetica">
>       <img border=0 src="/icons/$src.gif" alt="">
>       &nbsp;&nbsp;
>       <a href="$file">$file</a>
>     </td>};
> 
>   my $commentfile = ".$file-comment";
>   if (-e $commentfile) {
>     open(COMMENT, ".$file-comment");
>     my $comment = <COMMENT>;
>     close(COMMENT);
>     print qq{
>     <td>
>       <font face="Arial, Helvetica">$comment
>     </td>
>   };
>   }
>   print qq{</tr>\n};
> }
> 
>   print <<END;
> </table>
> <center>
>   <a href="http://bazza.com/">
>   <img src="/bazza.com-icon.jpg" border=0></a>
> <center>
> </body>
> </html>
> END

Hey Marc! are you asleep or pretending to have a life or something.  I
was expecting you to be all over this bemoaning the fact that I didn't
recommend using the CGI object and generally pointing out the folly of
my ways and things.

cheers

Andrew



More information about the Belfast-pm mailing list