#!C:/xampp/perl/bin/ require 'cs2-lib.pl'; use CGI; $q = new CGI; print "Content-type: text/html\n\n"; $database = "data/specials-new.dat"; $headerfile = "header.inc"; $footerfile = "footer.inc"; @footer = open_read($footerfile); &getdates; open (DATABASE, "$database") || die("Can't open $database! $!"); @data = ; close (DATABASE); print qq~ CruiseLife - Travel Specials

CruiseLife - Travel Specials

Check back often for updated specials.

~; @data = reverse (@data); foreach $temp (@data) { ($id, $cruise_line, $otherline, $headline, $onboard, $ship, $itin1, $itin2, $itin3, $itin4, $itin5, $itin6, $itin1a, $itin2a, $itin3a, $itin4a, $itin5a, $itin6a, $day1, $day2, $day3, $day4, $day5, $day6, $day7, $day8, $day9, $day10, $port1, $port2, $port3, $port4, $port5, $port6, $port7, $port8, $port9, $port10, $arrive1, $arrive2, $arrive3, $arrive4, $arrive5, $arrive6, $arrive7, $arrive8, $arrive9, $arrive10, $dept1, $dept2, $dept3, $dept4, $dept5, $dept6, $dept7, $dept8, $dept9, $dept10, $price1, $price2, $price3, $price4, $price5, $disclaimer, $dates, $price1, $price2, $price3, $price4, $price5) = split (/\|/,$temp); chomp ($price5); &getimages; if ($otherline eq ""){print qq~

~;}else{ print qq~

$otherline

~;} print qq~    
$headline

 

~; } print qq~

All prices are per person based upon 2 in a cabin. Rates are subject to change without notice and do not include air, port charges, taxes or insurance unless otherwise stated. All rates are in us dollars only. ~; ######################################## sub getdates { $month = (January,February,March,April,May,June,July,August,September,October,November,December) [(localtime) [4]]; $day = (Sun,Mon,Tues,Wed,Thurs,Fri,Sat) [(localtime) [6]]; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdist) = localtime(time); $mon = $mon +1; $year = $year+1900; $longdate = $month . " " . $mday . ", " . $year; $date = $mon . "/" . $mday . "/" . $year; } sub getimages { $imagedir="../images/logos"; opendir(IMGDIR, $imagedir) || die("Can't read images dir! $!"); @gif=sort grep(/\.gif$/, readdir IMGDIR); closedir(IMGDIR); $image1="$imagedir/$gif[0]";#amcan $image2="$imagedir/$gif[1]";#cape canaveral $image3="$imagedir/$gif[2]";#carnival $image4="$imagedir/$gif[3]";#celbrity $image5="$imagedir/$gif[4]";#clipper $image6="$imagedir/$gif[5]";#commodore $image7="$imagedir/$gif[6]";#costa $image8="$imagedir/$gif[7]";#crystal $image9="$imagedir/$gif[8]";#cunard $image10="$imagedir/$gif[9]";#delta $image11="$imagedir/$gif[10]";#disney $image12="$imagedir/$gif[11]";#euro $image13="$imagedir/$gif[12]";#hawaii $image14="$imagedir/$gif[13]";#holland $image15="$imagedir/$gif[14]";#mediterranean $image16="$imagedir/$gif[15]";#norwegian $image17="$imagedir/$gif[16]";#olsen $image18="$imagedir/$gif[17]";#olympic $image19="$imagedir/$gif[18]";#orient $image20="$imagedir/$gif[19]";#premier $image21="$imagedir/$gif[20]";#princess $image22="$imagedir/$gif[21]";#royal $image23="$imagedir/$gif[22]";#seabourn $image24="$imagedir/$gif[23]";#star $image25="$imagedir/$gif[24]";#west $image26="$imagedir/$gif[25]";#windjammer if ($cruise_line eq "cape") {$linelogo="$image1"}; if ($cruise_line eq "carnival") {$linelogo="$image2"}; if ($cruise_line eq "celebrity") {$linelogo="$image3"}; if ($cruise_line eq "clipper") {$linelogo="$image4"}; if ($cruise_line eq "commodore") {$linelogo="$image5"}; if ($cruise_line eq "costa") {$linelogo="$image6"}; if ($cruise_line eq "crystal") {$linelogo="$image7"}; if ($cruise_line eq "cunard") {$linelogo="$image8"}; if ($cruise_line eq "delta") {$linelogo="$image9"}; if ($cruise_line eq "disney") {$linelogo="$image10"}; if ($cruise_line eq "euro") {$linelogo="$image11"}; if ($cruise_line eq "hawaii") {$linelogo="$image12"}; if ($cruise_line eq "holland") {$linelogo="$image13"}; if ($cruise_line eq "med") {$linelogo="$image14"}; if ($cruise_line eq "norwegian") {$linelogo="$image15"}; if ($cruise_line eq "olsen") {$linelogo="$image16"}; if ($cruise_line eq "olympic") {$linelogo="$image17"}; if ($cruise_line eq "orient") {$linelogo="$image18"}; if ($cruise_line eq "premier") {$linelogo="$image19"}; if ($cruise_line eq "princess") {$linelogo="$image20"}; if ($cruise_line eq "royal") {$linelogo="$image21"}; if ($cruise_line eq "seabourn") {$linelogo="$image22"}; if ($cruise_line eq "star") {$linelogo="$image23"}; if ($cruise_line eq "west") {$linelogo="$image24"}; if ($cruise_line eq "windjammer") {$linelogo="$image25"}; if ($cruise_line eq "other") {$linelogo="$variables{'otherline'}"} }