'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="">
>
> <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