ASNMTAP
view release on metacpan or search on metacpan
- check_template-WebTransact-XML-Monitoring-1.2.pl
- /dtd/Fingerprint-1.0-and-monitoring-1.2-xml-validator.html
- /dtd/Monitoring-1.2.dtd
- /xml/Monitoring-1.2.xml
- /xml/Monitoring-1.2-doNotValidate.xml
- /xml/Monitoring-1.2-errorParsing.xml
Version 3.000.021, 2009/xx/yy, by Alex Peeters
- ASNMTAP
- NEW /cgi-bin/moderator/downtimes.pl
Set downtimes by uploading of a uKey file
- NEW /plugins/templates/check_template-cluster.pl
- UPDATE applications/tools/mysql/asnmtap-3.000.021.sql
- UPDATE applications/tools/mysql/asnmtap-3.000.021_mysql-v5.0.x.sql
- UPDATE applications/tools/mysql/asnmtap-3.000.021-distributed.sql
- UPDATE applications/tools/mysql/asnmtap-3.000.021-distributed_mysql-v5.0.x.sql
Version 3.000.020, 2009/04/19, by Alex Peeters
- ASNMTAP
- UPDATE /plugins/templates/snmptt/
- NEW check_SNMPTT_oracle.pl
/sbin/purge_table.pl
- FIX regarding: Can't create emailReport
- FIX snmptt-3.000.015.sql: Cannot dbh->do: DELETE FROM `snmptt_unknown_archive` WHERE archivetime < "1161727200"
/detailedStatisticsReportGenerationAndCompareResponsetimeTrends.pl
- ADD show comments
- ADD short description
- FIX Use of uninitialized value in concatenation (.) or string at line 333
/moderator/collectorDaemonSchedulingReports.pl
- FIX Use of uninitialized value in split at line 79.
/moderator/plugins.pl
- NEW Plugins (to edit short description, trendline, holiday bundle and uploading plugindoc)
/moderator/trendlineCorrectionReports.pl
- FIX Use of uninitialized value in split at line 93.
- FIX Possible precedence problem on bitwise & operator at line 117.
- FIX switch startdate with enddate
/admin/reports.pl
- ADD show comments
- NEW Select 'Reports Perfdata'
/admin/reports_perfdata.pl
- NEW Reports Perfdata (to define the 'Performance Times' that are used by the automatically generated Reports)
/sadmin/crontabs.pl
- FIX interval/step must be greather then 0!
getArchivedDisplays.pl
- NEW Archived Displays
generateConfig.pl
- FIX all SQL select statements regarding *.activated = 1 and add when needed
- added print text to fix rights regarding chmod 755 for new CollectorCT-.*sh or DisplayCT-.*sh script
- added edit, delete, duplicate and maintenance button for 'Plugin' and 'Help Plugin Filename'
holidayBundleSetDowntimes.pl
- FIX Global symbol "$SERVERTABLENVIRONMENT" requires explicit package name at ./holidayBundleSetDowntimes.pl line 152.
plugins.pl
- making it possible to edit 'Help Plugin Filename' manual or by uploading and to clear with '<NIHIL>'
runStatusOnDemand.pl
- UPDATE doRequestedActions: added -o 'StrictHostKeyChecking=no' -o 'UserKnownHostsFile=$WWWKEYPATH/.ssh/known_hosts'
rsync-wrapper-*.sh
- UPDATE advanced debug information
- UPDATE making rsync version 2.6.7
/applications/bin/
- UPDATE generateCollectorDaemonSchedulingReports.sh
- UPDATE generateReports.sh
- UPDATE holidayBundleSetDowntimes.sh
/applications/sbin/
- een plugin die disabled is waarvoor een rapport gevraagd wordt niet uitvoeren
- specify F for --daysAfter means that the specified date will be used as the reportdate
generateReports.pl & generateCollectorDaemonSchedulingReports.pl
- ... already generated / will be generated
- ... generated / generation failed
generatedReports.pl, plugins & reports.pl
- remove 'reportTitle'
get_ArchivedReport.pl & get_ArchivedResults.pl
- replace 'Week #' with 'Week # from monday off week until sunday off week'
plugins.pl
- upload for Help Plugin Filename (PDF)
- controle op '{}' bij ingeven van de value voor het veld 'Title:'
pluginCrontabSchedulingReports.pl
- show only the Plugins regarding correspondending server
removeModulePerl.pl
- NEW
rsync-mirror-*.sh
- replace: rsync -e "ssh -i $KeyRsync" -a $Delete $AdditionalParams $Source $Target
with: ssh=<sshpath>; $Rsync -e "$ssh -i $KeyRsync" -a $Delete $AdditionalParams $Source $Target
runCmdOnDemand.pl
- mask password for '--dnPass=', used by check_template-ldap.pl
- Session Console (for the Display)
- Status Console (for the Collector/Display)
- Trendline Correction Reports (for the Collector)
- Plugin Crontab Scheduling Reports (for the Collector)
- Collector Crontab Scheduling Reports (for the Collector)
- Collector Daemon Scheduling Reports (for the Collector)
- Plugins (to edit short description, trendline, holiday bundle and uploading plugindoc)
4) Guest and members at http://asnmtap.citap.com/asnmtap/nav/index/
... TODO ...
RSYNC tussen PROBE en CENTRALE servers
--------------------------------------
applications/htmlroot/cgi-bin/admin/generateConfig.pl view on Meta::CPAN
if ( defined $numberCatalogCentralServers and $numberCatalogCentralServers != 1 ) {
$countErrors++;
$matchingErrors .= "<tr bgcolor=\"$COLORSTABLE{NOBLOCK}\"><td>$numberCatalogCentralServers</td><td>there can be only one activated central monitoring server into the catalog</td><td> </td></tr>";
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$matchingWarnings .= "<tr bgcolor=\"$COLORSTABLE{TABLE}\"><td align=\"center\" colspan=\"3\"> </td></tr>";
# plugins uploaded <-> plugins configurated - - - - - - - - - - - -
$matchingWarnings .= "<tr bgcolor=\"$COLORSTABLE{ENDBLOCK}\"><td align=\"center\" colspan=\"3\">Plugins Uploaded <-> Plugins Configurated</td></tr><tr bgcolor=\"$COLORSTABLE{STARTBLOCK}\"><td>Plugin</td><td>Message</td><td align=\"center\">Acti...
$sql = "SELECT DISTINCT test FROM $SERVERTABLPLUGINS where catalogID = '$CATALOGID' and activated = 1";
$sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID) if $rv;
$sth->bind_columns( \$test) or $rv = error_trap_DBI(*STDOUT, "Cannot sth->bind_columns: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID) if $rv;
if ( $rv ) {
if ( $sth->rows ) {
my @plugins = glob("$PLUGINPATH/*.pl");
applications/htmlroot/cgi-bin/admin/generateConfig.pl view on Meta::CPAN
}
$teller++
}
}
foreach my $pluginPath (@plugins) {
if (defined $pluginPath) {
(undef, my $plugin) = split (/^$PLUGINPATH\//, $pluginPath);
$actionItem = "<a href=\"$urlWithAccessParameters&action=updateView&plugin=$plugin&todo=delete\" target=\"_blank\"><img src=\"$IMAGESURL/$ICONSRECORD{delete}\" title=\"Delete Plugin\" alt=\"Delete Plugin\" border=\"0\"></a>"...
$matchingWarnings .= "<tr bgcolor=\"$COLORSTABLE{NOBLOCK}\"><td>$plugin</td><td>plugin uploaded without plugin configuration</td><td align=\"center\">$actionItem</td></tr>";
$countWarnings++;
}
}
}
$sth->finish() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->finish: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID);
}
# plugins configurated <-> plugins uploaded - - - - - - - - - - - -
$matchingWarnings .= "<tr bgcolor=\"$COLORSTABLE{ENDBLOCK}\"><td align=\"center\" colspan=\"3\">Plugins Configurated <-> Plugins Uploaded</td></tr><tr bgcolor=\"$COLORSTABLE{STARTBLOCK}\"><td>Plugin</td><td>Message</td><td align=\"center\">Acti...
$matchingErrors .= "<tr bgcolor=\"$COLORSTABLE{ENDBLOCK}\"><td align=\"center\" colspan=\"3\">Plugins Configurated <-> Plugins Uploaded</td></tr><tr bgcolor=\"$COLORSTABLE{STARTBLOCK}\"><td>Plugin</td><td>Message</td><td align=\"center\">Action...
$sql = "SELECT DISTINCT test FROM $SERVERTABLPLUGINS where catalogID = '$CATALOGID' and activated = 1";
$sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID) if $rv;
$sth->bind_columns( \$test) or $rv = error_trap_DBI(*STDOUT, "Cannot sth->bind_columns: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID) if $rv;
if ( $rv ) {
if ( $sth->rows ) {
while( $sth->fetch() ) {
if (! -e "$PLUGINPATH/$test") {
$actionItem = "<a href=\"$urlWithAccessParameters&action=updateView&plugin=$test&todo=edit\" target=\"_blank\"><img src=\"$IMAGESURL/$ICONSRECORD{edit}\" title=\"Edit Plugin\" alt=\"Edit Plugin\" border=\"0\"></a>";
$matchingWarnings .= "<tr bgcolor=\"$COLORSTABLE{NOBLOCK}\"><td>$test</td><td>plugin configuration without plugin uploaded</td><td align=\"center\">$actionItem</td></tr>";
$countWarnings++;
} else {
my $sb = stat("$PLUGINPATH/$test");
unless ( $sb->mode == 33261 or $sb->mode == 33256 ) { # 0755 = 33261 & 0750 = 33256
$actionItem = "<a href=\"$urlWithAccessParameters&action=updateView&plugin=$test&todo=maintenance\" target=\"_blank\"><img src=\"$IMAGESURL/$ICONSRECORD{maintenance}\" title=\"Rights Plugin\" alt=\"Rights Plugin\" border=\...
$matchingErrors .= "<tr bgcolor=\"$COLORSTABLE{NOBLOCK}\"><td>$test</td><td>plugin configuration with plugin uploaded but without wanted excecution rights</td><td align=\"center\">$actionItem</td></tr>";
$countErrors++;
}
}
}
}
$sth->finish() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->finish: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, -1, '', $sessionID);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
applications/htmlroot/cgi-bin/admin/index.pl view on Meta::CPAN
<tr><td class="StatusItem"><a href="../moderator/runStatusOnDemand.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Status Console (for the Collector/Display/Import Data Through Catalog)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/trendlineCorrectionReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Trendline Correction Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/pluginCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugin Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/collectorCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/collectorDaemonSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Daemon Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/comments.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Comments (to set the comments for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/downtimes.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Downtimes (to set the downtime for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/plugins.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugins (to edit short description, trendline, holiday bundle and uploading plugindoc)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><font size="+1">Administrator</font></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="languages.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Languages</a></td></tr>
<tr><td class="StatusItem"><a href="countries.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Countries</a></td></tr>
<tr><td class="StatusItem"><a href="timeperiods.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Timeperiods</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="holidays.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Holidays</a></td></tr>
<tr><td class="StatusItem"><a href="holidaysBundle.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Holidays Bundle</a></td></tr>
applications/htmlroot/cgi-bin/admin/plugins.pl view on Meta::CPAN
$ChelpPluginFilename = ( $ChelpPluginTextname eq '' ? '<NIHIL>' : $ChelpPluginTextname );
$ChelpPluginTextname = '';
} else {
if ( $cgi->param('helpPluginFilename') eq '' ) {
$ChelpPluginFilename = $ChelpPluginTextname;
$ChelpPluginTextname = '';
} else {
$ChelpPluginFilename =~ s/^.*(?:\/|\\)//;
$ChelpPluginTextname = '<br><br>Help Plugin Filename: '. $ChelpPluginFilename;
my $type = $cgi->uploadInfo( $cgi->param('helpPluginFilename') )->{'Content-Type'};
if ( $type eq 'application/pdf') {
my $fhOpen = open( FHOPEN, ">$PDPHELPPATH/$ChelpPluginFilename" );
if ($fhOpen) {
binmode FHOPEN;
my $fh = $cgi->upload('helpPluginFilename');
if ( defined $fh ) {
while (<$fh>) { print FHOPEN; }
$ChelpPluginTextname .= ', Uploaded and wrote file OK!';
} else {
$ChelpPluginTextname .= ', Cannot upload PDF file!';
}
close FHOPEN;
} else {
$ChelpPluginFilename = '<NIHIL>';
$ChelpPluginTextname .= ', Cannot create PDF file!';
}
} else {
$ChelpPluginFilename = '<NIHIL>';
$ChelpPluginTextname .= ', PDF files only!';
applications/htmlroot/cgi-bin/moderator/downtimes.pl view on Meta::CPAN
# URL Access Parameters
my $cgi = new CGI;
my $pagedir = (defined $cgi->param('pagedir')) ? $cgi->param('pagedir') : '<NIHIL>'; $pagedir =~ s/\+/ /g;
my $pageset = (defined $cgi->param('pageset')) ? $cgi->param('pageset') : 'moderator'; $pageset =~ s/\+/ /g;
my $debug = (defined $cgi->param('debug')) ? $cgi->param('debug') : 'F';
my $pageNo = (defined $cgi->param('pageNo')) ? $cgi->param('pageNo') : 1;
my $pageOffset = (defined $cgi->param('pageOffset')) ? $cgi->param('pageOffset') : 0;
my $action = (defined $cgi->param('action')) ? $cgi->param('action') : 'insertView';
my $CcatalogID = (defined $cgi->param('catalogID')) ? $cgi->param('catalogID') : $CATALOGID;
my $Cid = (defined $cgi->param('id')) ? $cgi->param('id') : '';
my $CuploadFilename = (defined $cgi->param('uploadFilename')) ? $cgi->param('uploadFilename') : '<NIHIL>';
my $Ctitle = (defined $cgi->param('title')) ? $cgi->param('title') : '';
my $Cinstability = (defined $cgi->param('instability')) ? $cgi->param('instability') : 'off';
my $Cpersistent = (defined $cgi->param('persistent')) ? $cgi->param('persistent') : 'off';
my $Cdowntime = (defined $cgi->param('downtime')) ? $cgi->param('downtime') : 'on';
my $CactivationDate = (defined $cgi->param('activationDate')) ? $cgi->param('activationDate') : '';
my $CactivationTime = (defined $cgi->param('activationTime')) ? $cgi->param('activationTime') : '';
my $CsuspentionDate = (defined $cgi->param('suspentionDate')) ? $cgi->param('suspentionDate') : '';
my $CsuspentionTime = (defined $cgi->param('suspentionTime')) ? $cgi->param('suspentionTime') : '';
my $CremoteUser = (defined $cgi->param('remoteUser')) ? $cgi->param('remoteUser') : 'none';
my $CcommentData = (defined $cgi->param('commentData')) ? $cgi->param('commentData') : '';
applications/htmlroot/cgi-bin/moderator/downtimes.pl view on Meta::CPAN
my $htmlTitle = $APPLICATION;
# Init parameters
my ($rv, $dbh, $sth, $sql, $catalogID_uKey, $nextAction, $remoteUsersSelect, $CatalogIDuKeyListStatus, @CatalogIDuKeyList);
# User Session and Access Control
my ($sessionID, undef, undef, undef, undef, undef, undef, $errorUserAccessControl, $remoteUserLoggedOn, undef, undef, $givenNameLoggedOn, $familyNameLoggedOn, undef, undef, $userType, undef, undef, undef, $subTitle) = user_session_and_access_control ...
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&action=$action&id=$Cid&uploadFilename=$CuploadFilename&title=$Ctitle&activationDate=$CactivationDate&activationTime=$...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>page no : $pageNo<br>page offset : $pageOffset<br>action : $action<br>id : $Cid<br>uploadFilename: $...
if ( defined $sessionID and ! defined $errorUserAccessControl ) {
unless ( defined $userType ) {
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', 'F', '', $sessionID);
print "<br>\n<table WIDTH=\"100%\" border=0><tr><td class=\"HelpPluginFilename\">\n<font size=\"+1\">$errorUserAccessControl</font>\n</td></tr></table>\n<br>\n";
} else {
if ( $action eq 'insert' ) {
if ( $CuploadFilename eq '' or $CuploadFilename eq '<NIHIL>' ) {
$CatalogIDuKeyListStatus = 'ERROR: No applications CatalogID & uKey list selected!';
} else {
if ( $cgi->param('uploadFilename') eq '' ) {
$CatalogIDuKeyListStatus = 'ERROR: No applications CatalogID & uKey list uploaded!';
} else {
$CuploadFilename =~ s/^.*(?:\/|\\)//;
$Ctitle = 'Applications CatalogID & uKey List: '. $CuploadFilename;
my $type = $cgi->uploadInfo( $cgi->param('uploadFilename') )->{'Content-Type'};
if ( $type eq 'text/plain' ) {
my $fh = $cgi->upload('uploadFilename');
if ( defined $fh ) {
my $uploadFilenameBoolean = 0;
while (<$fh>) {
s/(^\s*|\r*|\n*|\s*$)//g;
if ( /^#/ ) {
$uploadFilenameBoolean = 1 if ( /^# ASNMTAP DOWNTIMES$/ );
} elsif ( $uploadFilenameBoolean ) {
push (@CatalogIDuKeyList, $_) if ( $_ );
}
}
my $uploadStatus = ( $uploadFilenameBoolean ? 'OK' : 'NOT OK' );
$CatalogIDuKeyListStatus = "$Ctitle: Uploaded and imported file $uploadStatus!";
} else {
$CatalogIDuKeyListStatus = "ERROR: $Ctitle, Cannot upload TXT file!";
}
} else {
$CatalogIDuKeyListStatus = "ERROR: $Ctitle, TXT files only!";
}
$CatalogIDuKeyListStatus .= "</td></tr><tr><td colspan=\"2\"> ";
}
}
}
applications/htmlroot/cgi-bin/moderator/downtimes.pl view on Meta::CPAN
currentlySeconds = now.getSeconds();
var nowEpochtime = Date.UTC(currentlyFullYear, currentlyMonth, currentlyDay, currentlyHours, currentlyMinutes, currentlySeconds);
var objectRegularExpressionDateFormat = /\^20\\d\\d-\\d\\d-\\d\\d\$/;
var objectRegularExpressionDateValue = /\^20\\d\\d-(0[1-9]|1[012])-(0[1-9]|[12][0-9]|3[01])\$/;
var objectRegularExpressionTimeFormat = /\^\\d\\d:\\d\\d:\\d\\d\$/;
var objectRegularExpressionTimeValue = /\^[0-1]\\d|2[0-3]:[0-5]\\d:[0-5]\\d\$/;
if( document.downtimes.uploadFilename.value == null || document.downtimes.uploadFilename.value == '' ) {
document.downtimes.uploadFilename.focus();
alert('Please upload the applications uKey list!');
return false;
}
if( document.downtimes.remoteUser.options[document.downtimes.remoteUser.selectedIndex].value == 'none' ) {
document.downtimes.remoteUser.focus();
alert('Please create/select one of the remote users!');
return false;
}
if ( document.downtimes.commentData.value == null || document.downtimes.commentData.value == '' ) {
applications/htmlroot/cgi-bin/moderator/downtimes.pl view on Meta::CPAN
my $instabilityChecked = ($Cinstability eq 'on') ? ' checked' : '';
my $persistentChecked = ($Cpersistent eq 'on') ? ' checked' : '';
my $downtimeChecked = ($Cdowntime eq 'on') ? ' checked' : '';
print <<HTML;
<tr><td><table border="0" cellspacing="0" cellpadding="0">
<tr><td><b>Catalog ID: </b></td><td>
<input type="text" name="catalogID" value="$CcatalogID" size="5" maxlength="5" disabled>
</td></tr>
<tr><td><b>Applications uKey List: </b></td><td>
<input type="file" name="uploadFilename" size="100" accept="text/plain">
</td></tr><tr><td><b>Remote User: </b></td><td>
$remoteUsersSelect
</td>
</tr><tr>
<td valign="top"><b>Comment: </b></td>
<td><textarea name=commentData cols=84 rows=13>$CcommentData</textarea></td>
</tr><tr>
<td><b>Instability: </b></td>
<td><b><input type="checkbox" name="instability" $instabilityChecked $instabilityDisabled></b> 'checked' means 'instability' and 'not checked' means 'not instability'</td>
</tr><tr>
applications/htmlroot/cgi-bin/moderator/index.pl view on Meta::CPAN
<tr><td class="StatusItem"><a href="runStatusOnDemand.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Status Console (for the Collector/Display/Import Data Through Catalog)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="trendlineCorrectionReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Trendline Correction Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="pluginCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugin Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="collectorCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="collectorDaemonSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Daemon Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="comments.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Comments (to set the comments for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="downtimes.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Downtimes (to set the downtime for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="plugins.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugins (to edit short description, trendline, holiday bundle and uploading plugindoc)</a></td></tr>
</table>
</td></tr></table>
<br>
HTML
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
print_legend (*STDOUT);
print '</BODY>', "\n", '</HTML>', "\n";
applications/htmlroot/cgi-bin/moderator/plugins.pl view on Meta::CPAN
# User Session and Access Control
my ($sessionID, $iconAdd, $iconDelete, $iconDetails, $iconEdit, $iconQuery, $iconTable, $errorUserAccessControl, $remoteUserLoggedOn, undef, undef, $givenNameLoggedOn, $familyNameLoggedOn, undef, undef, undef, undef, undef, undef, $subTitle) = user_s...
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&filter=$filter&orderBy=$orderBy&action=$action&catalogID=$CcatalogID&catalogIDreload=$CcatalogIDreload&uKey=$CuKey&sh...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>page no : $pageNo<br>page offset : $pageOffset<br>filter : $filter<br>order by ...
my $uploadPluginStatus = 'OK';
if ( defined $sessionID and ! defined $errorUserAccessControl ) {
if ( $ChelpPluginFilename eq '' or $ChelpPluginFilename eq '<NIHIL>' ) {
$ChelpPluginFilename = ( $ChelpPluginTextname eq '' ? '<NIHIL>' : $ChelpPluginTextname );
$ChelpPluginTextname = '';
} else {
if ( $cgi->param('helpPluginFilename') eq '' ) {
$ChelpPluginFilename = $ChelpPluginTextname;
$ChelpPluginTextname = '';
} else {
$ChelpPluginFilename =~ s/^.*(?:\/|\\)//;
$ChelpPluginTextname = '<br><br>Help Plugin Filename: '. $ChelpPluginFilename;
my $type = $cgi->uploadInfo( $cgi->param('helpPluginFilename') )->{'Content-Type'};
if ( $type eq 'application/pdf') {
my $fhOpen = open( FHOPEN, ">$PDPHELPPATH/$ChelpPluginFilename" );
if ($fhOpen) {
binmode FHOPEN;
my $fh = $cgi->upload('helpPluginFilename');
if ( defined $fh ) {
while (<$fh>) { print FHOPEN; }
$ChelpPluginTextname .= ', Uploaded and wrote file OK!';
} else {
$uploadPluginStatus = 'UNKNOWN';
$ChelpPluginTextname .= ', Cannot upload PDF file!';
}
close FHOPEN;
} else {
$uploadPluginStatus = 'UNKNOWN';
$ChelpPluginFilename = '<NIHIL>';
$ChelpPluginTextname .= ', Cannot create PDF file!';
}
} else {
$uploadPluginStatus = 'UNKNOWN';
$ChelpPluginFilename = '<NIHIL>';
$ChelpPluginTextname .= ', PDF files only!';
}
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my ($title, $environmentLabel, $catalogIDSelect, $holidayBundleSelect, $matchingPlugins, $navigationBar, $generatePluginCrontabSchedulingReport);
applications/htmlroot/cgi-bin/moderator/plugins.pl view on Meta::CPAN
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID) if $rv;
if ( $rv ) {
my ($Otitle, $OshortDescription, $Otrendline, $OhelpPluginFilename, $OholidayBundleID) = $sth->fetchrow_array() or $rv = error_trap_DBI(*STDOUT, "Cannot $sth->fetchrow_array: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '',...
$sth->finish() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->finish: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$sql = 'UPDATE ' .$SERVERTABLPLUGINS. ' SET catalogID="' .$CcatalogID. '", uKey="' .$CuKey. '", shortDescription="' .$CshortDescription. '", trendline="' .$Ctrendline. '", helpPluginFilename="' .$ChelpPluginFilename. '", holidayBundleID="' .$...
$dbh->do ( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->do: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$matchingPlugins = "User = $givenNameLoggedOn, $familyNameLoggedOn ($remoteUserLoggedOn)\n\ncatalogID = $CcatalogID\n\nuKey = $CuKey\n\ntitle = $Otitle\n\nshortDescription old:\n$OshortDescrip...
my $subject = "ASNMTAP ~ Moderator: $uploadPluginStatus, $htmlTitle regarding short description, trendline, holiday bundle and/or uploading plugindoc: ". get_csvfiledate();
my $message = "Geachte, Cher,\n\n\n$matchingPlugins\n\n\n-- Moderator\n\n$APPLICATION\n$DEPARTMENT\n$BUSINESS\n";
unless ( sending_mail ( $SERVERLISTSMTP, $SENDEMAILTO, $SENDMAILFROM, $subject, $message, 0 ) ) {
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', 'F', '', $sessionID);
print "<H1>MAIL Error:</H1>\nProblem sending email to the '$APPLICATION' server administrators\n<BR>\n";
}
}
$nextAction = "listView" if ($rv);
} elsif ($action eq 'listView') {
applications/htmlroot/cgi-bin/sadmin/index.pl view on Meta::CPAN
<tr><td class="StatusItem"><a href="../moderator/runStatusOnDemand.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Status Console (for the Collector/Display/Import Data Through Catalog)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/trendlineCorrectionReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Trendline Correction Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/pluginCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugin Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/collectorCrontabSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Crontab Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/collectorDaemonSchedulingReports.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Collector Daemon Scheduling Reports (for the Collector)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../moderator/comments.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Comments (to set the comments for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/downtimes.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Downtimes (to set the downtime for a group of related tests)</a></td></tr>
<tr><td class="StatusItem"><a href="../moderator/plugins.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Plugins (to edit short description, trendline, holiday bundle and uploading plugindoc)</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><font size="+1">Administrator</font></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../admin/languages.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Languages</a></td></tr>
<tr><td class="StatusItem"><a href="../admin/countries.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Countries</a></td></tr>
<tr><td class="StatusItem"> </td></tr>
<tr><td class="StatusItem"><a href="../admin/holidays.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Holidays</a></td></tr>
<tr><td class="StatusItem"><a href="../admin/holidaysBundle.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Holidays Bundle</a></td></tr>
<tr><td class="StatusItem"><a href="../admin/timeperiods.pl?pagedir=$pagedir&pageset=$pageset&debug=F&CGISESSID=$sessionID">Timeperiods</a></td></tr>
lib/ASNMTAP/Asnmtap/Applications/CGI.pod view on Meta::CPAN
=item collectorDaemonSchedulingReports.pl
this program allow you to create all the collector daemon scheduling reports through the CGI Interface.
=item comments.pl
this program allow you to set comments by selecting a uKey from a drop and drag list for one ore more tests through the CGI Interface.
=item downtimes.pl
this program allow you to set downtimes by uploading a uKey list for a group of tests through the CGI Interface.
Format uKey without CatalogID (uses default CatalogID) list upload file, example: CatalogIDuKeyList.txt
# ASNMTAP DOWNTIMES
DUMMY-T1
DUMMY-T3
DUMMY-T5
EOF
or Format uKey with CatalogID list upload file, example: CatalogIDuKeyList.txt
# ASNMTAP DOWNTIMES
CID_DUMMY-T1
CID_DUMMY-T3
CID_DUMMY-T5
EOF
=item generateCollectorCrontabSchedulingReport.pl
this program allow you to create one collector crontab scheduling report through the CGI Interface.
( run in 0.962 second using v1.01-cache-2.11-cpan-b16cb0d3907 )