#!/usr/bin/perl ####################################################################################### $movie0 = < NoRH 3min-Movie

NoRH 17 GHz 3min-Movie

END ####################################################################################### $movie1 = <

Document:
URL:
Last Update:
END ####################################################################################### @days = @ARGV; if (@ARGV == 0) {@days = (`date +%Y%m%d`); }; $dir = '/nfs/nobeyama_solar/3min_arc/3min_fits_db/3min'; foreach $day (@days) { $ccyy = substr($day,0,4); $mm = substr($day,4,2); $dd = substr($day,6,2); $dir0 = "$dir/$ccyy/$mm/$dd"; opendir (DIR0, $dir0); @dir0 = readdir(DIR0); @dir0 = grep(/png/,@dir0); closedir(DIR0); @dir0 = sort (@dir0); $n_files=@dir0; if ($n_files ge 1) { print "$dir0\n"; $moviehtml= "$dir0/movie.html"; # $moviehtml= "movie.html"; if ( -e $moviehtml ) {`rm -f $moviehtml`;} open(MOVIEHTML, ">$moviehtml"); print MOVIEHTML $movie0; print MOVIEHTML '

'."\n"; print MOVIEHTML $movie1; print MOVIEHTML 'var imax = '.$n_files.', inc = 1.50, delay = 250;'."\n"; print MOVIEHTML $movie2; for ($m=0;$m<$n_files;$m++) { print MOVIEHTML 'temp['.$m.']="'.$dir0[$m].'";'."\n"; } print MOVIEHTML $movie3; close(MOVIEHTML); } }