ASNMTAP
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
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">
$metaRefresh
<link rel="stylesheet" type="text/css" href="$HTTPSURL/$stylesheet">
$headScript
<script language="JavaScript1.2" type="text/javascript">
var pagedir_prefix = new Array();
pagedir_prefix[0] = "";
pagedir_prefix[1] = "-cv";
pagedir_prefix[2] = "-mcv";
function getPageDirCookie( name ) {
var prefix = name + '=';
var ca = document.cookie.split( ';' );
for( var i=0; i < ca.length; i++ ) {
var c = ca[i];
while ( c.charAt( 0 ) == ' ' ) c = c.substring( 1, c.length );
if ( c.indexOf( prefix ) == 0 ) return unescape( c.substring( prefix.length, c.length ) );
}
return null;
}
function deletePageDirCookie( name ) { setPageDirCookie( name, '', '', -1 ); }
function setPageDirCookie( name, url, value, days ) {
var expires = '';
if ( days ) {
(time = new Date()).setTime( new Date().getTime() + days * 24 * 60 * 60 * 1000);
expires = "; expires=" + time.toGMTString();
}
document.cookie = name + "=" + escape(value) + expires + "; path=/";
}
function loadEnvironmentPageDirCookie ( pageDir, environment ) {
var name = 'pagedir_id_' + pageDir + '_' + environment;
var url = '$HTTPSURL/nav/' + pageDir + '/';
if (environment != 'P') { url += environment + '/'; }
reloadPageDirCookie( name, url );
}
function reloadPageDirCookie( name, url ) {
var pagedir_id = getPageDirCookie( name );
if (pagedir_id == null || pagedir_id == "" || pagedir_id < 0 || pagedir_id > 2) {
pagedir_id = 0;
setPageDirCookie ( name, url, pagedir_id, 365 );
}
window.location = url + "/index" + pagedir_prefix[pagedir_id] + ".html";
}
function togglePageDirCookie( name, url ) {
var pagedir_id = getPageDirCookie( name );
if (pagedir_id != null && pagedir_id != "" && pagedir_id > 0 && pagedir_id <= 2) {
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
}
function openPngImage(u,W,H,X,Y,n,b,x,t, m,r) {
var tH = '<font face=verdana color=#0000FF size=1>' + t + '<\\/font>';
var tW = ' ' + t;
var wB = '#0000FF';
var wBs = '#0000FF';
var wBG = '#000066';
var wBGs= '#000000';
var wNS = 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0';
var fSO = 'scrolling=yes noresize';
var brd = b;
var bli = 1;
var max = x||false;
var res = r||false;
var min = m||true;
var tsz = 20;
return chromeless(u,n,W,H,X,Y,tH,tW,wB,wBs,wBG,wBGs,wNS,fSO,brd,bli,max,min,res,tsz);
}
</script>
EndOfHtml
}
print $HTML <<EndOfHtml;
</head>
<BODY $onload>
$showJSFX
<TABLE WIDTH="100%"><TR>
<TD ALIGN="LEFT" WIDTH="292">
$showToggle
$showReport
$showOnDemand
$showData
$showAwstats
$showInfo
$showRefresh
$showSound
</TD>
<td class="HeaderTitel">$htmlTitle</td><td width="180" class="HeaderSubTitel">$subTitle</td><td width="1" valign="middle">$selectEnvironment</td>
</TR></TABLE>
<HR>
EndOfHtml
if ( $pagedir ne '<NIHIL>' and $pageset ne '<NIHIL>' ) {
my $showToggle = "<A HREF=\"#\" onClick=\"reloadPageDirCookie('pagedir_id_${pageDir}_${environment}', '$HTTPSURL/nav/$pagedir')\">";
$showToggle .= "<IMG SRC=\"$IMAGESURL/toggle.gif\" title=\"Toggle\" alt=\"Toggle\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0></A>";
my $directory = $HTTPSPATH ."/nav/". $pagedir;
next unless (-e "$directory");
my $reportFilename = $directory . '/reports-' . $pageset . '.html';
unless ( -e "$reportFilename" ) { # create $reportFilename
my $rvOpen = open(REPORTS, ">$reportFilename");
if ($rvOpen) {
print REPORTS <<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">
<META HTTP-EQUIV="Refresh" CONTENT="$refresh">
<link rel="stylesheet" type="text/css" href="$HTTPSURL/asnmtap.css">
<script language="JavaScript1.2" type="text/javascript">
var pagedir_prefix = new Array();
pagedir_prefix[0] = "";
pagedir_prefix[1] = "-cv";
pagedir_prefix[2] = "-mcv";
function getPageDirCookie( name ) {
var prefix = name + '=';
var ca = document.cookie.split( ';' );
for( var i=0; i < ca.length; i++ ) {
var c = ca[i];
while ( c.charAt( 0 ) == ' ' ) c = c.substring( 1, c.length );
if ( c.indexOf( prefix ) == 0 ) return unescape( c.substring( prefix.length, c.length ) );
}
return null;
}
function deletePageDirCookie( name ) { setPageDirCookie( name, '', '', -1 ); }
function setPageDirCookie( name, url, value, days ) {
var expires = '';
if ( days ) {
(time = new Date()).setTime( new Date().getTime() + days * 24 * 60 * 60 * 1000);
expires = "; expires=" + time.toGMTString();
}
document.cookie = name + "=" + escape(value) + expires + "; path=/";
}
function loadEnvironmentPageDirCookie ( pageDir, environment ) {
var name = 'pagedir_id_' + pageDir + '_' + environment;
var url = '$HTTPSURL/nav/' + pageDir + '/';
if (environment != 'P') { url += environment + '/'; }
reloadPageDirCookie( name, url );
}
function reloadPageDirCookie( name, url ) {
var pagedir_id = getPageDirCookie( name );
if (pagedir_id == null || pagedir_id == "" || pagedir_id < 0 || pagedir_id > 2) {
pagedir_id = 0;
setPageDirCookie ( name, url, pagedir_id, 365 );
}
window.location = url + "/index" + pagedir_prefix[pagedir_id] + ".html";
}
function togglePageDirCookie( name, url ) {
var pagedir_id = getPageDirCookie( name );
if (pagedir_id != null && pagedir_id != "" && pagedir_id > 0 && pagedir_id <= 2) {
if (pagedir_id < 2) {
( run in 1.130 second using v1.01-cache-2.11-cpan-0bb4e1dffa6 )