Error

#!/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 with PID $number = int(rand(10000)); # ------------------- Banner Ad ----------------------- #$ad = "

"; open (INPUT,"../burstcode.htm"); while(eof(INPUT) == 0) { @ad = ; } close(INPUT); #$ad = "\n \n"; #$ad = $ad."

\n"; #$ad = $ad." $adstring\n"; #$ad = $ad."

\n"; # -------------- Link Exchange Ad ------------------ $le=" $\"LinkExchange\"$
LinkExchange Member
\n"; $docnumber=$ENV{'QUERY_STRING'}; #Stop nasty subshell stuff that could crop up... $docnumber =~ s/~!/ ~!/g; $docnumber =~ s/\W//g; # get rid of anything except 0-9 a-z $next = 0; $pos = 0; random_book_video(); # --------- A dummy file must exist in this directory before displaying #open(INPUT,"resorts2/$docnumber.htm") || return_error(); #close (INPUT); read_resort_name(); read_resort_info(); read_snow_cond(); read_enhanced_info(); return_web_page(); exit; #------------------------------------------ # Subroutines #------------------------------------------ sub return_error() { print "Content-type: text/html\n\n"; print "Error"; print "There is no data for your request.
If you feel that this is in error, please Contact us."; print ""; exit; } sub read_resort_name() { open (INPUT,"accounts/accounts.dat"); while(eof(INPUT) == 0) { @lines = ; } close(INPUT); $total_lines = @lines; if($total_lines == 0) { return_error(); } $done = 0; $count =0; do { chop($lines[$count]); ($account,$name,$acct_type,$city,$state,$country,$url2) = split('\|',$lines[$count]); if($account == $docnumber) { $done = 1; } } while(++$count < $total_lines && $done == 0); # if($done == 0) { return_error(); } } sub read_resort_info() { open (INPUT,"accounts/info/$docnumber.pl") || return_error(); $line = ; chop($line); close(INPUT); ($infophone,$snowphone,$pipes,$lifts,$snowtubing,$trails,$beg,$int,$adv,$annual,$snowmaking, $longest,$vert,$acres,$topelev,@checked) = split('\|',$line); if($infophone) { $infophone = "Information: $infophone
"; } else { $infophone = ""; } if($snowphone) { $snowphone = "Snow Cond: $snowphone
"; } else { $snowphone = ""; } if($pipes) { $pipes = "Pipes/Parks: $pipes
"; } else { $pipes = ""; } if($lifts) { $lifts = "Lifts: $lifts
"; } else { $lifts = ""; } if($trails) { $trails = "Trails: $trails
"; } else { $trails = ""; } if($snowtubing) { $snowtubing = "Snow tubing: $snowtubing
"; } else { $snowtubing = ""; } if($beg) { $beg = "Beginner: $beg
"; } else { $beg = ""; } if($int) { $int = "Intermediate: $int
"; } else { $int = ""; } if($adv) { $adv = "Advanced: $adv
"; } else { $adv = ""; } if($annual) { $annual = "Annual Snow: $annual inches
"; } else { $annual = ""; } if($snowmaking) { $snowmaking = "Snowmaking: $snowmaking%
"; } else { $snowmaking = ""; } if($longest) { $longest = "Longest Run: $longest ft.
"; } else { $longest = ""; } if($vert) { $vert = "Vertical: $vert ft.
"; } else { $vert = ""; } if($acres) { $acres = "Skiiable Acres: $acres
"; } else { $acres = ""; } if($topelev) { $topelev = "Peak Elevation: $topelev ft.
"; } else { $topelev = ""; } if($checked[0] || $checked[1] || $checked[2] || $checked[3] || $checked[4]) { $other = "Other:\n"; if($checked[0] eq "checked") { $other = $other."

Cross Country Skiing\n"; } if($checked[1] eq "checked") { $other = $other."

Mogul Fields\n"; } if($checked[2] eq "checked") { $other = $other."

Extreme skiing\n"; } if($checked[3] eq "checked") { $other = $other."

Night skiing\n"; } if($checked[4] eq "checked") { $other = $other."

