#!/usr/bin/perl use strict; #(C) 2003 John B. Silvestri #include use Carp; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); print "Content-Type: text/html\n\n"; chdir "icons"; my @files=<*>; #Thanks, Ka-hing my $count=0; my @row; print "John's Gaim Buddy Icons\n"; print "\n"; foreach (@files){ if ($count<5){ print "\n"; push @row, $_; $count++; }else{ print "\n"; foreach (1..5){ my $curr=shift @row; print "\n"; } print "\n"; $count=0; } } if (@row){ print "\n"; foreach (1..5){ my $curr=shift @row; print "\n"; } print "\n"; $count=0; } print "
$curr
$curr

(C) 2003 Silvestrisoft
Created by John B. Silvestri - 20 Jul 2003";