18 use constant CDF => "CDF"; 19 use constant FNALU => "FNALU"; 20 use constant CERN => "CERN"; 21 use constant LOCAL => "LOCAL"; 22 use DateTime; 104 print "touch $okfile\n" if ($okfile !~ /\.html/); 99 print "touch $okfile\n" if ($okfile && $okfile !~ /\.html/); 210 #print "<pre>year $year month $month day $day</pre>\n"; 226 $date = DateTime->now(); 220 $date = Date->today(); 231 $date = DateTime->new( year => $year, 232 month => $monthIndex, 233 day => $day ); 225 my $string = "\$date = Date->new($monthIndex, $day, $year)"; 226 my $retval = eval $string; 227 if ($@ || ! $date) { 228 # Something didn't work 229 $date = Date->today(); 234 } 230 } 231 } # else if 232 print "<h2> HTML Code for $date</h2>\n"; 235 my @days = qw (Monday Tuesday Wednesday Thursday Friday Saturday Sunday); 236 my $dateString = sprintf ("%s, %s %d", 237 $date->day_name, $date->month_name, $date->day); 238 my $dateKey = sprintf ("%02d%02d%02d", 239 $date->year - 2000, $date->month, $date->day); 240 241 print "<h2> HTML Code for ",$date->strftime ("%A, %B %d, 20%y"),"</h2>\n"; 246 my $monthDay = " $dateString "; 237 my $monthDay = " ". $date->weekdayNameFull.", ".$date->monthNameFull . " " . $date->day . " "; 251 print "<p> <a name=\"", $dateKey,"\"></a>\n"; 242 print "<p> <a name=\"", $date->key,"\"></a>\n"; 259 $tag = $dateKey."_$tag"; 250 $tag = $date->key."_$tag"; 262 print "<pre><font color=\"red\"><!-- $prettySubhead -->\n<p><a name=\"$tag\"></a>\n<h3>$subhead\n<a href=\"#$tag\">&nbsp;</a></h3>\n\n<p>\n\n</font></pre>"; 253 print "<pre><font color=\"red\"><!-- $prettySubhead -->\n<p><a name=\"$tag\"></a>\n<h3>$subhead\n<a href=\"#$tag\">&nbsp;</a></h3>\n\n<p>\n\n</pre>"; 265 print "<br><br></font>\n"; 256 print "<br><br>\n"; 275 -default => $date->month_name), 266 -default => $date->monthNameFull), 288 chomp (my $date = `date +%y%m`); 297 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); 298 my $date = sprintf ("%02d%02d", $year - 100, $mon + 1); 306 #print "<pre>date $date $year $mon : $max</pre>\n"; 316 if (LOCAL == $mode) { 305 if ('LOCAL' == $mode) { 320 "<meta http-equiv=\"Content-Type\"></head></html>\n"; 309 "<meta http-equiv=\"Content-Type\"></head></html>\n"; 333 if (! -e "$basedir/$okfile") { 322 if ($okfile && ! -e "$basedir/$okfile") { 430 my @neededKeys = qw (hostname needed basedir htmlbase okfile); 419 my @neededKeys = qw (hostname needed basedir htmlbase); 422 # gete rid of comments and extra spaces 433 chomp; 423 chomp; 425 s|^\s*||; 426 s|\s*$||; 440 if (m|^\s*\+\s*(\w+)\s*=\s*(.+\S)\s*|) { 432 if (m|^\s*\+\s*(\w+)\s*=\s*(.*\S?)\s*|) { 489 $okfile = $hashRef->{'okfile'}; 481 $okfile = $hashRef->{'okfile'} || ""; 513 $okfile = $hashRef->{'okfile'}; 505 $okfile = $hashRef->{'okfile'} || "";