#!/usr/bin/perl -w # # # #my ($inday,$maxdate,$month,$year) = @AGRV ; $inday = $ARGV[0]; $maxdate = $ARGV[1]; $month = $ARGV[2]; $year = $ARGV[3]; $outfile = "$month-$year.html"; open (OUTFILE,">$outfile") or die "can't open $outfile $! \n"; print OUTFILE< Flat Booking $month $year

LHCb flat bookings for $month $year

EOF if ($inday eq "mon") {$j=0} if ($inday eq "tue") {$j=1} if ($inday eq "wed") {$j=2} if ($inday eq "thu") {$j=3} if ($inday eq "fri") {$j=4} if ($inday eq "sat") {$j=5} if ($inday eq "sun") {$j=6} @day = ("mon","tue","wed","thu","fri","sat","sun"); for ($date=1;$date<=$maxdate;$date++){ print OUTFILE< EOF if ($j == 6) { $j = 0; }else{ $j++ } } print OUTFILE<

DAY	DATE	BEDROOM 1	BEDROOM 2	BEDROOM 3
$day[$j]	$date	free	free	free

Person booking	Institute	Budget	Room choice	First night	Last night	Function

EOF close OUTFILE;