# Print out the snapshot date for the .mkisofs file
#
$monthname[0]="January"; $monthname[1]="February"; $monthname[2]="March";
$monthname[3]="April"; $monthname[4]="May"; $monthname[5]="June";
$monthname[6]="July"; $monthname[7]="August"; $monthname[8]="September";
$monthname[9]="October"; $monthname[10]="November"; $monthname[11]="December";

($a, $min, $hour, $day, $mon, $year, $a, $a, $a)= localtime(time);
$year+= 1900; $month= $monthname[$mon];

print("VOLS=Snapshot $month $day $year\n");