Snowmobiling Available\n"; } $other = $other."
\n"; } } sub read_snow_cond() { open (INPUT,"accounts/snow/$docnumber.pl") || return_error(); $line = ; chop($line); close(INPUT); ($update,$base,$newsnow,$surface,$temp) = split('\|',$line); } sub read_enhanced_info() { open (INPUT,"accounts/enhance/$docnumber.pl") || return_error(); $line = ; chop($line); close(INPUT); ($url,$add_link,$cam_cap[0],$cam_url[0],$cam_cap[1],$cam_url[1],$cam_cap[2],$cam_url[2], $email,$special_evt_date[0],$special_evt[0],$special_evt_date[1],$special_evt[1], $special_evt_date[2],$special_evt[2]) = split('\|',$line); if($special_evt_date[0] || $special_evt_date[1] || $special_evt_date[2]) { $special = ""; $special = $special.""; if($special_evt_date[0]) { $special = $special.""; } if($special_evt_date[1]) { $special = $special.""; } if($special_evt_date[2]) { $special = $special.""; } $special = $special."

*Special Events*
Date	Event
$special_evt_date[0]	$special_evt[0]
$special_evt_date[1]	$special_evt[1]
$special_evt_date[2]	$special_evt[2]

\n"; } if($email) { $email = "Email Ski Resort
"; } } sub return_web_page() { #----- Open & read templete file open(INPUT,"resort.htm"); while(eof(INPUT) == 0) { @lines = ; } close(INPUT); $total_lines = @lines; $count = 0; print "Content-type: text/html\n\n"; do{ $string = ""; $lines[$count] =~ s/$string/@ad/; # $lines[$count] =~ s/$string/$ad/; $string = ""; $lines[$count] =~ s/$string/$le/; $string = ""; $lines[$count] =~ s/$string/$suggestion/; $string = ""; $lines[$count] =~ s/$string/$name/; $string = ""; $lines[$count] =~ s/$string/$city/; $string = ""; $lines[$count] =~ s/$string/$state/; $string = ""; $lines[$count] =~ s/$string/$country/; $string = ""; $lines[$count] =~ s/$string/$infophone/; $string = ""; $lines[$count] =~ s/$string/$snowphone/; $string = ""; $lines[$count] =~ s/$string/$vert/; $string = ""; $lines[$count] =~ s/$string/$trails/; $string = ""; $lines[$count] =~ s/$string/$beg/; $string = ""; $lines[$count] =~ s/$string/$int/; $string = ""; $lines[$count] =~ s/$string/$adv/; $string = ""; $lines[$count] =~ s/$string/$topelev/; $string = ""; $lines[$count] =~ s/$string/$annual/; $string = ""; $lines[$count] =~ s/$string/$acres/; $string = ""; $lines[$count] =~ s/$string/$lifts/; $string = ""; $lines[$count] =~ s/$string/$snowmaking/; $string = ""; $lines[$count] =~ s/$string/$longest/; $string = ""; $lines[$count] =~ s/$string/$other/; $string = ""; $lines[$count] =~ s/$string/$pipes/; $string = ""; $lines[$count] =~ s/$string/$snowtubing/; $string = ""; $lines[$count] =~ s/$string/$update/; $string = ""; $lines[$count] =~ s/$string/$base/; $string = ""; $lines[$count] =~ s/$string/$surface/; $string = ""; $lines[$count] =~ s/$string/$newsnow/; $string = ""; $lines[$count] =~ s/$string/$temp/; $string = ""; $lines[$count] =~ s/$string/$special/; # $string = ""; if($acct_type == 2) { $link1 = "Web site: $url
"; $string = ""; $lines[$count] =~ s/$string/$link1/; } if($acct_type == 3) { $link1 = "Web site: $url
"; $string = ""; $lines[$count] =~ s/$string/$link1/; $link2 = "Latest snow conditions

"; $string = ""; $lines[$count] =~ s/$string/$link2/; } print $lines[$count]; } while (++$count < $total_lines); } # -------------- Random Book or Video ------------------ sub random_book_video() { open(INPUT,"../books_video/skidata.txt"); while (eof(INPUT) == 0) { @items = ; } close(INPUT); $total = @items; $done =0; $number = 1 + int(rand($total-1)); $line = $items[$number]; chop($line); ($type,$asin,$img,$w,$h,$title) = split('\|',$line); if(length($title) > 45) { $temp = substr($title,0,42); $title = $temp."\.\.\."; } $suggestion = ""; if($type eq "VHS") { $suggestion = $suggestion."Video Suggestion: "; } elsif($type eq "BOOK") { $suggestion = $suggestion."Book Suggestion: "; } $suggestion = $suggestion."$title "; $suggestion = $suggestion." [More books & videos]\n"; $suggestion = $suggestion."
\n"; }