9 use File::Basename qw(dirname);
12 my $q = CGI::Simple->new({num=>100});
14 my $cat_dir = dirname($ENV{SCRIPT_FILENAME});
25 print $q->header(-status => 200);
31 <title>Cat Pictures!</title>
34 <header class="header"><span class="title">Cat Pictures!</span></header>
36 <section class="catpictures">
40 my $previous_date = '';
41 for my $pic (sort {$pics{$b}->ctime <=> $pics{$a}->ctime} keys %pics) {
42 my $this_date = POSIX::strftime('%Y-%m-%d',localtime($pics{$pic}->ctime()));
43 if ($previous_date ne $this_date){
44 print "<p>$this_date</p>\n";
45 $previous_date = $this_date;
48 $basename =~ s/\.html//;
50 <a href="$pic"><img src="${basename}.jpg" width=100 height=100 alt="$basename"></a>
59 <span class="footer">A silly CGI script</span>
65 my ($q,$error,$text) = @_;
67 print $q->header(-status => $error);
68 print "<h2>$error: $text</h2>";