#!/usr/bin/perl $> = $<; # set effective user IDs to real id $) = $(; # set goup id to real id $ENV{'PATH'} = '/bin:/usr/bin'; $ENV{'IFS'} = '' if $ENV{'IFS'} ne ''; $num = time; srand($num); # seed random number generator #$link_number = int(rand(10000)); open(INPUT,"skidata.txt") || die "Can Not open input\n"; while (eof(INPUT) == 0) { @items = ; } close(INPUT); $total = @items; $count =1; $index1=0; $index2=0; do { $line = $items[$count]; ($type,$asin,$img,$w,$h,$title) = split('\|',$line); if($type eq "VHS") { $vid_asin[$index1] = "$asin"; $vid_img[$index1] = "$img"; $vid_w[$index1] = $w; $vid_h[$index1] = $h; $vid_title[$index1] = "$title"; $vid_used[$index1] = 0; if($img ne "") { $tot_vid_imgs = $index1+1; } ++$index1; } elsif($type eq "BOOK") { $book_asin[$index2] = "$asin"; $book_img[$index2] = "$img"; $book_w[$index2] = $w; $book_h[$index2] = $h; $book_title[$index2] = "$title"; $book_used[$index2] = 0; if($img ne "") { $tot_book_imgs = $index2+1; } ++$index2; } } while (++$count < $total); # randomly pick 6 video images $count = 0; do { $number = int(rand($tot_vid_imgs)); if($vid_used[$number] == 0) { #found one $vid_used[$number] =1; $display_vid[$count] = $number; ++$count; } } while ($count <6); # randomly pick 8 book images - make sure images wider than 100 are in the upper 4 $count = 0; do { NEXT: $number = int(rand($tot_book_imgs)); if($book_used[$number] == 0) { #found one #make sure if width is greater than 100 that it is not in the first 4 picked if(($book_w[$number] > 100) && ($count < 4)) { goto NEXT; } $book_used[$number] =1; $display_book[$count] = $number; ++$count; } } while ($count <8); print "Content-type: text/html\n\n"; print "Skiing Books and Videos\n"; print "FunGuide: Skiing Videos & Books (from Amazon.com)
\n"; #---------------------- # now print videos #---------------------- print "\n"; print "\n"; print "
Skiing Videos
"; print "[ Reloading page displays more pictures ]
\n"; print "\n"; # First Column print "\n"; # Middle Column - display all other titles (random order) $count = 0; $todo = @vid_title; print "\n"; # Third Column print "\n"; print "
\n"; for($temp=0;$temp<3;++$temp) { print "
$vid_title[$display_vid[$temp]]

\n"; print "

[More / Order]


\n"; } print "		\n"; do { $number = $count; #int(rand($todo)); if($vid_used[$number] == 0) { #found one print "$vid_title[$number]\n"; print " \n"; print "[More / Order]

\n"; $vid_used[$number] =1; } } while (++$count <$todo); print "		\n"; for($temp=3;$temp<6;++$temp) { print "
$vid_title[$display_vid[$temp]]

\n"; print "\n"; print "

[More / Order]


\n"; } print "


\n"; #---------------------- # now print books #---------------------- print "\n"; print "\n"; print "
Skiing Books
"; print "[ Reloading page displays more titles / pictures ]
\n"; print "\n"; # First Column print "\n"; # Middle Column - display all other titles $count = 0; $todo = @book_title; print "\n"; # Third Column print "\n"; print "
\n"; for($temp=0;$temp<4;++$temp) { print "
$book_title[$display_book[$temp]]

\n"; print "

[More / Order]


\n"; } print "		\n"; do { $number = int(rand($todo)); if($book_used[$number] == 0) { #found one print "$book_title[$number]\n"; print " \n"; print "[More / Order]

\n"; $book_used[$number] =1; ++$count } } while ($count < 24); print "
Display More Titles

\n"; print "		\n"; for($temp=4;$temp<8;++$temp) { print "
$book_title[$display_book[$temp]]

\n"; print "

[More / Order]


\n"; } print "


\n"; print "\n";