#!/usr/bin/perl ############################################################## # # Image Arcadia is copyright Phatness Unlimited, 2000. # # Phatness Unlimited offers no warranties on this script. # The user of the script is solely responsible for # any problems caused by installation of the script or use # of the script, including images that may be displayed in # the gallery # # All copyright notices regarding Image Arcadia and Phatness # Unlimited must remain intact on the scripts and in the HTML # for the scripts. # # http://arcadia.phatness.com # ############################################################### use File::Listing; require 'uiglib.cgi'; print "Content-type: text/html\n\n"; %params = Read_Input(); @keys = keys(%params); $ID = $params{"ID"}; $file = "dbman/default.db"; $errortext = "Kan bestand niet openen!"; open(INPUT_FILE,$file) or die "$errortext - $!\n"; my @filehandle = ; foreach my $line (@filehandle) { @linearray = split /\|/,$line; push @ARRAY,[@linearray]; } close INPUT_FILE; for $i(0 .. $#ARRAY){ if($ARRAY[$i][0] eq $ID){ print "\n"; print "\n"; print "Kirondino\n"; print "\n"; print "\n"; print "\n"; if($ARRAY[$i][2] ne "") { print "

\n"; } if($ARRAY[$i][3] ne "") { print "

\n"; } if($ARRAY[$i][4] ne "") { print "\n"; } print "
$ARRAY[$i][1]
$ARRAY[$i][11]

\n"; print " Artist: $ARRAY[$i][6]
\n"; print "$ARRAY[$i][5]
 
\n"; print "\n"; print "\n"; } }