ASNMTAP
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
$SERVERTABLSERVERS = $_config{TABLES}{SERVERS} if ( exists $_config{TABLES}{SERVERS} );
$SERVERTABLTIMEPERIODS = $_config{TABLES}{TIMEPERIODS} if ( exists $_config{TABLES}{TIMEPERIODS} );
$SERVERTABLUSERS = $_config{TABLES}{USERS} if ( exists $_config{TABLES}{USERS} );
$SERVERTABLVIEWS = $_config{TABLES}{VIEWS} if ( exists $_config{TABLES}{VIEWS} );
}
our %COLORS = ('OK'=>'#99CC99','WARNING'=>'#FFFF00','CRITICAL'=>'#FF4444','UNKNOWN'=>'#FFFFFF','DEPENDENT'=>'#D8D8BF','OFFLINE'=>'#0000FF','NO DATA'=>'#CC00CC','IN PROGRESS'=>'#99CC99','NO TEST'=>'#99CC99', '<NIHIL>'=>'#CC00CC','TRENDLINE'=>'#ff...
our %COLORSPIE = ('OK'=>0x00BA00, 'WARNING'=>0xffff00, 'CRITICAL'=>0xff0000, 'UNKNOWN'=>0x99FFFF, 'DEPENDENT'=>0xD8D8BF, 'OFFLINE'=>0x0000FF, 'NO DATA'=>0xCC00CC, 'IN PROGRESS'=>0x99CC99, 'NO TEST'=>0x444444, '<NIHIL>'=>0xCC00CC, 'TRENDLINE'=>0xff...
our %COLORSRRD = ('OK'=>0x00BA00, 'WARNING'=>0xffff00, 'CRITICAL'=>0xff0000, 'UNKNOWN'=>0x99FFFF, 'DEPENDENT'=>0xD8D8BF, 'OFFLINE'=>0x0000FF, 'NO DATA'=>0xCC00CC, 'IN PROGRESS'=>0x99CC99, 'NO TEST'=>0x000000, '<NIHIL>'=>0xCC00CC, 'TRENDLINE'=>0xff...
our %COLORSTABLE = ('TABLE'=>'#333344', 'NOBLOCK'=>'#335566','ENDBLOCK'=>'#665555','STARTBLOCK'=>'#996666');
if ( exists $_config{COLORS} ) {
$COLORS{OK} = '#'. $_config{COLORS}{OK} if ( exists $_config{COLORS}{OK} );
$COLORS{WARNING} = '#'. $_config{COLORS}{WARNING} if ( exists $_config{COLORS}{WARNING} );
$COLORS{CRITICAL} = '#'. $_config{COLORS}{CRITICAL} if ( exists $_config{COLORS}{CRITICAL} );
$COLORS{UNKNOWN} = '#'. $_config{COLORS}{UNKNOWN} if ( exists $_config{COLORS}{UNKNOWN} );
$COLORS{DEPENDENT} = '#'. $_config{COLORS}{DEPENDENT} if ( exists $_config{COLORS}{DEPENDENT} );
$COLORS{OFFLINE} = '#'. $_config{COLORS}{OFFLINE} if ( exists $_config{COLORS}{OFFLINE} );
$COLORS{'NO DATA'} = '#'. $_config{COLORS}{NO_DATA} if ( exists $_config{COLORS}{NO_DATA} );
$COLORS{'IN PROGRESS'} = '#'. $_config{COLORS}{IN_PROGRESS} if ( exists $_config{COLORS}{IN_PROGRESS} );
$COLORS{'NO TEST'} = '#'. $_config{COLORS}{NO_TEST} if ( exists $_config{COLORS}{NO_TEST} );
$COLORS{'<NIHIL>'} = '#'. $_config{COLORS}{_NIHIL_} if ( exists $_config{COLORS}{_NIHIL_} );
$COLORS{TRENDLINE} = '#'. $_config{COLORS}{TRENDLINE} if ( exists $_config{COLORS}{TRENDLINE} );
if ( exists $_config{COLORS}{PIE} ) {
$COLORSPIE{OK} = $_config{COLORS}{PIE}{OK} if ( exists $_config{COLORS}{PIE}{OK} );
$COLORSPIE{WARNING} = $_config{COLORS}{PIE}{WARNING} if ( exists $_config{COLORS}{PIE}{WARNING} );
$COLORSPIE{CRITICAL} = $_config{COLORS}{PIE}{CRITICAL} if ( exists $_config{COLORS}{PIE}{CRITICAL} );
$COLORSPIE{UNKNOWN} = $_config{COLORS}{PIE}{UNKNOWN} if ( exists $_config{COLORS}{PIE}{UNKNOWN} );
$COLORSPIE{DEPENDENT} = $_config{COLORS}{PIE}{DEPENDENT} if ( exists $_config{COLORS}{PIE}{DEPENDENT} );
$COLORSPIE{OFFLINE} = $_config{COLORS}{PIE}{OFFLINE} if ( exists $_config{COLORS}{PIE}{OFFLINE} );
$COLORSPIE{'NO DATA'} = $_config{COLORS}{PIE}{NO_DATA} if ( exists $_config{COLORS}{PIE}{NO_DATA} );
$COLORSPIE{'IN PROGRESS'} = $_config{COLORS}{PIE}{IN_PROGRESS} if ( exists $_config{COLORS}{PIE}{IN_PROGRESS} );
$COLORSPIE{'NO TEST'} = $_config{COLORS}{PIE}{NO_TEST} if ( exists $_config{COLORS}{PIE}{NO_TEST} );
$COLORSPIE{'<NIHIL>'} = $_config{COLORS}{PIE}{_NIHIL_} if ( exists $_config{COLORS}{PIE}{_NIHIL_} );
$COLORSPIE{TRENDLINE} = $_config{COLORS}{PIE}{TRENDLINE} if ( exists $_config{COLORS}{PIE}{TRENDLINE} );
}
if ( exists $_config{COLORS}{RRD} ) {
$COLORSRRD{OK} = $_config{COLORS}{RRD}{OK} if ( exists $_config{COLORS}{RRD}{OK} );
$COLORSRRD{WARNING} = $_config{COLORS}{RRD}{WARNING} if ( exists $_config{COLORS}{RRD}{WARNING} );
$COLORSRRD{CRITICAL} = $_config{COLORS}{RRD}{CRITICAL} if ( exists $_config{COLORS}{RRD}{CRITICAL} );
$COLORSRRD{UNKNOWN} = $_config{COLORS}{RRD}{UNKNOWN} if ( exists $_config{COLORS}{RRD}{UNKNOWN} );
$COLORSRRD{DEPENDENT} = $_config{COLORS}{RRD}{DEPENDENT} if ( exists $_config{COLORS}{RRD}{DEPENDENT} );
$COLORSRRD{OFFLINE} = $_config{COLORS}{RRD}{OFFLINE} if ( exists $_config{COLORS}{RRD}{OFFLINE} );
$COLORSRRD{'NO DATA'} = $_config{COLORS}{RRD}{NO_DATA} if ( exists $_config{COLORS}{RRD}{NO_DATA} );
$COLORSRRD{'IN PROGRESS'} = $_config{COLORS}{RRD}{IN_PROGRESS} if ( exists $_config{COLORS}{RRD}{IN_PROGRESS} );
$COLORSRRD{'NO TEST'} = $_config{COLORS}{RRD}{NO_TEST} if ( exists $_config{COLORS}{RRD}{NO_TEST} );
$COLORSRRD{'<NIHIL>'} = $_config{COLORS}{RRD}{_NIHIL_} if ( exists $_config{COLORS}{RRD}{_NIHIL_} );
$COLORSRRD{TRENDLINE} = $_config{COLORS}{RRD}{TRENDLINE} if ( exists $_config{COLORS}{RRD}{TRENDLINE} );
}
if ( exists $_config{COLORS}{TABLE} ) {
$COLORSTABLE{TABLE} = '#'. $_config{COLORS}{TABLE}{TABLE} if ( exists $_config{COLORS}{TABLE}{TABLE} );
$COLORSTABLE{NOBLOCK} = '#'. $_config{COLORS}{TABLE}{NOBLOCK} if ( exists $_config{COLORS}{TABLE}{NOBLOCK} );
$COLORSTABLE{ENDBLOCK} = '#'. $_config{COLORS}{TABLE}{ENDBLOCK} if ( exists $_config{COLORS}{TABLE}{ENDBLOCK} );
$COLORSTABLE{STARTBLOCK} = '#'. $_config{COLORS}{TABLE}{STARTBLOCK} if ( exists $_config{COLORS}{TABLE}{STARTBLOCK} );
}
}
our %ENVIRONMENT = ('P'=>'Production', 'S'=>'Simulation', 'A'=>'Acceptation', 'T'=>'Test', 'D'=>'Development', 'L'=>'Local');
our %ICONS = ('OK'=>'green.gif','WARNING'=>'yellow.gif','CRITICAL'=>'red.gif','UNKNOWN'=>'clear.gif','DEPENDENT'=>'','OFFLINE'=>'blue.gif','NO DATA'=>'purple.gif','IN PROGRESS'=>'running.gif','NO TEST'=>'notest.gif','TRENDLINE'=>'orange.gif')...
our %ICONSACK = ('OK'=>'green-ack.gif','WARNING'=>'yellow-ack.gif','CRITICAL'=>'red-ack.gif','UNKNOWN'=>'clear-ack.gif','DEPENDENT'=>'','OFFLINE'=>'blue-ack.gif','NO DATA'=>'purple-ack.gif','IN PROGRESS'=>'running.gif','NO TEST'=>'notest-ack.gif...
our %ICONSUNSTABLE = ('OK'=>'green-unstable.gif','WARNING'=>'yellow-unstable.gif','CRITICAL'=>'red-unstable.gif','UNKNOWN'=>'clear-unstable.gif','DEPENDENT'=>'','OFFLINE'=>'blue-unstable.gif','NO DATA'=>'purple-unstable.gif','IN PROGRESS'=>'running.g...
our %ICONSRECORD = ('maintenance'=>'maintenance.gif', 'duplicate'=>'recordDuplicate.gif', 'delete'=>'recordDelete.gif', 'details'=>'recordDetails.gif', 'query'=>'recordQuery.gif', 'edit'=>'recordEdit.gif', 'table'=>'recordTable.gif', 'up'=>'1arrowU...
our %ICONSSYSTEM = ('pidKill'=>'pidKill.gif', 'pidRemove'=>'pidRemove.gif', 'daemonReload'=>'daemonReload.gif', 'daemonStart'=>'daemonStart.gif', 'daemonStop'=>'daemonStop.gif', 'daemonRestart'=>'daemonRestart.gif');
if ( exists $_config{ICONS} ) {
$ICONS{OK} = $_config{ICONS}{OK} if ( exists $_config{ICONS}{OK} );
$ICONS{WARNING} = $_config{ICONS}{WARNING} if ( exists $_config{ICONS}{WARNING} );
$ICONS{CRITICAL} = $_config{ICONS}{CRITICAL} if ( exists $_config{ICONS}{CRITICAL} );
$ICONS{UNKNOWN} = $_config{ICONS}{UNKNOWN} if ( exists $_config{ICONS}{UNKNOWN} );
$ICONS{DEPENDENT} = $_config{ICONS}{DEPENDENT} if ( exists $_config{ICONS}{DEPENDENT} );
$ICONS{OFFLINE} = $_config{ICONS}{OFFLINE} if ( exists $_config{ICONS}{OFFLINE} );
$ICONS{'NO DATA'} = $_config{ICONS}{NO_DATA} if ( exists $_config{ICONS}{NO_DATA} );
$ICONS{'IN PROGRESS'} = $_config{ICONS}{IN_PROGRESS} if ( exists $_config{ICONS}{IN_PROGRESS} );
$ICONS{'NO TEST'} = $_config{ICONS}{NO_TEST} if ( exists $_config{ICONS}{NO_TEST} );
$ICONS{TRENDLINE} = $_config{ICONS}{TRENDLINE} if ( exists $_config{ICONS}{TRENDLINE} );
if ( exists $_config{ICONS}{ACK} ) {
$ICONSACK{OK} = $_config{ICONS}{ACK}{OK} if ( exists $_config{ICONS}{ACK}{OK} );
$ICONSACK{WARNING} = $_config{ICONS}{ACK}{WARNING} if ( exists $_config{ICONS}{ACK}{WARNING} );
$ICONSACK{CRITICAL} = $_config{ICONS}{ACK}{CRITICAL} if ( exists $_config{ICONS}{ACK}{CRITICAL} );
$ICONSACK{UNKNOWN} = $_config{ICONS}{ACK}{UNKNOWN} if ( exists $_config{ICONS}{ACK}{UNKNOWN} );
$ICONSACK{DEPENDENT} = $_config{ICONS}{ACK}{DEPENDENT} if ( exists $_config{ICONS}{ACK}{DEPENDENT} );
$ICONSACK{OFFLINE} = $_config{ICONS}{ACK}{OFFLINE} if ( exists $_config{ICONS}{ACK}{OFFLINE} );
$ICONSACK{'NO DATA'} = $_config{ICONS}{ACK}{NO_DATA} if ( exists $_config{ICONS}{ACK}{NO_DATA} );
$ICONSACK{'IN PROGRESS'} = $_config{ICONS}{ACK}{IN_PROGRESS} if ( exists $_config{ICONS}{ACK}{IN_PROGRESS} );
$ICONSACK{'NO TEST'} = $_config{ICONS}{ACK}{NO_TEST} if ( exists $_config{ICONS}{ACK}{NO_TEST} );
$ICONSACK{TRENDLINE} = $_config{ICONS}{ACK}{TRENDLINE} if ( exists $_config{ICONS}{ACK}{TRENDLINE} );
}
if ( exists $_config{ICONS}{UNSTABLE} ) {
$ICONSUNSTABLE{OK} = $_config{ICONS}{UNSTABLE}{OK} if ( exists $_config{ICONS}{UNSTABLE}{OK} );
$ICONSUNSTABLE{WARNING} = $_config{ICONS}{UNSTABLE}{WARNING} if ( exists $_config{ICONS}{UNSTABLE}{WARNING} );
$ICONSUNSTABLE{CRITICAL} = $_config{ICONS}{UNSTABLE}{CRITICAL} if ( exists $_config{ICONS}{UNSTABLE}{CRITICAL} );
$ICONSUNSTABLE{UNKNOWN} = $_config{ICONS}{UNSTABLE}{UNKNOWN} if ( exists $_config{ICONS}{UNSTABLE}{UNKNOWN} );
$ICONSUNSTABLE{DEPENDENT} = $_config{ICONS}{UNSTABLE}{DEPENDENT} if ( exists $_config{ICONS}{UNSTABLE}{DEPENDENT} );
$ICONSUNSTABLE{OFFLINE} = $_config{ICONS}{UNSTABLE}{OFFLINE} if ( exists $_config{ICONS}{UNSTABLE}{OFFLINE} );
$ICONSUNSTABLE{'NO DATA'} = $_config{ICONS}{UNSTABLE}{NO_DATA} if ( exists $_config{ICONS}{UNSTABLE}{NO_DATA} );
$ICONSUNSTABLE{'IN PROGRESS'} = $_config{ICONS}{UNSTABLE}{IN_PROGRESS} if ( exists $_config{ICONS}{UNSTABLE}{IN_PROGRESS} );
$ICONSUNSTABLE{'NO TEST'} = $_config{ICONS}{UNSTABLE}{NO_TEST} if ( exists $_config{ICONS}{UNSTABLE}{NO_TEST} );
$ICONSUNSTABLE{TRENDLINE} = $_config{ICONS}{UNSTABLE}{TRENDLINE} if ( exists $_config{ICONS}{UNSTABLE}{TRENDLINE} );
}
if ( exists $_config{ICONS}{RECORD} ) {
$ICONSRECORD{maintenance} = $_config{ICONS}{RECORD}{maintenance} if ( exists $_config{ICONS}{RECORD}{maintenance} );
$ICONSRECORD{duplicate} = $_config{ICONS}{RECORD}{duplicate} if ( exists $_config{ICONS}{RECORD}{duplicate} );
$ICONSRECORD{delete} = $_config{ICONS}{RECORD}{delete} if ( exists $_config{ICONS}{RECORD}{delete} );
$ICONSRECORD{details} = $_config{ICONS}{RECORD}{details} if ( exists $_config{ICONS}{RECORD}{details} );
$ICONSRECORD{query} = $_config{ICONS}{RECORD}{query} if ( exists $_config{ICONS}{RECORD}{query} );
$ICONSRECORD{edit} = $_config{ICONS}{RECORD}{edit} if ( exists $_config{ICONS}{RECORD}{edit} );
$ICONSRECORD{table} = $_config{ICONS}{RECORD}{table} if ( exists $_config{ICONS}{RECORD}{table} );
$ICONSRECORD{up} = $_config{ICONS}{RECORD}{up} if ( exists $_config{ICONS}{RECORD}{up} );
$ICONSRECORD{down} = $_config{ICONS}{RECORD}{down} if ( exists $_config{ICONS}{RECORD}{down} );
$ICONSRECORD{left} = $_config{ICONS}{RECORD}{left} if ( exists $_config{ICONS}{RECORD}{left} );
$ICONSRECORD{right} = $_config{ICONS}{RECORD}{right} if ( exists $_config{ICONS}{RECORD}{right} );
$ICONSRECORD{first} = $_config{ICONS}{RECORD}{first} if ( exists $_config{ICONS}{RECORD}{first} );
$ICONSRECORD{last} = $_config{ICONS}{RECORD}{last} if ( exists $_config{ICONS}{RECORD}{last} );
}
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
} elsif ($type eq 'U') { # Url
$htmlEntityString = encode_entities($string, '& ');
} elsif ($type eq 'V') { # session Variable
$htmlEntityString = encode_entities($string);
$htmlEntityString =~ s/\\([2][4-7][0-7]|[3][0-7][0-7])/convert_octalLatin1_to_decimalHtmlEntity($1)/eg;
$htmlEntityString =~ s/([\240-\377])/convert_charLatin1_to_decimalHtmlEntity($1)/eg;
} else {
$htmlEntityString = $string;
}
return ($htmlEntityString);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub decode_html_entities {
my ($type, $string) = @_;
# Entities: & | é @ " # ' ( § ^ è ! ç { à } ) ° - _ ^ ¨ $ * ù % ´ µ £ ` , ? ; . : / = + ~ < > \ ² ³ €
use HTML::Entities;
my $htmlEntityString;
if ($type eq 'A') { # convert All entities
$htmlEntityString = decode_entities($string);
} elsif ($type eq 'C') { # Comment data
$htmlEntityString = decode_entities($string, ' &|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:=\+~²³€');
} elsif ($type eq 'D') { # Debug data
$htmlEntityString = decode_entities($string, '<> &|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:\/=\+~²³€');
} elsif ($type eq 'E') { # Error status message
$htmlEntityString = decode_entities($string, '&|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:\/=\+~²³€');
} elsif ($type eq 'K') { # primary Key
$htmlEntityString = decode_entities($string, '<> &|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:\/=\+~²³€');
} elsif ($type eq 'M') { # status Message
$htmlEntityString = decode_entities($string, '<> &|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:\/=\+~²³€');
} elsif ($type eq 'S') { # Status
$htmlEntityString = decode_entities($string, '<>');
} elsif ($type eq 'T') { # Title
$htmlEntityString = decode_entities($string, '<> &|é@"#(§^è!ç{à})\'°\-_^¨\$\*ù%´µ£`,?;.:\/=\+~²³€');
} elsif ($type eq 'U') { # Url
$htmlEntityString = decode_entities($string, '& ');
} elsif ($type eq 'V') { # session Variable
$htmlEntityString = decode_entities($string);
} else {
$htmlEntityString = $string;
}
return ($htmlEntityString);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub print_header {
my ($HTML, $pagedir, $pageset, $htmlTitle, $subTitle, $refresh, $onload, $openPngImage, $headScript, $sessionID, $stylesheet) = @_;
my ($pageDir, $environment) = split (/\//, $pagedir, 2);
$environment = 'P' unless (defined $environment);
my $sessionIdOrCookie = ( defined $sessionID ) ? "&CGISESSID=$sessionID" : "&CGICOOKIE=1";
my $reloadOrToggle = ( $subTitle =~ /^(?:Full View|Condenced View|Minimal Condenced View)$/ ) ? "<A HREF=\"#\" onClick=\"togglePageDirCookie('pagedir_id_${pageDir}_${environment}', '$HTTPSURL/nav/$pagedir')\">" : "<A HREF=\"#\" onClick=\"reloadP...
my $selectEnvironment = (( $pagedir ne '<NIHIL>' and $pageset ne '<NIHIL>' ) ? '<form action="" name="environment"><select name="environment" size="1" onChange="loadEnvironmentPageDirCookie(\'' .$pageDir. '\', this.options[this.selectedIndex].value...
my $showToggle = ($pagedir ne '<NIHIL>') ? $reloadOrToggle : "<A HREF=\"$HTTPSURL/cgi-bin/$pageset/index.pl?pagedir=$pagedir&pageset=$pageset&debug=F$sessionIdOrCookie\">";
$showToggle .= "<IMG SRC=\"$IMAGESURL/toggle.gif\" title=\"Toggle\" alt=\"Toggle\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0></A>";
my $showReport = ($pagedir ne '<NIHIL>') ? "<A HREF=\"$HTTPSURL/nav/$pagedir/reports-$pageset.html\"><IMG SRC=\"$IMAGESURL/report.gif\" title=\"Report\" alt=\"Report\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0></A>" : '';
my $showOnDemand = ($pagedir ne '<NIHIL>') ? "<A HREF=\"$HTTPSURL/cgi-bin/runCmdOnDemand.pl?pagedir=$pagedir&pageset=$pageset$sessionIdOrCookie\"><IMG SRC=\"$IMAGESURL/ondemand.gif\" title=\"On demand\" alt=\"On demand\" WIDTH=\"32\" HEIGHT=\"2...
my $showData = ($pagedir ne '<NIHIL>') ? "<A HREF=\"$HTTPSURL/cgi-bin/getArchivedReport.pl?pagedir=$pagedir&pageset=$pageset$sessionIdOrCookie\"><IMG SRC=\"$IMAGESURL/data.gif\" title=\"Report Archive\" alt=\"Report Archive\" WIDTH=\"32\" H...
my $showAwstats = ($AWSTATSENABLED) ? "<A HREF=\"/awstats/awstats.pl\" target=\"_blank\"><IMG SRC=\"$IMAGESURL/awstats.gif\" title=\"Awstats\" alt=\"Awstats\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0></A>" : '';
my $showInfo = "<A HREF=\"$HTTPSURL/cgi-bin/info.pl?pagedir=$pagedir&pageset=$pageset$sessionIdOrCookie\"><IMG SRC=\"$IMAGESURL/info.gif\" title=\"Info\" alt=\"Info\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0></A>";
$stylesheet = "asnmtap.css" unless ( defined $stylesheet );
my $metaRefresh = ( $onload =~ /^\QONLOAD="startRefresh();\E/ ) ? "" : "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"$refresh\">";
my ($showRefresh, $showSound, $showJSFX) = ('', '', '');
my (undef, $cMonth, $cDay) = Today();
if ( ( $pagedir =~ /^(?:index|test)$/ ) and ( ( $cMonth == 01 and $cDay == 01 ) || ( $cMonth == 02 and $cDay == 14 ) || ( $cMonth == 12 and $cDay > 21 and $cDay < 29 ) || ( $cMonth == 12 and $cDay == 31 ) ) ) {
$showJSFX .= "<script language=\"JavaScript\" SRC=\"$HTTPSURL/JSFX_Layer.js\"></script>\n<script language=\"JavaScript\" SRC=\"$HTTPSURL/JSFX_Browser.js\"></script>\n<script language=\"JavaScript\" SRC=\"$HTTPSURL/";
if ( $cMonth == 01 and $cDay == 01 ) {
$showJSFX .= 'JSFX_Fireworks2.js';
} elsif ( ( $cMonth == 02 and $cDay == 14 ) || ( $cMonth == 10 and $cDay == 31 ) ) {
$showJSFX .= 'JSFX_Halloween.js';
} elsif ( $cMonth == 12 and $cDay == 31 ) {
$showJSFX .= 'JSFX_Fireworks.js';
} else {
$showJSFX .= 'JSFX_Falling.js';
}
$showJSFX .= "\"></script>\n<script language=\"JavaScript\">\n function JSFX_StartEffects() {\n";
if ( $cMonth == 01 and $cDay == 01 ) {
$showJSFX .= " JSFX.FireworkDisplay2(1);\n";
} elsif ( $cMonth == 02 and $cDay == 14 ) {
$showJSFX .= " JSFX.AddGhost(\"$IMAGESURL/cupido.gif\");\n";
} elsif ( $cMonth == 04 and $cDay == 18 ) {
$showJSFX .= " JSFX.Falling(1, \"E=mc²\", 60);\n";
} elsif ( $cMonth == 10 and $cDay == 31 ) {
$showJSFX .= " JSFX.AddGhost(\"$IMAGESURL/ghost.gif\");\n";
} elsif ( $cMonth == 12 ) {
if ( $cDay > 21 and $cDay < 29 ) {
$showJSFX .= " JSFX.Falling(1, \"<IMG SRC='$IMAGESURL/snowflake-1.gif'>\", 20);\n JSFX.Falling(1, \"<IMG SRC='$IMAGESURL/snowflake-2.gif'>\", 40);\n JSFX.Falling(1, \"<IMG SRC='$IMAGESURL/snowflake-3.gif'>\", 60);\n JSFX.Falling(1...
} elsif ( $cDay == 31 ) {
$showJSFX .= " JSFX.FireworkDisplay(1);\n";
}
} else {
$showJSFX .= " JSFX.Falling(1, \"Happy Birthday\", 60);\n";
}
$showJSFX .= " }\n\n JSFX_StartEffects()\n</script>\n";
}
print $HTML <<EndOfHtml;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>${ENVIRONMENT{$environment}}: $APPLICATION @ $BUSINESS</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="Expires" CONTENT="Wed, 10 Dec 2003 00:00:01 GMT">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
( run in 2.208 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )