#! /usr/bin/perl # (c) 1998 the RAID GROUP / for kronick.com # golemite@pacbell.net # ---------------------------- define variables --------- $n = 0; ($name,$number) = split(/&/,$ENV{'QUERY_STRING'}); if( $number < 1 ) { $number = '0' } # ---------------------------- open file ---------------- open(GALLERY,"$name.txt"); while($line = ) { chomp($line); $data[$n] = $line; $n++; } close(GALLERY); use Switch; switch ($name) { case "vma_gallery2" { $gname = "MTV Video Music Awards VMAs 2001 New York" } case "nyc2k1_gallery2" { $gname = "Road Fools New York 2001" } else { $gname = "" } } # ---------------------------- do real work ------------- $string = $data[$number]; ($location,$description) = split(/==/,$string); $notagdesc = $description; $notagdesc =~ s/<.+?>//g; print "Content-type: text/html\n\n"; print "\n"; print "\nKronick Magazine gallery - $gname $notagdesc\n\n\n"; print "\n"; print <<"EOF";


EOF print "
\n\n\n\n \n\n\n \n\n\n"; $next = $number + 1; $previous = $number - 1; $forward = "gallery2.cgi?$name&$next"; $backward = "gallery2.cgi?$name&$previous"; if( $previous < 0 ) { $backward = "/2.0/content.shtml" } if( $next == $n || $next > $n ) { $forward = "/2.0/content.shtml" } print " \n"; print " \n"; print "\n
\n\n"; print " \"Kronick\n"; print "

"; print "$description"; print "
\n
<<>>
\n
\n\n"; # print "debug ( name=$name | number=$number | n=$n )"; print <<"EOF";


(c) Kronick Magazine Online, Hip Hop, Skateboarding, Urban Life
EOF exit;