#! /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 "au_gallery" { $gname = "Audiotistic 2001 - The Hard Way" } case "atl_gallery" { $gname = "Road Fools Atlanta - Get Krunked Up" } case "jam1_gallery" { $gname = "Road Fools Jamaica - Eric Pupecki" } case "hong_gallery" { $gname = "Hong Kong 2000" } case "vanc_gallery" { $gname = "Vancouver 1999 with City Stars" } case "nyc4_gallery" { $gname = "New York State of Mind Part 4" } case "no_gallery" { $gname = "New Orleans with Cash Money Records" } case "nyc_gallery" { $gname = "New York State of Mind Part Deux" } 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 Online Gallery - $gname - $notagdesc\n\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 = "gallery.cgi?$name&$next"; $backward = "gallery.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;