# 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");