ASNMTAP
view release on metacpan or search on metacpan
* 1822759 A first time config generate/install doesn't say what actions need to be done on a server (FIX)
# FEATURE REQUEST - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Yves Van den Hove <yvdhove@users.sourceforge.net>
* 1727568 Bij wisselen omgeving op dezelfde pagina blijven.
* 1725445 Groeperen Mails
* 1768193 PDF issues with Adobe Acrobat 8
* 1768190 Please filter out the passwords from the HTML dump files for J2EE based Applications
* 1724056 Timeout for Webtransact
* 1706596 Collapse error summary
Tom De Clercq <tomsworld@users.sourceforge.net>
* 1507255 Detailed Statistics and Report Generation - output
# CONTRIBUTORS - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- NEW timeperiods.pl
ASNMTAP::Asnmtap::Plugins and ASNMTAP::Asnmtap::Plugins::WebTransact
- FIX debug information must be into the debug file '*.html' or '*.html-KnownError' but never into both
- added info regarding keep_alive and SSL session resume
- added do not proxy requests to the given domains. Calling no_proxy without any domains clears the list of domains.
ASNMTAP::Asnmtap::Plugins::Nagios
- NEW check_fs-stat.pl
ASNMTAP::Asnmtap::Plugins::SOAP
- add TYPE_ERROR_RETURN
ASNMTAP::Asnmtap::Plugins::WebTransact & runCmdOnDemand.pl
- ADDED remove password from Basic Authentication URL before putting into database!
Version 3.000.012, 2006/12/20, Central and Distributed support
- added common variable TYPEMONITORING to Asnmtap.cnf
fixRights.sh
- updated: script om rechten (chmod en chown) te zetten
Makefile.PL
- version update CPAN 1.8802 & CPANPLUS 0.076
- version update ExtUtils::MakeMaker 6.31
- version update Module::AutoInstall 1.03
ASNMTAP::Asnmtap
- replace `::VERSION = 3.000.xxx` with `::VERSION = do { my @r = (q$Revision: 3.000.012$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };`
- replace `my $version = '3.000.xxx'` with `my $VERSION = do { my @r = (q$Revision: 3.000.012$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };`
ASNMTAP::Asnmtap::Applications
- NEW purge_table.pl
- add Environment after the Plugin Titles
- add our %ENVIRONMENT = ('P'=>'Production', 'S'=>'Simulation', 'A'=>'Acceptation', 'T'=>'Test', 'D'=>'Development', 'L'=>'Local');
- used into display.pl, comments.pl, contact.pl, getHelpPlugin.pl, info.pl, perfparse.pl, runCmdOnDemand.pl & users.pl
- Applications.pod updated regarding 'perl Makefile.PL INSTALL_BASE=/opt/asnmtap/cpan-shared'
ASNMTAP::Asnmtap::Plugins
- FIX replace: _programGetOptions => [..., 'password|passwd|p=s', ...],
with : _programGetOptions => [..., 'password|p|passwd=s', ...],
- FIX replace: push ( @{ $_[0]->{_programGetOptions} }, 'status|S:s', 'asnmtapEnv|A:s', 'onDemand|O:s', 'logging|L:s', 'debugfile|dumphttp|httpdump|D:s', 'debug|d:s' );
with : push ( @{ $_[0]->{_programGetOptions} }, 'status|S:s', 'asnmtapEnv|A:s', 'onDemand|O:s', 'logging|L:s', 'debugfile|D|dumphttp|httpdump:s', 'debug|d:s' );
- check_memory-top.pl, now also Solaris 10 compatible
- FIX '<environment>PROD</environment>' into check_template-mail-xml.pl & check_template-mail-xml-fingerprint-xml.pl
- replaced 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; ASNMTAP; U;' with 'Mozilla/4.7 (compatible; ASNMTAP; U;'
- NEW $ENV{HTTPS_VERSION} for v2, v3 and v23
ASNMTAP::Asnmtap::Plugins::Nagios
- NEW check_nagios-comments-cleanup.pl
- NEW EPN (Embedded Perl Nagios) compatible
ASNMTAP::Asnmtap::Plugins::NPTest
- Sending email for: Downtime Scheduling
detailedStatisticsReportGenerationAndCompareResponsetimeTrends.pl
- Problem details: link to the correspondending 'Debug Report' when 'Format Output' equals 'HTML'
detailedStatisticsReportGenerationAndCompareResponsetimeTrends.pl, generateChart.pl & trendlineCorrectionReports.pl
- replace round(avg(duration), 2) with round(avg(time_to_sec(duration)), 2) because of wrong averages
display.pl
- possibility for sound on/off
- onderdrukking ledige groepen in full view
- vermelden op welke probe een test wordt uitgevoerd
- onderdrukken niet persistent downtimes in condenced view
- mask password for '--dnPass=', used by check_template-ldap.pl
- environment icons, exclaim popup window for plugins and comments
- 'In Progress'-animated icon replaced with 'In Progress'-static icon for faster display!
- de debugrapporten onderaan de view enkel aanklikbaar maken als de file via rsync al aanwezig is op het moment van de display generatie, ter voorkoming van 404 errors.
- add console messages: 'No Monitored Applications', 'All Monitored Applications are OK', '..., probably collector/config problems!' & , '..., probably database problems!'
displayDaemons.pl
- add 'ServerID' into general view
detailedStatisticsReportGenerationAndCompareResponsetimeTrends.pl
- add a checkbox, to choose output destination: HTML/PDF
getArchivedReport.pl & getArchivedResults.pl
- YYYY/MM/DD notatie met voorloopnullen voor maand en dag
generateConfig.pl
- check for 'help plugin filenames' without plugin reference
- check for plugins without or with missing 'help plugin filename'
- looking after existing plugins that are not defined into the database plugins
- verify that the defined plugins into the table plugins, exists and are executable
- generate automatic the Rsync Mirror Distributed & Failover Scripts / Collector Daemon
generateReports.pl
ATTENTION --> - tested with HTMLDOC v1.8.27 and added --user-password password support
- 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
runStatusOnDemand.pl
- FIX 'Command: not found.' must be 'No Display|Collector daemons defined'
trendlineCorrectionReports.pl
- show only the Plugins regarding correspondending server and order by Title
user.pl
- Sending email for: Downtime Scheduling & Generated Reports
Version 3.000.011, 2006/09/16, ASNMTAP::Asnmtap::Applications
- add `environment` char(1) NOT NULL default 'L' to TABLE `plugins`
applications/bin/generateReports.pl view on Meta::CPAN
$reports .= "/";
create_header ($reports."HEADER.html");
create_footer ($reports."FOOTER.html");
my $dayReportMonthPdf = ($dayReportMonth < 10) ? "0$dayReportMonth" : $dayReportMonth;
my $dayReportDayPdf = ($dayReportDay < 10) ? "0$dayReportDay" : $dayReportDay;
my $catalogID_uKey = ( ( $catalogID eq 'CID' ) ? '' : $catalogID .'_' ) . $uKey;
my $pdfFilename = "$RESULTSPATH/$resultsdir/$REPORTDIR/$dayReportYear$dayReportMonthPdf$dayReportDayPdf-$test-$catalogID_uKey-$periodeMessage-id_$id.pdf";
my $encodedUrlAccessParameters = encode_html_entities('U', $urlAccessParameters);
my $user_password = (defined $userPassword and $userPassword ne '' ? '--user-password '. $userPassword : '');
my $command = "$HTMLTOPDFPRG -f '$pdfFilename' $user_password $HTMLTOPDFOPTNS 'http://${REMOTE_HOST}$HTTPSURL/cgi-bin/detailedStatisticsReportGenerationAndCompareResponsetimeTrends.pl?$encodedUrlAccessParameters'";
if ( -e "$pdfFilename" ) {
$emailMessage .= " > $pdfFilename already generated\n";
} else {
$emailMessage .= " > $pdfFilename will be generated\n";
push (@commands, $command);
push (@pdfFilenames, $pdfFilename);
}
}
applications/display-test.pl view on Meta::CPAN
# --proxy=user:pasword\@proxy
if ($parameters =~ /--proxy=/) {
$parameters =~ s/(--proxy=\w*:)\w*(\@\w+)/$1********$2/g;
}
# -p user:pasword\@proxy
if ($parameters =~ /-p / and ($parameters !~ /-u / and $parameters !~ /--username=/)) {
$parameters =~ s/(-p \w*:)\w*(\@\w+)/$1********$2/g;
}
# --password=
if ($parameters =~ /--password=/) {
$parameters =~ s/(--password=)\w+/$1********/g;
}
# --username= or -u and --password= or -p (database plugins)
if ($parameters =~ /-p / and ($parameters =~ /-u / or $parameters =~ /--username=/)) {
$parameters =~ s/(-p )\w+/$1********/g;
}
# --username= or -U and --password= or -P (ftp plugins)
if ($parameters =~ /-P / and ($parameters =~ /-U / or $parameters =~ /--username=/)) {
$parameters =~ s/(-P )\w+/$1********/g;
}
# j_username= or j_password= (J2EE based Applications)
if ($parameters =~ /j_username=/ and $parameters =~ /j_password=/) {
$parameters =~ s/(j_password=)\w+/$1********/g;
}
return ($parameters);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub print_usage () {
print "Usage: $PROGNAME -H <MySQL hostname> [-C <Checklist>] [-P <pagedir>] [-L <loop>] [-t <trigger>] [-c <YYYY-MM-DD HH:MM:SS> ] [-T <displayTime>] [-l <lockMySQL>] [-D <debug>] [-V version] [-h help]\n";
}
applications/display.pl view on Meta::CPAN
# --proxy=user:pasword\@proxy
if ($parameters =~ /--proxy=/) {
$parameters =~ s/(--proxy=\w*:)\w*(\@\w+)/$1********$2/g;
}
# -p user:pasword\@proxy
if ($parameters =~ /-p / and ($parameters !~ /-u / and $parameters !~ /--username=/)) {
$parameters =~ s/(-p \w*:)\w*(\@\w+)/$1********$2/g;
}
# --password=
if ($parameters =~ /--password=/) {
$parameters =~ s/(--password=)\w+/$1********/g;
}
# --username= or -u and --password= or -p (database plugins)
if ($parameters =~ /-p / and ($parameters =~ /-u / or $parameters =~ /--username=/)) {
$parameters =~ s/(-p )\w+/$1********/g;
}
# --username= or -U and --password= or -P (ftp plugins)
if ($parameters =~ /-P / and ($parameters =~ /-U / or $parameters =~ /--username=/)) {
$parameters =~ s/(-P )\w+/$1********/g;
}
# j_username= or j_password= (J2EE based Applications)
if ($parameters =~ /j_username=/ and $parameters =~ /j_password=/) {
$parameters =~ s/(j_password=)\w+/$1********/g;
}
return ($parameters);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub print_usage () {
print "Usage: $PROGNAME -H <MySQL hostname> [-C <Checklist>] [-P <pagedir>] [-L <loop>] [-t <trigger>] [-c <YYYY-MM-DD HH:MM:SS> ] [-T <displayTime>] [-l <lockMySQL>] [-D <debug>] [-V version] [-h help]\n";
}
applications/htmlroot/cgi-bin/admin/reports.pl view on Meta::CPAN
# Init parameters
my ($rv, $dbh, $sth, $sql, $header, $numberRecordsIntoQuery, $nextAction, $formDisabledAll, $formDisabledPrimaryKey, $submitButton, $uKeySelect);
# User Session and Access Control
my ($sessionID, $iconAdd, $iconDelete, $iconDetails, $iconEdit, $iconQuery, $iconTable, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle) = user_session_and_access_control (1, 'admin', $c...
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&orderBy=$orderBy&action=$action&catalogID=$CcatalogID&catalogIDreload=$CcatalogIDreload&id=$Cid&uKey=$CuKey&reportTit...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>page no : $pageNo<br>page offset : $pageOffset<br>order by : $orderBy<br>action : $action<br>catalog ID ...
if ( defined $sessionID and ! defined $errorUserAccessControl ) {
my ($catalogIDSelect, $matchingReports, $navigationBar);
my $urlWithAccessParameters = $ENV{SCRIPT_NAME} . "?pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&catalogID=$CcatalogID";
# open connection to database and query data
$rv = 1;
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADWRITE:$SERVERPORTREADWRITE", "$SERVERUSERREADWRITE", "$SERVERPASSREADWRITE" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle, $subTit...
applications/htmlroot/cgi-bin/admin/reports.pl view on Meta::CPAN
<tr><td>Show Top 20 Slow Tests: </td><td>
<input type="checkbox" name="showTop20SlowTests" $showTop20SlowTestsChecked $formDisabledAll>
</td></tr>
<tr><td>Printer Friendly Output: </td><td>
<input type="checkbox" name="printerFriendlyOutput" $printerFriendlyOutputChecked $formDisabledAll>
</td></tr>
<tr><td><b>Format Output: </b></td><td>
$formatOutputSelect
</td></tr>
<tr><td><b>User Password: </b></td><td>
<input type="password" name="userPassword" value="$CuserPassword" size="15" maxlength="15" $formDisabledAll>
</td></tr>
<tr><td> </td><td>This field contains the document user password, a string that is used by Adobe Acrobat to restrict viewing permissions on the file.<br>If this field is left blank, any user may view the document without entering a passw...
HTML
print <<HTML;
<tr><td><b>Activated: </b></td><td>
<input type="checkbox" name="activated" $activatedChecked $formDisabledAll>
</td></tr>
HTML
print " <tr><td> </td><td><br>Please enter all required information before committing the required information. Required fields are marked in bold.</td></tr>\n" if ($action eq 'duplicateView' or $action eq 'editView' or $action eq '...
print " <tr align=\"left\"><td align=\"right\"><br><input type=\"submit\" value=\"$submitButton\"></td><td><br><input type=\"reset\" value=\"Reset\"></td></tr>\n" if ($action ne 'displayView');
print " </table>\n";
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
my $CcatalogID = (defined $cgi->param('catalogID')) ? $cgi->param('catalogID') : $CATALOGID;
my $CcatalogIDreload = (defined $cgi->param('catalogIDreload')) ? $cgi->param('catalogIDreload') : 0;
my $CremoteUser = (defined $cgi->param('remoteUser')) ? $cgi->param('remoteUser') : '';
my $CremoteAddr = (defined $cgi->param('remoteAddr')) ? $cgi->param('remoteAddr') : '';
my $CremoteNetmask = (defined $cgi->param('remoteNetmask')) ? $cgi->param('remoteNetmask') : '';
my $CgivenName = (defined $cgi->param('givenName')) ? $cgi->param('givenName') : '';
my $CfamilyName = (defined $cgi->param('familyName')) ? $cgi->param('familyName') : '';
my $Cemail = (defined $cgi->param('email')) ? $cgi->param('email') : '';
my $CdowntimeScheduling = (defined $cgi->param('downtimeScheduling')) ? $cgi->param('downtimeScheduling') : 'off';
my $CgeneratedReports = (defined $cgi->param('generatedReports')) ? $cgi->param('generatedReports') : 'off';
my $Cpassword = (defined $cgi->param('password')) ? $cgi->param('password') : '';
my $CuserType = (defined $cgi->param('userType')) ? $cgi->param('userType') : 0;
my @Cpagedir = $cgi->param('pagedirs');
my $CkeyLanguage = (defined $cgi->param('keyLanguage')) ? $cgi->param('keyLanguage') : 'none';
my $Cactivated = (defined $cgi->param('activated')) ? $cgi->param('activated') : 'off';
my $Cpagedir = (@Cpagedir) ? '/'. join ('/', @Cpagedir) .'/' : '';
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my $htmlTitle = $APPLICATION;
# Init parameters
my ($rv, $dbh, $sth, $sql, $header, $numberRecordsIntoQuery, $nextAction, $formDisabledAll, $formDisabledRemoteUser, $submitButton, $givenName, $familyName, $password);
# User Session and Access Control
my ($sessionID, $iconAdd, $iconDelete, $iconDetails, $iconEdit, $iconQuery, $iconTable, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, $userType, undef, undef, undef, undef, $subTitle) = user_session_and_access_control (1, ...
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&orderBy=$orderBy&action=$action&catalogID=$CcatalogID&catalogIDreload=$CcatalogIDreload&remoteUser=$CremoteUser&remot...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>page no : $pageNo<br>page offset : $pageOffset<br>order by : $orderBy<br>actio...
if ( defined $sessionID and ! defined $errorUserAccessControl ) {
my ($catalogIDSelect, $keyLanguageSelect, $pagedirsSelect, $matchingUsers, $navigationBar);
my $urlWithAccessParameters = $ENV{SCRIPT_NAME} . "?pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&pageNo=$pageNo&pageOffset=$pageOffset&catalogID=$CcatalogID";
# open connection to database and query data
$rv = 1;
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADWRITE:$SERVERPORTREADWRITE", "$SERVERUSERREADWRITE", "$SERVERPASSREADWRITE" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle, $subTit...
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
($rv, $numberRecordsIntoQuery) = do_action_DBI ($rv, $dbh, $sql, $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
if ( $numberRecordsIntoQuery ) {
$htmlTitle = "User $CremoteUser from $CcatalogID exist already";
$nextAction = "insertView";
} else {
$htmlTitle = "User $CremoteUser from $CcatalogID inserted";
my $dummyDowntimeScheduling = ($CdowntimeScheduling eq 'on') ? 1 : 0;
my $dummyGeneratedReports = ($CgeneratedReports eq 'on') ? 1 : 0;
my $dummyActivated = ($Cactivated eq 'on') ? 1 : 0;
$Cpassword = '' if ($Cpassword eq "***************");
$sql = 'INSERT INTO ' .$SERVERTABLUSERS. ' SET catalogID="' .$CcatalogID. '", remoteUser="' .$CremoteUser. '", remoteAddr="' .$CremoteAddr. '", remoteNetmask="' .$CremoteNetmask. '", givenName="' .$CgivenName. '", familyName="' .$CfamilyName....
$dbh->do ( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->do: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$nextAction = "listView" if ($rv);
}
} elsif ($action eq 'deleteView') {
$formDisabledRemoteUser = $formDisabledAll = 'disabled';
$htmlTitle = "Delete user $CremoteUser from $CcatalogID";
$submitButton = "Delete";
$nextAction = "delete" if ($rv);
} elsif ($action eq 'delete') {
$sql = "select remoteUser, title from $SERVERTABLCOMMENTS where catalogID = '$CcatalogID' and remoteUser = '$CremoteUser' order by title, remoteUser";
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
} elsif ($action eq 'editView') {
$formDisabledRemoteUser = 'disabled';
$htmlTitle = "Edit user $CremoteUser from $CcatalogID";
$submitButton = "Edit";
$nextAction = "edit" if ($rv);
} elsif ($action eq 'edit') {
$htmlTitle = "User $CremoteUser from $CcatalogID updated";
my $dummyDowntimeScheduling = ($CdowntimeScheduling eq 'on') ? 1 : 0;
my $dummyGeneratedReports = ($CgeneratedReports eq 'on') ? 1 : 0;
my $dummyActivated = ($Cactivated eq 'on') ? 1 : 0;
my $dummyPassword = ($Cpassword eq "***************") ? '' : ', password="' .$Cpassword. '"';
$sql = 'UPDATE ' .$SERVERTABLUSERS. ' SET catalogID="' .$CcatalogID. '", remoteUser="' .$CremoteUser. '", remoteAddr="' .$CremoteAddr. '", remoteNetmask="' .$CremoteNetmask. '", givenName="' .$CgivenName. '", familyName="' .$CfamilyName. '", em...
$dbh->do ( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->do: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$nextAction = "listView" if ($rv);
} elsif ($action eq 'listView') {
$htmlTitle = "All users listed";
if ( $CcatalogIDreload ) {
$pageNo = 1;
$pageOffset = 0;
}
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
$navigationBar .= record_navigation_bar_alpha ($rv, $dbh, $SERVERTABLUSERS, 'remoteUser', "catalogID = '$CcatalogID'", $numberRecordsIntoQuery, $RECORDSONPAGE, $ENV{SCRIPT_NAME} . "?pagedir=$pagedir&pageset=$pageset&debug=$debug&CGI...
$sql = "select catalogID, remoteUser, givenName, familyName, userType, activated from $SERVERTABLUSERS where catalogID = '$CcatalogID' and userType <= $userType order by $orderBy limit $pageOffset, $RECORDSONPAGE";
$header = "<th><a href=\"$urlWithAccessParameters&action=listView&orderBy=catalogID desc, remoteuser asc\"><IMG SRC=\"$IMAGESURL/$ICONSRECORD{up}\" ALT=\"Up\" BORDER=0></a> Catalog ID <a href=\"$urlWithAccessParameters&action=listVi...
$header .= "<th><a href=\"$urlWithAccessParameters&action=listView&orderBy=givenName desc, familyName asc\"><IMG SRC=\"$IMAGESURL/$ICONSRECORD{up}\" ALT=\"Up\" BORDER=0></a> Given Name <a href=\"$urlWithAccessParameters&action=listV...
($rv, $matchingUsers, $nextAction) = record_navigation_table ($rv, $dbh, $sql, 'User', 'catalogID|remoteUser', '0|1', '', '4#0=>Guest|1=>Member|2=>Moderator|4=>Administrator|8=>Server Administrator', '', $orderBy, $header, $navigationBar, $icon...
}
if ($action eq 'deleteView' or $action eq 'displayView' or $action eq 'duplicateView' or $action eq 'editView') {
$sql = "select catalogID, remoteUser, remoteAddr, remoteNetmask, givenName, familyName, email, downtimeScheduling, generatedReports, password, userType, pagedir, activated, keyLanguage from $SERVERTABLUSERS where catalogID = '$CcatalogID' and r...
$sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID) if $rv;
if ( $rv ) {
($CcatalogID, $CremoteUser, $CremoteAddr, $CremoteNetmask, $CgivenName, $CfamilyName, $Cemail, $CdowntimeScheduling, $CgeneratedReports, $Cpassword, $CuserType, $Cpagedir, $Cactivated, $CkeyLanguage) = $sth->fetchrow_array() or $rv = error_tr...
$CcatalogID = $CATALOGID if ($action eq 'duplicateView');
$CdowntimeScheduling = ($CdowntimeScheduling == 1) ? 'on' : 'off';
$CgeneratedReports = ($CgeneratedReports == 1) ? 'on' : 'off';
$Cactivated = ($Cactivated == 1) ? 'on' : 'off';
$Cpassword = '***************' if ($Cpassword ne '');
$sth->finish() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->finish: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
}
}
if ($action eq 'deleteView' or $action eq 'displayView' or $action eq 'duplicateView' or $action eq 'editView' or $action eq 'insertView') {
$sql = "select keyLanguage, languageName from $SERVERTABLLANGUAGE where languageActive = '1' order by languageName";
($rv, $keyLanguageSelect, undef) = create_combobox_from_DBI ($rv, $dbh, $sql, 1, '', $CkeyLanguage, 'keyLanguage', 'none', '-Select-', $formDisabledAll, '', $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
$sql = "select pagedir, groupName from $SERVERTABLPAGEDIRS where catalogID = '$CcatalogID' order by groupName";
($rv, $pagedirsSelect) = create_combobox_multiple_from_DBI ($rv, $dbh, $sql, $action, $Cpagedir, 'pagedirs', 'Pagedirs missing.', 10, 100, $formDisabledAll, '', $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
// xxx.xxx.xxx.xxx
var objectRegularExpressionNetmaskFormat = /\^\\d{2}\$/;
var objectRegularExpressionNetmaskValue = /\^(\?:(?:0[1-9]|3[0-2]|[12]?[0-9]?)){1}\$/;
// x\@y.z minimal
var objectRegularExpressionEmailFormat = /\^[\\w-_\\.]\+\\@[\\w-_]\+(\\.[\\w-_]\+)\+\$/;
var objectRegularExpressionRemoteUserValue = /\^[a-zA-Z0-9-]\+\$/;
// The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
var objectRegularExpressionPasswordFormat = /\^[\\w|\\W]*(?=[\\w|\\W]*\\d)(?=[\\w|\\W]*[a-z])(?=[\\w|\\W]\*[A-Z])[\\w|\\W]*\$/;
HTML
if ($action eq 'duplicateView' or $action eq 'insertView') {
print <<HTML;
if ( document.users.remoteUser.value == null || document.users.remoteUser.value == '' ) {
document.users.remoteUser.focus();
alert('Please enter a remote user!');
return false;
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
alert('Please enter a email address!');
return false;
} else {
if ( ! objectRegularExpressionEmailFormat.test(document.users.email.value) ) {
document.users.email.focus();
alert('Please re-enter email address: Bad email format!');
return false;
}
}
if ( document.users.password1.value != '***************' ) {
if ( document.users.password1.value == null || document.users.password1.value == '' ) {
document.users.password1.focus();
alert('Please enter a password!');
return false;
} else {
if ( ! objectRegularExpressionPasswordFormat.test(document.users.password1.value) ) {
document.users.password1.focus();
alert('Please re-enter password: Bad password format!');
return false;
}
}
}
if ( document.users.password2.value != '***************' ) {
if ( document.users.password2.value == null || document.users.password2.value == '' ) {
document.users.password2.focus();
alert('Please enter a password!');
return false;
} else {
if ( ! objectRegularExpressionPasswordFormat.test(document.users.password2.value) ) {
document.users.password2.focus();
alert('Please re-enter password: Bad password format!');
return false;
}
}
}
if ( document.users.password1.value != '***************' || document.users.password2.value != '***************' ) {
if ( document.users.password1.value != document.users.password2.value ) {
document.users.password1.focus();
alert('Please re-enter passwords: Passwords are not equal!');
return false;
} else {
document.users.password.value = hex_md5(document.users.password1.value);
}
}
if ( document.users.pagedirs.selectedIndex == -1 ) {
document.users.pagedirs.focus();
alert('Please create/select one or more view pagedirs!');
return false;
}
if ( document.users.keyLanguage.value == null || document.users.keyLanguage.value == 'none' ) {
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
if ($action eq 'deleteView' or $action eq 'duplicateView' or $action eq 'editView' or $action eq 'insertView' or $action eq 'listView') {
print <<HTML;
<input type="hidden" name="pagedir" value="$pagedir">
<input type="hidden" name="pageset" value="$pageset">
<input type="hidden" name="debug" value="$debug">
<input type="hidden" name="CGISESSID" value="$sessionID">
<input type="hidden" name="pageNo" value="$pageNo">
<input type="hidden" name="pageOffset" value="$pageOffset">
<input type="hidden" name="action" value="$nextAction">
<input type="hidden" name="orderBy" value="$orderBy">
<input type="hidden" name="password" value="$Cpassword">
<input type="hidden" name="catalogIDreload" value="0">
HTML
} else {
print "<br>\n";
}
print " <input type=\"hidden\" name=\"catalogID\" value=\"$CcatalogID\">\n <input type=\"hidden\" name=\"remoteUser\" value=\"$CremoteUser\">\n" if ($formDisabledRemoteUser ne '' and $action ne 'displayView');
print <<HTML;
<table width="100%" border="0" cellspacing="0" cellpadding="0">
applications/htmlroot/cgi-bin/admin/users.pl view on Meta::CPAN
<tr><td><b>Surname: </b></td><td>
<input type="text" name="familyName" value="$CfamilyName" size="50" maxlength="50" $formDisabledAll>
</td></tr>
<tr><td><b>Email: </b></td><td>
<input type="text" name="email" value="$Cemail" size="64" maxlength="64" $formDisabledAll>
</td></tr>
</td></tr><tr><td><b>Sending email for:</b></td><td>
<input type="checkbox" name="downtimeScheduling" $downtimeSchedulingChecked $formDisabledAll>Downtime Scheduling
<input type="checkbox" name="generatedReports" $generatedReportsChecked $formDisabledAll>Generated Reports
</td></tr>
<tr><td><b>Enter password: </b></td><td>
<input type="password" name="password1" value="$Cpassword" size="15" maxlength="15" $formDisabledAll> The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
</td></tr>
<tr><td><b>Confirm Password: </b></td><td>
<input type="password" name="password2" value="$Cpassword" size="15" maxlength="15" $formDisabledAll> The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
</td></tr>
<tr><td><b>User Type: </b></td><td>
$userTypeSelect
</td></tr>
<tr><td valign="top"><b>Pagedirs: </b></td><td>
$pagedirsSelect
</td></tr>
<tr><td><b>Language: </b></td><td>
$keyLanguageSelect
</td></tr>
applications/htmlroot/cgi-bin/moderator/sessions.pl view on Meta::CPAN
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">_SESSION_EXPIRE_LIST</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{_SESSION_EXPIRE_LIST}. "</td></tr>\n" if (defined $session{_SESSION_EXPIRE_LIST});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">~login-trials</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{'~login-trials'}. "</td></tr>\n" if (defined $session{'~login-trials'});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">~logged-in</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{'~logged-in'}. "</td></tr>\n" if (defined $session{'~logged-in'});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">remote user</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{remoteUser}. "</td></tr>\n" if (defined $session{remoteUser});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">remote address</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{remoteAddr}. "</td></tr>\n" if (defined $session{remoteAddr});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">remote netmask</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{remoteNetmask}. "</td></tr>\n" if (defined $session{remoteNetmask});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">given name</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .encode_html_entities('V', $session{givenName}). "</td></tr>\n" if (defined $session{givenName});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">surname</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .encode_html_entities('V', $session{familyName}). "</td></tr>\n" if (defined $session{familyName});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">email</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$Temail. "</td></tr>\n" if (defined $session{email});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">key language</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{keyLanguage}. "</td></tr>\n" if (defined $session{keyLanguage});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">password</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{password}. "</td></tr>\n" if (defined $session{password});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">user type</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{userType}. "</td></tr>\n" if (defined $session{userType});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">pagedir</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{pagedir}. "</td></tr>\n" if (defined $session{pagedir});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">activated</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{activated}. "</td></tr>\n" if (defined $session{activated});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon add</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconAdd}. "</td></tr>\n" if (defined $session{iconAdd});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon details</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconDetails}. "</td></tr>\n" if (defined $session{iconDetails});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon edit</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconEdit}. "</td></tr>\n" if (defined $session{iconEdit});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon delete</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconDelete}. "</td></tr>\n" if (defined $session{iconDelete});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon query</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconQuery}. "</td></tr>\n" if (defined $session{iconQuery});
$matchingSessionDetails .= " <tr><td bgcolor=\"$COLORSTABLE{ENDBLOCK}\">icon table</td><td bgcolor=\"$COLORSTABLE{STARTBLOCK}\">" .$session{iconTable}. "</td></tr>\n" if (defined $session{iconTable});
} else {
applications/htmlroot/cgi-bin/runCmdOnDemand.pl view on Meta::CPAN
if ($capture_debug) {
print "$capture\n";
} elsif ($capture_text) {
print "$capture\n";
} elsif ($capture_html) {
$capture =~ s/(window.location.href)/\/\/$1/gi;
# RFC 1738 -> [ $\/:;=?@.\-!*'()\w&+,]+
$capture =~ s/(<META\s+HTTP-EQUIV\s*=\s*\"Refresh\"\s+CONTENT\s*=\s*\"\d+;\s*URL\s*=[^"]+\"(?:\s+\/?)?>)/<!--$1-->/img;
# remove password from Basic Authentication URL before putting into database!
$capture =~ s/(http[s]?)\:\/\/(\w+)\:(\w+)\@/$1\:\/\/$2\:********\@/img;
# comment <SCRIPT></SCRIPT>
$capture =~ s/<SCRIPT/<!--<SCRIPT/gi;
$capture =~ s/<\/SCRIPT>/<\/SCRIPT>-->/gi;
# replace <BODY onload="..."> with <BODY>
$capture =~ s/<BODY\s*onload\s*=\s*.*\s*>/<BODY>/gi;
print "$capture\n";
applications/htmlroot/cgi-bin/runCmdOnDemand.pl view on Meta::CPAN
# --proxy=user:pasword\@proxy
if ($parameters =~ /--proxy=/) {
$parameters =~ s/(--proxy=\w*:)\w*(\@\w+)/$1********$2/g;
}
# -p user:pasword\@proxy
if ($parameters =~ /-p / and ($parameters !~ /-u / and $parameters !~ /--username=/)) {
$parameters =~ s/(-p \w*:)\w*(\@\w+)/$1********$2/g;
}
# --password=
if ($parameters =~ /--password=/) {
$parameters =~ s/(--password=)\w+/$1********/g;
}
# --username= or -u and --password= or -p (database plugins)
if ($parameters =~ /-p / and ($parameters =~ /-u / or $parameters =~ /--username=/)) {
$parameters =~ s/(-p )\w+/$1********/g;
}
# --username= or -U and --password= or -P (ftp plugins)
if ($parameters =~ /-P / and ($parameters =~ /-U / or $parameters =~ /--username=/)) {
$parameters =~ s/(-P )\w+/$1********/g;
}
# j_username= or j_password= (J2EE based Applications)
if ($parameters =~ /j_username=/ and $parameters =~ /j_password=/) {
$parameters =~ s/(j_password=)\w+/$1********/g;
}
return ($parameters);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
print_legend (*STDOUT);
print '</BODY>', "\n", '</HTML>', "\n";
applications/htmlroot/cgi-bin/sadmin/servers.pl view on Meta::CPAN
document.servers.slaveDatabasePort.disabled = typeServerDisabled;
}
function validateForm() {
var objectRegularExpressionFQDNValue = /\^[a-zA-Z0-9-]\+(\\.[a-zA-Z0-9-]\+)\*\$/;
var objectRegularExpressionPATHValue = /\^(\\/[a-zA-Z0-9-\\s]\+)\*\$/;
var objectRegularExpressionLogonValue = /\^[a-zA-Z0-9-]\+\$/;
// The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
var objectRegularExpressionPasswordFormat = /\^[\\w|\\W]*(?=[\\w|\\W]*\\d)(?=[\\w|\\W]*[a-z])(?=[\\w|\\W]\*[A-Z])[\\w|\\W]*\$/;
var objectRegularExpressionDatabasePort = /\^[0-9]\+\$/;
HTML
if ($action eq 'duplicateView' or $action eq 'insertView') {
print <<HTML;
var objectRegularExpressionServerIDFormat = /\^[a-zA-Z0-9-]\+\$/;
applications/htmlroot/cgi-bin/sadmin/servers.pl view on Meta::CPAN
<input type="text" name="slaveRSYNC_PATH" value="$CslaveRSYNC_PATH" size="64" maxlength="64" $formDisabledAll>
</td></tr><tr><td><b>Master SSH_PATH: </b></td><td>
<input type="text" name="masterSSH_PATH" value="$CmasterSSH_PATH" size="64" maxlength="64" $formDisabledAll>
</td><td> <b>Slave SSH_PATH: </b></td><td>
<input type="text" name="slaveSSH_PATH" value="$CslaveSSH_PATH" size="64" maxlength="64" $formDisabledAll>
</td></tr><tr><td>Master SSH logon: </td><td>
<input type="text" name="masterSSHlogon" value="$CmasterSSHlogon" size="15" maxlength="15" $formDisabledAll>
</td><td> Slave SSH logon: </td><td>
<input type="text" name="slaveSSHlogon" value="$CslaveSSHlogon" size="15" maxlength="15" $formDisabledAll>
</td></tr><tr><td>Master SSH passwd: </td><td>
<input type="password" name="masterSSHpasswd" value="$CmasterSSHpasswd" size="32" maxlength="32" $formDisabledAll>
</td><td> Slave SSH passwd: </td><td>
<input type="password" name="slaveSSHpasswd" value="$CslaveSSHpasswd" size="32" maxlength="32" $formDisabledAll>
</td></tr><tr><td><b>Master Database FQDN: </b></td><td>
<input type="text" name="masterDatabaseFQDN" value="$CmasterDatabaseFQDN" size="64" maxlength="64" $formDisabledAll>
</td><td> <b>Slave Database FQDN:</b> </td><td>
<input type="text" name="slaveDatabaseFQDN" value="$CslaveDatabaseFQDN" size="64" maxlength="64" $formDisabledAll>
<tr><td><b>Master Database Port: </b></td><td>
<input type="text" name="masterDatabasePort" value="$CmasterDatabasePort" size="4" maxlength="4" $formDisabledAll>
</td><td> <b>Slave Database Port:</b> </td><td>
<input type="text" name="slaveDatabasePort" value="$CslaveDatabasePort" size="4" maxlength="4" $formDisabledAll>
</td></tr><tr><td colspan="4">
</td></tr><tr><td><b>Server Activated: </b></td><td>
applications/htmlroot/cgi-bin/users.pl view on Meta::CPAN
my $pageset = (defined $cgi->param('pageset')) ? $cgi->param('pageset') : 'index-cv'; $pageset =~ s/\+/ /g;
my $debug = (defined $cgi->param('debug')) ? $cgi->param('debug') : 'F';
my $action = (defined $cgi->param('action')) ? $cgi->param('action') : 'editView';
my $CcatalogID = (defined $cgi->param('catalogID')) ? $cgi->param('catalogID') : $CATALOGID;
my $CremoteUser = (defined $cgi->param('remoteUser')) ? $cgi->param('remoteUser') : '';
my $CremoteAddr = (defined $cgi->param('remoteAddr')) ? $cgi->param('remoteAddr') : '';
my $CremoteNetmask = (defined $cgi->param('remoteNetmask')) ? $cgi->param('remoteNetmask') : '';
my $CgivenName = (defined $cgi->param('givenName')) ? $cgi->param('givenName') : '';
my $CfamilyName = (defined $cgi->param('familyName')) ? $cgi->param('familyName') : '';
my $Cemail = (defined $cgi->param('email')) ? $cgi->param('email') : '';
my $Cpassword = (defined $cgi->param('password')) ? $cgi->param('password') : '';
my $CkeyLanguage = (defined $cgi->param('keyLanguage')) ? $cgi->param('keyLanguage') : 'EN';
my ($pageDir, $environment) = split (/\//, $pagedir, 2);
$environment = 'P' unless (defined $environment);
my $htmlTitle = $APPLICATION .' - '. $ENVIRONMENT{$environment};
# Init parameters
my ($rv, $dbh, $sth, $sql, $nextAction, $submitButton, $keyLanguageSelect, $givenName, $familyName, $password);
# User Session and Access Control
my ($sessionID, undef, undef, undef, undef, undef, undef, $errorUserAccessControl, $remoteUserLoggedOn, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle) = user_session_and_access_control (1, 'guest', $cgi, $pagedir, $p...
# Serialize the URL Access Parameters into a string
my $urlAccessParameters = "pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&action=$action&catalogID=$CcatalogID&remoteUser=$CremoteUser&remoteAddr=$CremoteAddr&remoteNetmask=$CremoteNetmask&givenName=$CgivenName&familyName=$Cfamil...
# Debug information
print "<pre>pagedir : $pagedir<br>pageset : $pageset<br>debug : $debug<br>CGISESSID : $sessionID<br>action : $action<br>catalog ID : $CcatalogID<br>remote user : $CremoteUser<br>remote address: $CremoteAddr<br>remo...
if ( defined $sessionID and ! defined $errorUserAccessControl ) {
my $urlWithAccessParameters = $ENV{SCRIPT_NAME} . "?pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID";
# open connection to database and query data
$rv = 1;
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADWRITE:$SERVERPORTREADWRITE", "$SERVERUSERREADWRITE", "$SERVERPASSREADWRITE" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle, $subTit...
if ($dbh and $rv) {
if ($action eq 'editView') {
$CremoteUser = $remoteUserLoggedOn if (defined $remoteUserLoggedOn);
$htmlTitle = "Edit user $CremoteUser from $CcatalogID";
$submitButton = "Edit";
$nextAction = "edit" if ($rv);
} elsif ($action eq 'edit') {
$htmlTitle = "User $CremoteUser from $CcatalogID updated";
my $dummyPassword = ($Cpassword eq "***************") ? '' : ', password="' .$Cpassword. '"';
$sql = 'UPDATE ' .$SERVERTABLUSERS. ' SET givenName="' .$CgivenName. '", familyName="' .$CfamilyName. '", email="' .$Cemail. '"' .$dummyPassword. ', keyLanguage="' .$CkeyLanguage. '" WHERE catalogID="' .$CcatalogID. '" and remoteUser="' .$Cremo...
$dbh->do( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->do: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$nextAction = "listView" if ($rv);
}
if ($action eq 'editView') {
$sql = "select catalogID, remoteUser, remoteAddr, remoteNetmask, givenName, familyName, email, password, keyLanguage from $SERVERTABLUSERS where catalogID = '$CcatalogID' and remoteUser = '$CremoteUser'";
$sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID) if $rv;
if ( $rv ) {
($CcatalogID, $CremoteUser, $CremoteAddr, $CremoteNetmask, $CgivenName, $CfamilyName, $Cemail, $Cpassword, $CkeyLanguage) = $sth->fetchrow_array() or $rv = error_trap_DBI(*STDOUT, "Cannot $sth->fetchrow_array: $sql", $debug, $pagedir, $pagese...
$Cpassword = "***************" if ($Cpassword ne '');
$sth->finish() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->finish: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
}
$sql = "select keyLanguage, languageName from $SERVERTABLLANGUAGE where languageActive = '1' order by languageName";
($rv, $keyLanguageSelect, undef) = create_combobox_from_DBI ($rv, $dbh, $sql, 1, '', $CkeyLanguage, 'keyLanguage', '', '', '', '', $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug);
}
$dbh->disconnect or $rv = error_trap_DBI(*STDOUT, "Sorry, the database was unable to add your entry.", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
}
applications/htmlroot/cgi-bin/users.pl view on Meta::CPAN
if ($action eq 'editView') {
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', 'F', "<script type=\"text/javascript\" language=\"JavaScript\" src=\"$HTTPSURL/md5.js\"></script>", $sessionID);
print <<HTML;
<script language="JavaScript1.2" type="text/javascript">
function validateForm() {
// x\@y.z minimal
var objectRegularExpressionEmailFormat = /\^[\\w-_\\.]\+\\@[\\w-_]\+(\\.[\\w-_]\+)\+\$/;
// The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
var objectRegularExpressionPasswordFormat = /\^[\\w|\\W]*(?=[\\w|\\W]*\\d)(?=[\\w|\\W]*[a-z])(?=[\\w|\\W]\*[A-Z])[\\w|\\W]*\$/;
if ( document.users.givenName.value == null || document.users.givenName.value == '' ) {
document.users.givenName.focus();
alert('Please enter a given name!');
return false;
}
if ( document.users.familyName.value == null || document.users.familyName.value == '' ) {
document.users.familyName.focus();
applications/htmlroot/cgi-bin/users.pl view on Meta::CPAN
alert('Please enter a email address!');
return false;
} else {
if ( ! objectRegularExpressionEmailFormat.test(document.users.email.value) ) {
document.users.email.focus();
alert('Please re-enter email address: Bad email format!');
return false;
}
}
if ( document.users.password1.value != '***************' ) {
if ( document.users.password1.value == null || document.users.password1.value == '' ) {
document.users.password1.focus();
alert('Please enter new password!');
return false;
} else {
if ( ! objectRegularExpressionPasswordFormat.test(document.users.password1.value) ) {
document.users.password1.focus();
alert('Please re-enter password: Bad password format!');
return false;
}
}
}
if ( document.users.password2.value != '***************' ) {
if ( document.users.password2.value == null || document.users.password2.value == '' ) {
document.users.password2.focus();
alert('Please enter new password!');
return false;
} else {
if ( ! objectRegularExpressionPasswordFormat.test(document.users.password2.value) ) {
document.users.password2.focus();
alert('Please re-enter password: Bad password format!');
return false;
}
}
}
if ( document.users.password1.value != '***************' || document.users.password2.value != '***************' ) {
if ( document.users.password1.value != document.users.password2.value ) {
document.users.password1.focus();
alert('Please re-enter passwords: Both new passwords are not equal!');
return false;
} else {
document.users.password.value = hex_md5(document.users.password1.value);
}
}
return true;
}
</script>
<form action="$ENV{SCRIPT_NAME}" method="post" name="users" onSubmit="return validateForm();">
<input type="hidden" name="pagedir" value="$pagedir">
<input type="hidden" name="pageset" value="$pageset">
<input type="hidden" name="debug" value="$debug">
<input type="hidden" name="CGISESSID" value="$sessionID">
<input type="hidden" name="action" value="$nextAction">
<input type="hidden" name="catalogID" value="$CcatalogID">
<input type="hidden" name="remoteUser" value="$CremoteUser">
<input type="hidden" name="password" value="$Cpassword">
HTML
} else {
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', 'F', '', $sessionID);
print "<br>\n";
}
print <<HTML;
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center"><td><table border="0" cellspacing="0" cellpadding="0">
HTML
applications/htmlroot/cgi-bin/users.pl view on Meta::CPAN
<tr><td><font color="#0000FF">24</font> 255.255.255.0</td><td><font color="#0000FF">23</font> 255.255.254.0</td><td><font color="#0000FF">22</font> 255.255.252.0</td><td><font color="#0000FF">21</font> 255.255.248.0</td><td><font color="#0000...
<tr><td><font color="#0000FF">16</font> 255.255.0.0</td><td><font color="#0000FF">15</font> 255.254.0.0</td><td><font color="#0000FF">14</font> 255.252.0.0</td><td><font color="#0000FF">13</font> 255.248.0.0</td><td><font color="#0000FF">12</...
<tr><td><font color="#0000FF">08</font> 255.0.0.0</td><td><font color="#0000FF">07</font> 254.0.0.0</td><td><font color="#0000FF">06</font> 252.0.0.0</td><td><font color="#0000FF">05</font> 248.0.0.0</td><td><font color="#0000FF">04</font> 22...
</table>
</td></tr><tr><td><b>Given Name: </b></td><td>
<input type="text" name="givenName" value="$CgivenName" size="50" maxlength="50">
</td></tr><tr><td><b>Surname: </b></td><td>
<input type="text" name="familyName" value="$CfamilyName" size="50" maxlength="50">
</td></tr><tr><td><b>Email: </b></td><td>
<input type="text" name="email" value="$Cemail" size="64" maxlength="64">
</td></tr><tr><td><b>New password: </b></td><td>
<input type="password" name="password1" value="$Cpassword" size="15" maxlength="15"> The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
</td></tr><tr><td><b>Confirm password: </b></td><td>
<input type="password" name="password2" value="$Cpassword" size="15" maxlength="15"> The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
</td></tr><tr><td><b>Language: </b></td><td>
$keyLanguageSelect
</td></tr><tr><td> </td><td>
<br>Please enter all required information before committing the required information. Required fields are marked in bold.
</td></tr><tr align="left"><td align="right">
<br><input type="submit" value="$submitButton"></td><td><br><input type="reset" value="Reset">
</td></tr>
HTML
} else {
applications/htmlroot/snmptraps/etc/config.ini.php view on Meta::CPAN
;# Url to Nagios
prefix = /asnmtap/snmptraps
;# Path to the Image-Dirctory from your Nagios-Installation
images = ../images/
;# Enter here your information that were used to connect to your database
[database]
host = dtbs.citap.be
user = asnmtap
password = <PASSWORD>
name = snmptt
tableSnmptt = snmptt
;# Ignore this option, when you don`t use a table for unknown-Traps in your database
tableSnmpttUnk = snmptt_unknown
;# ----------> DO NOT MAKE changes at this section! <----------
[internal]
;# Version
applications/htmlroot/snmptraps/include/classes/class.mysqlDB.php view on Meta::CPAN
/**
* Make a connection to the database
*
* @param array $configINI
*
* @author Michael Luebben <michael_luebben@web.de>
*/
function connect() {
global $configINI, $FRONTEND;
$connect = @mysql_pconnect($configINI['database']['host'], $configINI['database']['user'], $configINI['database']['password']);
$dbSelect['code'] = @mysql_select_db($configINI['database']['name'], $connect);
// On error, create a array entry with the mysql error
if(!$dbSelect['code']) {
$FRONTEND->printError("DBCONNECTION",mysql_error());
$FRONTEND->closeSite();
$FRONTEND->printSite();
exit;
}
return($dbSelect);
}
applications/sbin/purge_table.pl view on Meta::CPAN
use ASNMTAP::Asnmtap::Applications v3.002.003;
use ASNMTAP::Asnmtap::Applications qw(:APPLICATIONS &init_email_report &send_email_report);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my $objectASNMTAP = ASNMTAP::Asnmtap::Applications->new (
_programName => 'purge_table.pl',
_programDescription => 'Purge table',
_programVersion => '3.002.003',
_programUsagePrefix => '-H|--host <HOST> [-P|--port <PORT>] -D|--database=<database> -T|--table=<table> [-A|--ago=<ago by STRING>] -u|--username|--loginname
<USERNAME> -p|--password|--passwd <PASSWORD>',
_programHelpPrefix => "-H, --host=<HOST>
hostname or ip address
-P, --port=<PORT> (default: 3306)
-D, --database=<database>
-T, --table=<table>
-A, --ago=<ago by STRING>
-u, --username/--loginname=<USERNAME>
-p, --password/--passwd=<PASSWORD>",
_programGetOptions => ['host|H=s', 'port|P:i', 'database|D=s', 'table|T=s', 'ago|A:s', 'username|u|loginname=s', 'password|p|passwd=s'],
_debug => 0);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my $host = $objectASNMTAP->getOptionsArgv ('host');
$objectASNMTAP->printUsage ('Missing command line argument host') unless ( defined $host );
my $port = $objectASNMTAP->getOptionsArgv ('port') ? $objectASNMTAP->getOptionsArgv ('port') : 3306;
$port = ( $port =~ m/^([1-9]?(?:\d*))$/ ) ? $1 : undef;
$objectASNMTAP->printUsage ('Invalid port: '. $port) unless (defined $port);
my $database = $objectASNMTAP->getOptionsArgv ('database');
$objectASNMTAP->printUsage ('Missing command line argument database') unless ( defined $database );
my $table = $objectASNMTAP->getOptionsArgv ('table');
$objectASNMTAP->printUsage ('Missing command line argument table') unless ( defined $table );
my $username = $objectASNMTAP->getOptionsArgv ('username');
$objectASNMTAP->printUsage ('Missing command line argument username') unless ( defined $username );
my $password = $objectASNMTAP->getOptionsArgv ('password');
$objectASNMTAP->printUsage ('Missing command line argument password') unless ( defined $password );
my $ago = $objectASNMTAP->getOptionsArgv ('ago');
$ago = '-1 month' unless ( defined $ago );
my $debug = $objectASNMTAP->getOptionsValue ('debug');
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my ($emailReport, $rvOpen) = init_email_report (*EMAILREPORT, "purgeEmailReport.txt", $debug);
applications/sbin/purge_table.pl view on Meta::CPAN
sub purgeTables {
my ($tableAgo) = @_;
print EMAILREPORT "\nPurge '$table' table:\n--------------------------------------------------\n" unless ( $debug );
# Init parameters
my ($rv, $dbh, $sth, $sql, $year, $month, $day, $purgetime);
$rv = 1;
$dbh = DBI->connect("dbi:mysql:$database:$host:$port", "$username", "$password" ) or $rv = _ErrorTrapDBI("Cannot connect to the database", $debug);
if ($dbh and $rv) {
$year = get_year ($tableAgo);
$month = get_month ($tableAgo);
$day = get_day ($tableAgo);
$purgetime = timelocal ( 0, 0, 0, $day, ($month-1), ($year-1900) );
if ($debug) {
print "\nTable: '$table', Year: '$year', Month: '$month', Day: '$day', Purgetime: '$purgetime', Date: " .scalar(localtime($purgetime)). "\n<$sql>\n";
applications/tools/mysql/asnmtap-3.002.003-distributed_mysql-v5.0.x.sql view on Meta::CPAN
CREATE TABLE `users` (
`catalogID` varchar(5) NOT NULL default 'CID',
`remoteUser` varchar(15) NOT NULL default '',
`remoteAddr` varchar(15) NOT NULL default '',
`remoteNetmask` char(2) NOT NULL default '',
`givenName` varchar(50) NOT NULL default '',
`familyName` varchar(50) NOT NULL default '',
`email` varchar(64) NOT NULL default '',
`downtimeScheduling` tinyint(1) NOT NULL default '1',
`generatedReports` tinyint(1) NOT NULL default '0',
`password` varchar(32) NOT NULL default '',
`userType` char(1) NOT NULL default '',
`pagedir` varchar(254) NOT NULL default '',
`activated` tinyint(1) NOT NULL default '0',
`keyLanguage` char(2) NOT NULL default '',
PRIMARY KEY (`catalogID`,`remoteUser`),
KEY `catalogID` (`catalogID`),
KEY `keyLanguage` (`keyLanguage`),
KEY `remoteUser` (`remoteUser`),
CONSTRAINT `users_ibfk_1` FOREIGN KEY (`keyLanguage`) REFERENCES `language` (`keyLanguage`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
/*Data for the table `users` */
insert into `users` (`catalogID`,`remoteUser`,`remoteAddr`,`remoteNetmask`,`givenName`,`familyName`,`email`,`downtimeScheduling`,`generatedReports`,`password`,`userType`,`pagedir`,`activated`,`keyLanguage`) values ('CID','admin','','','admin','admini...
insert into `users` (`catalogID`,`remoteUser`,`remoteAddr`,`remoteNetmask`,`givenName`,`familyName`,`email`,`downtimeScheduling`,`generatedReports`,`password`,`userType`,`pagedir`,`activated`,`keyLanguage`) values ('CID','guest','','','test','user','...
insert into `users` (`catalogID`,`remoteUser`,`remoteAddr`,`remoteNetmask`,`givenName`,`familyName`,`email`,`downtimeScheduling`,`generatedReports`,`password`,`userType`,`pagedir`,`activated`,`keyLanguage`) values ('CID','member','','','test','user',...
insert into `users` (`catalogID`,`remoteUser`,`remoteAddr`,`remoteNetmask`,`givenName`,`familyName`,`email`,`downtimeScheduling`,`generatedReports`,`password`,`userType`,`pagedir`,`activated`,`keyLanguage`) values ('CID','sadmin','','','sadmin','serv...
/*Table structure for table `views` */
DROP TABLE IF EXISTS `views`;
CREATE TABLE `views` (
`catalogID` varchar(5) NOT NULL default 'CID',
`uKey` varchar(11) NOT NULL default '',
`displayDaemon` varchar(64) NOT NULL default '',
`displayGroupID` int(11) NOT NULL default '1',
applications/tools/mysql/asnmtap-3.002.003_mysql-v5.0.x.sql view on Meta::CPAN
CREATE TABLE `users` (
`catalogID` varchar(5) NOT NULL default 'CID',
`remoteUser` varchar(15) NOT NULL default '',
`remoteAddr` varchar(15) NOT NULL default '',
`remoteNetmask` char(2) NOT NULL default '',
`givenName` varchar(50) NOT NULL default '',
`familyName` varchar(50) NOT NULL default '',
`email` varchar(64) NOT NULL default '',
`downtimeScheduling` tinyint(1) NOT NULL default '1',
`generatedReports` tinyint(1) NOT NULL default '0',
`password` varchar(32) NOT NULL default '',
`userType` char(1) NOT NULL default '',
`pagedir` varchar(254) NOT NULL default '',
`activated` tinyint(1) NOT NULL default '0',
`keyLanguage` char(2) NOT NULL default '',
PRIMARY KEY (`catalogID`,`remoteUser`),
KEY `catalogID` (`catalogID`),
KEY `keyLanguage` (`keyLanguage`),
KEY `remoteUser` (`remoteUser`),
CONSTRAINT `users_ibfk_1` FOREIGN KEY (`keyLanguage`) REFERENCES `language` (`keyLanguage`)
) ENGINE=InnoDB;
etc/chatscripts/ASNMTAP view on Meta::CPAN
ABORT BUSY ABORT 'NO CARRIER' ABORT VOICE ABORT 'NO DIALTONE' ABORT 'NO DIAL TONE' ABORT 'NO ANSWER' ABORT DELAYED
# modeminit
'' ATZ
# ispnumber
OK-AT-OK ATDT0070223326
# ispconnect
CONNECT \d\c
# prelogin
# ispname
# isppassword
# postlogin
# end of pppconfig stuff
etc/ppp/pap-secrets view on Meta::CPAN
#
# /etc/ppp/pap-secrets
#
# This is a pap-secrets file to be used with the AUTO_PPP function of
# mgetty. mgetty-0.99 is preconfigured to startup pppd with the login option
# which will cause pppd to consult /etc/passwd (and /etc/shadow in turn)
# after a user has passed this file. Don't be disturbed therfore by the fact
# that this file defines logins with any password for users. /etc/passwd
# (again, /etc/shadow, too) will catch passwd mismatches.
#
# This file should block ALL users that should not be able to do AUTO_PPP.
# AUTO_PPP bypasses the usual login program so its necessary to list all
# system userids with regular passwords here.
#
# ATTENTION: The definitions here can allow users to login without a
# password if you don't use the login option of pppd! The mgetty Debian
# package already provides this option; make sure you don't change that.
#
# INBOUND connections
#
# Every regular user can use PPP and has to use passwords from /etc/passwd
* (none) "" *
#
# UserIDs that cannot use PPP at all. Check your /etc/passwd and add any
# other accounts that should not be able to use pppd!
guest (none) "*" -
master (none) "*" -
root (none) "*" -
support (none) "*" -
stats (none) "*" -
#
# OUTBOUND connections
#
# Here you should add your userid password to connect to your providers via
# PAP. The * means that the password is to be used for ANY host you connect
# to. Thus you do not have to worry about the foreign machine name. Just
# replace password with your password.
# If you have different providers with different passwords then you better
# remove the following line.
#
#(none) * password
# Added by automatic ipppd configuration
# "*" ""
testDimona ASNMTAP testmvm
etc/ppp/peers/ASNMTAP view on Meta::CPAN
hide-password
noauth
noipdefault
remotename ASNMTAP
ipparam ASNMTAP
usepeerdns
lib/ASNMTAP/Asnmtap.pod view on Meta::CPAN
Get the option type for item
=over 4
=item Supported items for ASNMTAP::Asnmtap are
status, asnmtapEnv, onDemand, logging, debugfile and debug
=item Supported items for ASNMTAP::Asnmtap::Plugins are
timeout, trendline, environment, proxy, host, url, port, community, username, password, filename, interval, loglevel, year, quarter, month, warning and critical
=item Supported items for ASNMTAP::Asnmtap::Plugins::Nagios are
ostype and metric
=back
=item Return
returned the get option type (':' or '=') or undef when item doesn't exist
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
print "ASNMTAP : ", $session{ASNMTAP}, "\n" if (defined $session{ASNMTAP});
print "~login-trials : ", $session{'~login-trials'}, "\n" if (defined $session{'~login-trials'});
print "~logged-in : ", $session{'~logged-in'}, "\n" if (defined $session{'~logged-in'});
print "remoteUser : ", $session{remoteUser}, "\n" if (defined $session{remoteUser});
print "remoteAddr : ", $session{remoteAddr}, "\n" if (defined $session{remoteAddr});
print "remoteNetmask : ", $session{remoteNetmask}, "\n" if (defined $session{remoteNetmask});
print "givenName : ", $session{givenName}, "\n" if (defined $session{givenName});
print "familyName : ", $session{familyName}, "\n" if (defined $session{familyName});
print "email : ", $session{email}, "\n" if (defined $session{email});
print "keyLanguage : ", $session{keyLanguage}, "\n" if (defined $session{keyLanguage});
print "password : ", $session{password}, "\n" if (defined $session{password});
print "userType : ", $session{userType}, "\n" if (defined $session{userType});
print "pagedir : ", $session{pagedir}, "\n" if (defined $session{pagedir});
print "activated : ", $session{activated}, "\n" if (defined $session{activated});
print "iconAdd : ", $session{iconAdd}, "\n" if (defined $session{iconAdd});
print "iconDetails : ", $session{iconDetails}, "\n" if (defined $session{iconDetails});
print "iconEdit : ", $session{iconEdit}, "\n" if (defined $session{iconEdit});
print "iconDelete : ", $session{iconDelete}, "\n" if (defined $session{iconDelete});
print "iconQuery : ", $session{iconQuery}, "\n" if (defined $session{iconQuery});
print "iconTable : ", $session{iconTable}, "\n" if (defined $session{iconTable});
}
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
Start the slave server. If it has been replicating previously, start the slave server with the --skip-slave-start option. You also may want to start the slave server with the --log-warnings option. That way, you will get more messages about problems...
Execute the following command on the slave, replacing the values within <> with the actual values relevant to your system:
This is where you put the values you got earlier from SHOW MASTER STATUS from 2)
mysql> CHANGE MASTER TO
MASTER_HOST='<master hostname>',
MASTER_USER='<replication username>',
MASTER_PASSWORD='<replication password>',
MASTER_LOG_FILE='<recorded log file name>', <-- replace with the value show 'SHOW MASTER STATUS' on the master server
MASTER_LOG_POS=<recorded log offset>; <-- replace with the value show 'SHOW MASTER STATUS' on the master server
mysql> START SLAVE; <-- if you want to restart replication
mysql> SHOW MASTER STATUS;
write down the values
mysql> QUIT;
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
=item onto the master server, part II:
copy the slave server *.bin.* (binary logs), put it in the master server mysql data dir
mysql> STOP SLAVE; <-- if replication was running
This is where you put the values you got earlier from SHOW MASTER STATUS from 3)
mysql> CHANGE MASTER TO
MASTER_HOST='<slave hostname>',
MASTER_USER='<replication username>',
MASTER_PASSWORD='<replication password>',
MASTER_LOG_FILE='<recorded log file name>', <-- replace with the value show 'SHOW MASTER STATUS' on the master server
MASTER_LOG_POS=<recorded log offset>; <-- replace with the value show 'SHOW MASTER STATUS' on the master server
mysql> START SLAVE; <-- if you want to restart replication
At this point you got master -> slave -> master replication
You can now execute any query on any of them, and it will appear on both.
We will do it always onto the master server, unless the master server is down then we uses the slave server!!!
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
=item Update your ASNMTAP configuration
vi /opt/asnmtap/Asnmtap.cnf
Here you can modify all the varibales used by the ASNMTAP package !!!
vi /opt/asnmtap/applications/Applications.cnf
URL: http://asnmtap.citap.be/asnmtap/cgi-bin/sadmin/index.pl
regarding the server administrator, the default username: `sadmin` and password: `a1A`
Now you can build your config !!!
=back
=item Install perl modules from CPAN
export http_proxy=http://proxy:8080
export ftp_proxy=http://proxy:8080
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
=item Installing Perfparse database
cd /export/download/perfparse-0.106.1/scripts
cat mysql_create.sql | mysql -u root -p -D asnmtap
=item Configuration of Perfparse v19 for ASNMTAP
cp /opt/asnmtap/perfparse/etc/perfparse.cfg.example /opt/asnmtap/perfparse/etc/perfparse.cfg
First you should edit '/opt/asnmtap/perfparse/etc/perfparse.cfg', adding the correct database settings (if using something other than 'nagios' as DB name, username, and password). The options are :
Use_Storage_Mysql (only in perfparsed; considered as enabled in perfparse-log2mysql)
vi /opt/asnmtap/perfparse/etc/perfparse.cfg
...
Service_Log "-"
...
# Error handling :
Error_Log = "/opt/asnmtap/log/perfparse-asnmtap-all"
Drop_File = "/opt/asnmtap/log/perfparse-asnmtap-drop"
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
# Database Authentication
DB_User = "asnmtap"
DB_Name = "perfparse_asnmtap"
DB_Pass = "passwd"
DB_Host = "localhost"
=item Configuration of Perfparse v20 for ASNMTAP
cp /opt/asnmtap/perfparse/etc/perfparse20.cfg.example /opt/asnmtap/perfparse/etc/perfparse20.cfg
First you should edit '/opt/asnmtap/perfparse/etc/perfparse20.cfg', adding the correct database settings (if using something other than 'nagios' as DB name, username, and password). The options are :
Use_Storage_Mysql (only in perfparsed; considered as enabled in perfparse-log2mysql)
vi /opt/asnmtap/perfparse/etc/perfparse20.cfg
...
Service_Log "-"
...
# Error handling :
Error_Log = "/opt/asnmtap/log/perfparse-asnmtap-all"
Drop_File = "/opt/asnmtap/log/perfparse-asnmtap-drop"
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
PHP_Style = "" # "flo"
http_image_path = "/asnmtap/perfparse20/img/"
=item Testing configuration
http://asnmtap.citap.be/asnmtap/cgi-bin/perfparse.cgi
> An error occured with the SQL:
> "Could not connect to MySQL using: Database = 'asnmtap', Host = '127.0.0.1', Username = 'asnmtap', Password = 'asnmtap'"
>
> Failure Message:
> "Access denied for user: 'asnmtap@localhost.localdomain' (Using password: YES)"
You need to verify your access right for the database
Host & Service string from Nagios:
"$TIMET$"\t"$HOSTNAME$"\t"$SERVICEDESC$"\t"$OUTPUT$"\t"$SERVICESTATE$"\t"$PERFDATA$"\n
$TIMET$ $HOSTNAME$ $SERVICEDESC$ $OUTPUT$ $SERVICESTATE$ $PERFDATA$
1107692805 chablis.dvkhosting.com process ColdFusion OK - 40 processes running with command name cfusion OK label=1;2;3;4;5
Test ASNMTAP Perfparse integration:
lib/ASNMTAP/Asnmtap/Applications.pod view on Meta::CPAN
You must first check all the slaves with SHOW SLAVE STATUS to see which log they are reading, then do a listing of the logs on the master with SHOW MASTER LOGS, find the earliest log among all the slaves (if all the slaves are up to date, this will b...
=item RESET MASTER
Deletes all binary logs listed in the index file, resetting the binlog index file to be empty
=item RESET SLAVE
Makes the slave forget its replication position in the master's binlogs. This statement is meant to be used for a clean start: it deletes the `master.info' and `relay-log.info' files, all the relay logs, and starts a new relay log.
Note: All relay logs are deleted, even if they had not been totally executed by the slave SQL thread. (This is a condition likely to exist on a replication slave that is highly loaded, or if you have issued a STOP SLAVE statement.) Connection informa...
=item How do I configure a slave if the master is already running and I do not want to stop it?
There are several options. If you have taken a backup of the master at some point and recorded the binlog name and offset ( from the output of SHOW MASTER STATUS ) corresponding to the snapshot, do the following:
Make sure the slave is assigned a unique server ID.
Execute the following statement on the slave, filling in appropriate values for each parameter:
mysql> CHANGE MASTER TO
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# Common variables = = = = = = = = = = = = = = = = = = = = = = = = = = =
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub user_session_and_access_control {
my ($sessionControl, $level, $cgi, $pagedir, $pageset, $debug, $htmlTitle, $subTitle, $queryString) = @_;
my ($errorUserAccessControl, $sessionID, $userType, $cfhOld, $cfhNew, $password);
$sessionID = '';
if (! $sessionControl or ( $ENV{REMOTE_ADDR} eq $REMOTE_ADDR and $ENV{HTTP_HOST} =~ /^${REMOTE_HOST}(:\d+)?/ )) {
($cfhOld) = $|; $cfhNew = select (STDOUT); $| = 1;
print $cgi->header;
$| = $cfhOld; select ($cfhNew);
return ("", 0, 0, 0, 0, 1, 1, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle);
# --> ($sessionID, $iconAdd, $iconDelete, $iconDetails, $iconEdit, $iconQuery, $iconTable,
# $errorUserAccessControl, $CremoteUser, $CremoteAddr, $CremoteNetmask, $CgivenName, $CfamilyName,
# $Cemail, $Cpassword, $CuserType, $Cpagedir, $Cactivated, $CkeyLanguage, $subTitle)
}
sub setAccessControlParameters {
my ($level, $pagedir, $pageset, $debug, $cgi, $session, $sessionID, $subTitle, $queryString) = @_;
my $logonRequestLogoff = ($cgi->param('logonRequest') or "logon");
if ( $logonRequestLogoff ne 'logoff' ) {
if ( $session->param('~logged-in') ) {
$subTitle .= " <a href=\"" .$ENV{SCRIPT_NAME}. "?pagedir=$pagedir&pageset=$pageset&debug=$debug&CGISESSID=$sessionID&logonRequest=logoff\"><IMG SRC=\"$IMAGESURL/logoff.jpg\" title=\"Logoff " .$session->param('remote...
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
$accessGranted = 1 if ($TuserType >= 4);
} elsif ($level eq 'moderator') { # Moderator
$accessGranted = 1 if ($TuserType >= 2);
} elsif ($level eq 'member') { # Member
$accessGranted = 1 if ($TuserType >= 1 and $pagedir ne '<NIHIL>' and ($Tpagedir =~ /\/$Rpagedir\//));
} else { # Guest
$accessGranted = 1 if ($pagedir ne '<NIHIL>' and ($Tpagedir =~ /\/$Rpagedir\//));
}
$subTitle = setAccessControlParameters( $level, $pagedir, $pageset, $debug, $cgi, $session, $sessionID, $subTitle, $queryString );
return ($sessionID, $session->param('iconAdd'), $session->param('iconDelete'), $session->param('iconDetails'), $session->param('iconEdit'), $session->param('iconQuery'), $session->param('iconTable'), $errorUserAccessControl, $session->param('remo...
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', 'F', '', $sessionID);
$errorUserAccessControl = "You don\'t have enough permissions!";
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";
return ("", 0, 0, 0, 0, 1, 1, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle);
}
$session->param('~logged-in', 0);
$session->param('ASNMTAP', 'LEXY');
$session->param('iconAdd', 0);
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
my $logonRequest = ($cgi->param('logonRequest') or "logonView");
if( $logonRequest eq "logonView" or $logonRequest eq "logonCheck" ) {
my $logonPassword = ($cgi->param('logonPassword') or undef);
my $logonTimestamp = ($cgi->param('logonTimestamp') or undef);
my $loginTrials = ($session->param('~login-trials') or 0);
if ( $loginTrials >= 3 ) {
$errorUserAccessControl = "You failed 3 times in a row.<br>Your session is blocked.<br>Please contact us with the details of your action";
} elsif( $logonRequest eq "logonCheck" ) {
my ($CremoteUser, $CremoteAddr, $CremoteNetmask, $CgivenName, $CfamilyName, $Cemail, $Cpassword, $CuserType, $Cpagedir, $Cactivated, $CkeyLanguage);
$CremoteUser = ($cgi->param('remoteUser') or undef);
$session->param('remoteUser', $CremoteUser) if (defined $CremoteUser);
$CuserType = 0;
if (defined $CremoteUser and defined $logonPassword and defined $logonTimestamp) {
my $rv = 1;
if (defined $CremoteUser) {
my ($dbh, $sth, $sql);
$dbh = DBI->connect("dbi:mysql:$DATABASE:$SERVERNAMEREADWRITE:$SERVERPORTREADWRITE", "$SERVERUSERREADWRITE", "$SERVERPASSREADWRITE" ) or $rv = error_trap_DBI(*STDOUT, "Cannot connect to the database", $debug, $pagedir, $pageset, $htmlTitle,...
if ($dbh and $rv) {
$sql = "select remoteAddr, remoteNetmask, givenName, familyName, email, password, userType, pagedir, activated, keyLanguage from $SERVERTABLUSERS where catalogID = '$CATALOGID' and remoteUser = '$CremoteUser'";
$sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, 'Logon', 3600, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, 'Logon', 3600, '', $sessionID) if $rv;
if ( $rv ) {
if ($sth->rows) {
($CremoteAddr, $CremoteNetmask, $CgivenName, $CfamilyName, $Cemail, $Cpassword, $CuserType, $Cpagedir, $Cactivated, $CkeyLanguage) = $sth->fetchrow_array() or $rv = error_trap_DBI(*STDOUT, "Cannot $sth->fetchrow_array: $sql", $debug, ...
if ( $rv ) {
$errorUserAccessControl = "Remote User '$CremoteUser' not yet activated." if ($Cactivated != 1);
} else {
$errorUserAccessControl = "Problems with retreiving data from the MySQL database.";
}
} else {
$errorUserAccessControl = "Remote User '$CremoteUser' invalid.";
}
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
my $currentTime = time();
if (defined $errorUserAccessControl) {
$errorUserAccessControl .= "<br>Please contact us with the details of your action.";
unless ( $rv ) {
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";
return ("", 0, 0, 0, 0, 1, 1, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle);
}
} elsif ( $Cpassword ne $logonPassword ) {
$errorUserAccessControl = "Bad password";
} elsif( $logonTimestamp > $currentTime or $logonTimestamp < ($currentTime - 300) ) {
$errorUserAccessControl = "Time stamp invalid";
} else {
if ( $ENV{REMOTE_ADDR} ) {
if ( $CremoteAddr ne '' ) {
use NetAddr::IP;
my $netmask = (int($CremoteNetmask) or 32);
my $ipAddr = NetAddr::IP->new($ENV{REMOTE_ADDR});
my $ipRange = NetAddr::IP->new("$CremoteAddr/$netmask");
$errorUserAccessControl = "IP Address Forbidden." unless ( $ipRange->contains ( $ipAddr ) );
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
$session->param('iconQuery', 1);
$session->param('iconTable', 1);
$session->param('remoteUser', $CremoteUser);
$session->param('remoteAddr', $CremoteAddr);
$session->param('remoteNetmask', $CremoteNetmask);
$session->param('givenName', $CgivenName);
$session->param('familyName', $CfamilyName);
$session->param('email', $Cemail);
$session->param('keyLanguage', $CkeyLanguage);
$session->param('password', $Cpassword);
$session->param('userType', $CuserType);
$session->param('pagedir', $Cpagedir);
$session->param('activated', $Cactivated);
}
}
}
$password = $Cpassword;
} else {
$errorUserAccessControl = "Remote User, Password and/or Time stamp are missing";
}
}
if (defined $errorUserAccessControl) {
$logonRequest = "logonView";
my $trials = $session->param('~login-trials') || 0;
$session->param('~login-trials', ++$trials);
if ( $debug eq 'T' and defined $queryString ) {
my %query = map { my($k, $v) = split(/=/) } split(/&/, $queryString);
while (my ($key, $value) = each(%query)) { print "$key=$value<br>\n"; }
print "<$password> " if (defined $password);
print "<$logonPassword><br>\n";
}
}
if( $logonRequest eq "logonView" ) {
$logonTimestamp = time();
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, 'Logon', 3600, '', 'F', "<script language=\"JavaScript1.2\" type=\"text/javascript\" src=\"$HTTPSURL/md5.js\"></script>", $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" if ( defined $errorUserAccessControl );
print <<HTML;
<script language="JavaScript1.2" type="text/javascript">
function validateForm() {
// The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
var objectRegularExpressionPasswordFormat = /\^[\\w|\\W]*(?=[\\w|\\W]*\\d)(?=[\\w|\\W]*[a-z])(?=[\\w|\\W]\*[A-Z])[\\w|\\W]*\$/;
if ( document.usac.remoteUser.value == null || document.usac.remoteUser.value == '' ) {
document.usac.remoteUser.focus();
alert('Please enter a remote user!');
return false;
}
if ( document.usac.logonPassword.value == null || document.usac.logonPassword.value == '' ) {
document.usac.logonPassword.focus();
alert('Please enter a password!');
return false;
} else {
if ( ! objectRegularExpressionPasswordFormat.test(document.usac.logonPassword.value) ) {
document.usac.logonPassword.focus();
alert('Please re-enter password: Bad password format!');
return false;
}
document.usac.logonPassword.value = hex_md5(document.usac.logonPassword.value);
}
return true;
}
</script>
<br>
lib/ASNMTAP/Asnmtap/Applications/CGI.pm view on Meta::CPAN
if ( defined $queryString ) {
my %query = map { my($k, $v) = split(/=/) } split(/&/, $queryString);
while (my ($key, $value) = each(%query)) { print "<input type=\"hidden\" name=\"$key\" value=\"$value\">\n"; }
}
print <<HTML;
<table border="0" cellspacing="0" cellpadding="0">
<tr><td><b>Remote User: </b></td><td>
<input type="text" name="remoteUser" value="" size="15" maxlength="15">
</td></tr><tr><td><b>Password: </b></td><td>
<input type="password" name="logonPassword" value="" size="15" maxlength="32"> The password must contain at least 1 number, at least 1 lower case letter, and at least 1 upper case letter.
</td></tr><tr align="left"><td align="right"><br><input type="submit" value="Logon"></td><td><br><input type="reset" value="Reset"></td></tr>
</table>
</form>
<br>
HTML
$errorUserAccessControl = $logonRequest;
}
} elsif( $logonRequest eq "logoff" ) {
print_header (*STDOUT, $pagedir, $pageset, $htmlTitle, "Logoff", 3600, '', 'F', '', $sessionID);
$errorUserAccessControl = "Logged off remote user: " .$session->param('givenName'). " " .$session->param('familyName');
print "<br>\n<h1 align=\"center\">$errorUserAccessControl</h1>\n";
$session->delete();
return ("", 0, 0, 0, 0, 1, 1, $errorUserAccessControl, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $subTitle);
}
$subTitle = setAccessControlParameters( $level, $pagedir, $pageset, $debug, $cgi, $session, $sessionID, $subTitle, $queryString );
return ($sessionID, $session->param('iconAdd'), $session->param('iconDelete'), $session->param('iconDetails'), $session->param('iconEdit'), $session->param('iconQuery'), $session->param('iconTable'), $errorUserAccessControl, $session->param('remote...
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub do_action_DBI {
my ($rv, $dbh, $sql, $pagedir, $pageset, $htmlTitle, $subTitle, $sessionID, $debug) = @_;
my $sth = $dbh->prepare( $sql ) or $rv = error_trap_DBI(*STDOUT, "Cannot dbh->prepare: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID);
$sth->execute() or $rv = error_trap_DBI(*STDOUT, "Cannot sth->execute: $sql", $debug, $pagedir, $pageset, $htmlTitle, $subTitle, 3600, '', $sessionID) if $rv;
my $numberRecordsIntoQuery = ($rv) ? $sth->fetchrow_array() : 0;
lib/ASNMTAP/Asnmtap/Plugins.pm view on Meta::CPAN
push ( @{ $_[0]->{_programGetOptions} }, 'status|S:s', 'asnmtapEnv|A:s', 'onDemand|O:s', 'logging|L:s', 'debugfile|D|dumphttp|httpdump:s', 'debug|d:s' );
my ($_programUsageSuffix, $_programHelpSuffix);
foreach ( @{ $_[0]->{_programGetOptions} } ) {
for ($_) {
/^trendline\|T([:=])i$/ && do { $_[0]->{_getOptionsType}->{trendline} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-T|--trendline <TRENDLINE>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-T, --trendline <TRENDLINE>\...
/^timeout\|t([:=])i$/ && do { $_[0]->{_getOptionsType}->{timeout} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-t|--timeout <TIMEOUT>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-t, --timeout=<TIMEOUT>\n time...
/^environment\|e([:=])s$/ && do { $_[0]->{_getOptionsType}->{environment} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-e|--environment <ENVIRONMENT>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-e, --environment=<ENVIR...
/^proxy([:=])s$/ && do { $_[0]->{_getOptionsType}->{proxy} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'--proxy <username:password@proxy:port&domain[,domain]>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "...
/^host\|H([:=])s$/ && do { $_[0]->{_getOptionsType}->{host} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-H|--host <HOST>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-H, --host=<HOST>\n hostname or ip a...
/^url\|U([:=])s$/ && do { $_[0]->{_getOptionsType}->{url} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-U|--url <URL>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-U, --url=<URL>\n"; last; };
/^port\|P([:=])i$/ && do { $_[0]->{_getOptionsType}->{port} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-P|--port <PORT>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-P, --port=<PORT>\n"; last; };
/^community\|C([:=])s$/ && do { $_[0]->{_getOptionsType}->{community} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-C|--community <SNMP COMMUNITY>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-C, --community=<SNMP C...
/^username\|u\|loginname([:=])s$/ && do { $_[0]->{_getOptionsType}->{username} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-u|--username|--loginname <USERNAME>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-u, --username/--l...
/^password\|p\|passwd([:=])s$/ && do { $_[0]->{_getOptionsType}->{password} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-p|--password|--passwd <PASSWORD>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-p, --password/--pass...
/^filename\|F([:=])s$/ && do { $_[0]->{_getOptionsType}->{filename} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-F|--filename <FILENAME>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-F, --filename=<FILENAME>\n ...
/^interval\|i([:=])i$/ && do { $_[0]->{_getOptionsType}->{interval} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-i|--interval <SECONDS>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-i, --interval=<SECONDS>\n in...
/^loglevel\|l([:=])s$/ && do { $_[0]->{_getOptionsType}->{loglevel} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-l|--loglevel <LOGLEVEL>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-l, --loglevel=<LOGLEVEL>\n ...
/^year\|Y([:=])i$/ && do { $_[0]->{_getOptionsType}->{year} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-Y|--year <YEAR>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-Y, --year=<YEAR>\n year, format: [1...
/^quarter\|Q([:=])i$/ && do { $_[0]->{_getOptionsType}->{quarter} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-Q|--quarter <QUARTER>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-Q, --quarter=<QUARTER>\n quar...
/^month\|M([:=])i$/ && do { $_[0]->{_getOptionsType}->{month} = $1; $_programUsageSuffix .= ($1 eq ':' ? ' [' : ' ') .'-M|--month <MONTH>'. ($1 eq ':' ? ']' : ''); $_programHelpSuffix .= "-M, --month=<MONTH>\n month, where...
/^warning\|w([:=])s$/ && do { $_[0]->{_getOptionsType}->{warning} = $1; last; };
/^critical\|c([:=])s$/ && do { $_[0]->{_getOptionsType}->{critical} = $1; last; };
}
lib/ASNMTAP/Asnmtap/Plugins.pm view on Meta::CPAN
} elsif ( exists $_[0]->{_getOptionsType}->{community} and $_[0]->{_getOptionsType}->{community} eq '=' ) {
$_[0]->printUsage ('Missing command line argument community');
}
if ( exists $_[0]->{_getOptionsArgv}->{username} ) {
# ... TODO ...
} elsif ( exists $_[0]->{_getOptionsType}->{username} and $_[0]->{_getOptionsType}->{username} eq '=' ) {
$_[0]->printUsage ('Missing command line argument username');
}
if ( exists $_[0]->{_getOptionsArgv}->{password} ) {
# ... TODO ...
} elsif ( exists $_[0]->{_getOptionsType}->{password} and $_[0]->{_getOptionsType}->{password} eq '=' ) {
$_[0]->printUsage ('Missing command line argument password');
}
if ( exists $_[0]->{_getOptionsArgv}->{filename} ) {
# ... TODO ...
} elsif ( exists $_[0]->{_getOptionsType}->{filename} and $_[0]->{_getOptionsType}->{filename} eq '=' ) {
$_[0]->printUsage ('Missing command line argument filename');
}
if ( exists $_[0]->{_getOptionsArgv}->{interval} ) {
my $interval = $1 if ( $_[0]->{_getOptionsArgv}->{interval} =~ m/^([1-9]?(?:\d*))$/ );
lib/ASNMTAP/Asnmtap/Plugins.pm view on Meta::CPAN
$_[0]->printUsage ('Username and/or Password missing: : '. $proxy) unless (defined $proxyUsername and defined $proxyPassword);
($proxyServer, $proxyNo) = split(/\&/, $proxyServerNo );
} else {
($proxyServer, $proxyNo) = split(/\&/, $proxy );
}
$_[0]->[ $_[0]->[0]{_proxy} = @{$_[0]} ] = {} unless ( exists $_[0]->{_proxy} );
$_[0]->{_proxy}->{server} = "http://" . $proxyServer;
$_[0]->{_proxy}->{username} = $proxyUsername;
$_[0]->{_proxy}->{password} = $proxyPassword;
$_[0]->{_proxy}->{no} = ( defined $proxyNo ? [ split (/,/, $proxyNo) ] : undef );
$ENV{NO_PROXY} = ( defined $_[0]->{_proxy}->{no} ? join (', ', @{ $_[0]->{_proxy}->{no} }) : '' );
}
# HTTPS: DEFAULT SSL VERSION
$ENV{HTTPS_VERSION} = $_[0]->{_SSLversion};
# HTTPS: DEBUGGING SWITCH / LOW LEVEL SSL DIAGNOSTICS
$ENV{HTTPS_DEBUG} = $_[0]->{_getOptionsValues}->{debug};
if ( defined $proxy and $proxy ne '' ) {
# HTTPS: PROXY SUPPORT
$ENV{HTTPS_PROXY} = $_[0]->{_proxy}->{server};
# HTTPS: PROXY BASIC_AUTH
$ENV{HTTPS_PROXY_USERNAME} = $_[0]->{_proxy}->{username} if (defined $_[0]->{_proxy}->{username});
$ENV{HTTPS_PROXY_PASSWORD} = $_[0]->{_proxy}->{password} if (defined $_[0]->{_proxy}->{password});
}
if (exists $_[0]->{_clientCertificate}) {
if (defined $_[0]->{_clientCertificate}->{certFile} and defined $_[0]->{_clientCertificate}->{keyFile}) {
# CLIENT CERT SUPPORT, PEM encoded certificate and private key files.
$ENV{HTTPS_CERT_FILE} = $_[0]->{_clientCertificate}->{certFile};
$ENV{HTTPS_KEY_FILE} = $_[0]->{_clientCertificate}->{keyFile};
if (defined $_[0]->{_clientCertificate}->{caFile} and defined $_[0]->{_clientCertificate}->{caDir}) {
# CA CERT PEER VERIFICATION, Additionally, if you would like to tell the client where the CA file is.
lib/ASNMTAP/Asnmtap/Plugins.pod view on Meta::CPAN
autoadd [--environment <ENVIRONMENT>] to _programUsageSuffix
autoadd --environment=<ENVIRONMENT>
P(roduction)
S(imulation)
A(cceptation)
T(est)
D(evelopment)
L(ocal) to _programHelpSuffix
--proxy=<username:password@proxy:port&domain[,domain]>
add: new ... (_programGetOptions => ['proxy:s' or 'proxy=s'])
autoadd [--proxy <username:password@proxy:port&domain[,domain]>] to _programUsageSuffix
autoadd --proxy=<username:password@proxy:port&domain[,domain]> to _programHelpSuffix
-H, --host=<HOST>
hostname or ip address
add: new ... (_programGetOptions => ['host|H:s' or 'host|H=s'])
autoadd [-H|--host <HOST>] to _programUsageSuffix
autoadd -H,--host=<HOST> to _programHelpSuffix
lib/ASNMTAP/Asnmtap/Plugins.pod view on Meta::CPAN
autoadd -C, --community=<SNMP COMMUNITY> to _programHelpSuffix
-u, --username/--loginname=<USERNAME>
add: new ... (_programGetOptions => ['username|u|loginname:s' or 'username|u|loginname=s'])
autoadd [-u|--username|--loginname <USERNAME>] to _programUsageSuffix
autoadd -u, --username/--loginname=<USERNAME> to _programHelpSuffix
-p, --password/--passwd=<PASSWORD>
add: new ... (_programGetOptions => ['password|p|passwd:s' or 'password|p|passwd=s'])
autoadd [-p|--password|--passwd <PASSWORD>] to _programUsageSuffix
autoadd -p, --password/--passwd=<PASSWORD> to _programHelpSuffix
-F, --filename=<FILENAME>
XML filename with the ASNMTAP/Nagios compatible test results
add: new ... (_programGetOptions => ['filename|F:s' or 'filename|F=s'])
autoadd [-F|--filename <FILENAME>] to _programUsageSuffix
autoadd -F, --filename=<FILENAME> ... to _programHelpSuffix
lib/ASNMTAP/Asnmtap/Plugins.pod view on Meta::CPAN
=over 4
=item server
the name of the server and optional port number
=item username
the username
=item password
the password
=item no
do not proxy requests to the given domains. Calling no_proxy without any domains clears the list of domains.
=back
=item _timeout
specifies how much time we give remote servers to respond before the library disconnects and creates an internal timeout response.
lib/ASNMTAP/Asnmtap/Plugins.pod view on Meta::CPAN
=item server
$objectPlugins->proxy( 'server' => 'proxy.citap.com' );
$objectPlugins->_init_proxy_and_client_certificate ();
=item username
$objectPlugins->proxy( 'username' => 'username' );
$objectPlugins->_init_proxy_and_client_certificate ();
=item password
$objectPlugins->proxy( 'password' => 'password' );
$objectPlugins->_init_proxy_and_client_certificate ();
=item no
$objectPlugins->proxy( 'no' => ['localhost', '127.0.0.1'] );
$objectPlugins->_init_proxy_and_client_certificate ();
=back
=item value (optional)
lib/ASNMTAP/Asnmtap/Plugins/IO.pm view on Meta::CPAN
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute service' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
if ( $parms{port} == 110 and $parms{service} eq 'pop3' ) {
unless ( defined $parms{POP3}{username} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute username' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $parms{POP3}{password} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute password' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $parms{POP3}{serviceReady} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute serviceReady' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $parms{POP3}{passwordRequired} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute passwordRequired' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $parms{POP3}{mailMessages} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute mailMessages' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $parms{POP3}{closingSession} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing attribute closingSession' }, $TYPE{APPEND} );
lib/ASNMTAP/Asnmtap/Plugins/IO.pm view on Meta::CPAN
while ( <$INET> ) {
chomp;
print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::action::pop3(110): <$_>\n" if ( $debug >= 2 );
if ( $exit ) { $action = "<TIMEOUT>"; last; }
if ($_ =~ /^\+OK /) {
SWITCH: {
if ( $_ =~ /${parms{POP3}{serviceReady}}/ ) { $action = 'USER (POP3)'; print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::action: $action\n" if ( $debug >= 2 ); print $INET "USER ${parms{POP3}{username}}\r\n"; }
if ( $_ =~ /${parms{POP3}{passwordRequired}}/ ) { $action = 'PASS (POP3)'; print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::action: $action\n" if ( $debug >= 2 ); print $INET "PASS ${parms{POP3}{password}}\r\n"; }
if ( $_ =~ /${parms{POP3}{mailMessages}}/ ) { $action = 'QUIT (POP3)'; print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::action: $action\n" if ( $debug >= 2 ); print $INET "QUIT\r\n"; }
if ( $_ =~ /${parms{POP3}{closingSession}}/ ) { $action = 'OK (POP3)'; print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::action: $action\n" if ( $debug >= 2 ); last; }
}
} elsif ($_ =~ /^\-ERR /){ $action = "<$_>"; print $INET "HELP\n"; last; }
}
} else {
print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::tcp: no RFC implementation: ${parms{protocol}} ${parms{service}}(${parms{port}})\n" if ( $debug >= 2 );
}
} elsif ( $INET && $parms{protocol} eq 'udp' ) {
print "ASNMTAP::Asnmtap::Plugins::IO::scan_socket_info::udp: no RFC implementation: ${parms{protocol}} ${parms{service}}(${parms{port}})\n" if ( $debug >= 2 );
lib/ASNMTAP/Asnmtap/Plugins/IO.pod view on Meta::CPAN
use ASNMTAP::Asnmtap::Plugins qw(:PLUGINS);
my $objectPlugins = ASNMTAP::Asnmtap::Plugins->new (
_programName => 'check_template-IO.pl',
_programDescription => "IO plugin template for the '$APPLICATION'",
_programVersion => '3.002.003',
_programUsagePrefix => '--service <service> --protocol <protocol> --request <request>',
_programHelpPrefix => '--service=<service>
--protocol=<protocol>
--request=<request>',
_programGetOptions => ['host|H=s', 'port|P=i', 'service:s', 'protocol:s', 'request:s', 'username|u|loginname:s', 'password|p|passwd:s', 'timeout|t:i', 'trendline|T:i'],
_timeout => 30,
_debug => 0);
my $host = $objectPlugins->getOptionsArgv ('host');
my $port = $objectPlugins->getOptionsArgv ('port');
my $service = $objectPlugins->getOptionsArgv ('service');
my $protocol = $objectPlugins->getOptionsArgv ('protocol');
my $request = $objectPlugins->getOptionsArgv ('request');
my $username = $objectPlugins->getOptionsArgv ('username');
my $password = $objectPlugins->getOptionsArgv ('password');
use ASNMTAP::Asnmtap::Plugins::IO v3.002.003;
use ASNMTAP::Asnmtap::Plugins::IO qw(:SOCKET);
my $returnCode = scan_socket_info (
asnmtapInherited => \$objectPlugins,
protocol => $protocol,
host => $host,
port => $port,
service => $service,
request => $request,
socketTimeout => 5,
POP3 => {
username => $username,
password => $password,
serviceReady => "[XMail [0-9.]+ POP3 Server] service ready",
passwordRequired => 'Password required for',
mailMessages => "Maildrop has [0-9.]+ messages",
closingSession => "[XMail [0-9.]+ POP3 Server] closing session"
}
);
=head1 FUNCTIONS
=head2 Socket based functions
=over 4
lib/ASNMTAP/Asnmtap/Plugins/IO.pod view on Meta::CPAN
optional, scalar, default 10
=item POP3
=over 4
=item username
required, scalar
=item password
required, scalar
=item serviceReady
"[XMail [0-9.]+ POP3 Server] service ready"
required, scalar
=item passwordRequired
'Password required for'
required, scalar
=item mailMessages
"Maildrop has [0-9.]+ messages"
required, scalar
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
delay => 1,
mime => 0,
tz => undef,
debug => 0
},
_IMAP4 =>
{
imap4 => undef,
port => 143,
username => undef,
password => undef,
timeout => 120,
debug => 0
},
_POP3 =>
{
pop3 => undef,
port => 110,
username => undef,
password => undef,
timeout => 120,
debug => 0
},
_mailType => 0,
_text =>
{
SUBJECT => 'uKey=ASNMTAP',
from => 'From:',
to => 'To:',
subject => 'Subject:',
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
$self->{_SMTP}->{delay} = $args{_SMTP}->{delay} if ( exists $args{_SMTP}->{delay} );
$self->{_SMTP}->{mime} = $args{_SMTP}->{mime} if ( exists $args{_SMTP}->{mime} );
$self->{_SMTP}->{tz} = $args{_SMTP}->{tz} if ( exists $args{_SMTP}->{tz} );
$self->{_SMTP}->{debug} = $args{_SMTP}->{debug} if ( exists $args{_SMTP}->{debug} );
}
if ( exists $args{_IMAP4} ) {
$self->{_IMAP4}->{imap4} = $args{_IMAP4}->{imap4} if ( exists $args{_IMAP4}->{imap4} );
$self->{_IMAP4}->{port} = $args{_IMAP4}->{port} if ( exists $args{_IMAP4}->{port} );
$self->{_IMAP4}->{username} = $args{_IMAP4}->{username} if ( exists $args{_IMAP4}->{username} );
$self->{_IMAP4}->{password} = $args{_IMAP4}->{password} if ( exists $args{_IMAP4}->{password} );
$self->{_IMAP4}->{timeout} = $args{_IMAP4}->{timeout} if ( exists $args{_IMAP4}->{timeout} );
$self->{_IMAP4}->{debug} = $args{_IMAP4}->{debug} if ( exists $args{_IMAP4}->{debug} );
}
if ( exists $args{_POP3} ) {
$self->{_POP3}->{pop3} = $args{_POP3}->{pop3} if ( exists $args{_POP3}->{pop3} );
$self->{_POP3}->{port} = $args{_POP3}->{port} if ( exists $args{_POP3}->{port} );
$self->{_POP3}->{username} = $args{_POP3}->{username} if ( exists $args{_POP3}->{username} );
$self->{_POP3}->{password} = $args{_POP3}->{password} if ( exists $args{_POP3}->{password} );
$self->{_POP3}->{timeout} = $args{_POP3}->{timeout} if ( exists $args{_POP3}->{timeout} );
$self->{_POP3}->{debug} = $args{_POP3}->{debug} if ( exists $args{_POP3}->{debug} );
}
$self->{_mailType} = $args{_mailType} if ( exists $args{_mailType} );
if ( exists $args{_text} ) {
$self->{_text}->{SUBJECT} = $args{_text}->{SUBJECT} if ( exists $args{_text}->{SUBJECT} );
$self->{_text}->{from} = $args{_text}->{from} if ( exists $args{_text}->{from} );
$self->{_text}->{to} = $args{_text}->{to} if ( exists $args{_text}->{to} );
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
}
my ($numberOfMails, $email);
if ( defined $self->{_IMAP4}->{imap4} ) {
unless ( defined $self->{_IMAP4}->{username} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing Mail IMAP4 parameter username' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $self->{_IMAP4}->{password} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing Mail IMAP4 parameter password' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
use Net::IMAP::Simple;
$email = Net::IMAP::Simple->new ( $self->{_IMAP4}->{imap4}, port => $self->{_IMAP4}->{port}, timeout => $self->{_IMAP4}->{timeout} );
unless ( defined $email ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => "Cannot connect to IMAP4 server: $self->{_IMAP4}->{imap4}, $Net::IMAP::Simple::errstr" }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( $email->login( $self->{_IMAP4}->{username}, $self->{_IMAP4}->{password} ) ){
my $errstr = $email->errstr; $errstr =~ s/[\n\r]/ /g; $errstr =~ s/ +$//g;
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => "Cannot login to IMAP4 server: $self->{_IMAP4}->{imap4}, $errstr" }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
$numberOfMails = $email->select ( 'INBOX' );
unless ( defined $numberOfMails ) {
my $errstr = $email->errstr; $errstr =~ s/[\n\r]/ /g; $errstr =~ s/ +$//g;
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => "Cannot select my INBOX on IMAP4 server: $self->{_IMAP4}->{imap4}, $errstr" }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
} elsif ( defined $self->{_POP3}->{pop3} ) {
unless ( defined $self->{_POP3}->{username} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing Mail POP3 parameter username' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $self->{_POP3}->{password} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing Mail POP3 parameter password' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
use Mail::POP3Client;
$email = Mail::POP3Client->new ( HOST => $self->{_POP3}->{pop3}, PORT => $self->{_POP3}->{port}, USER => $self->{_POP3}->{username}, PASSWORD => $self->{_POP3}->{password}, TIMEOUT => $self->{_POP3}->{timeout} ); # , DEBUG => ( $self->{_POP3}->{d...
$numberOfMails = $email->Count();
unless ( defined $numberOfMails and $numberOfMails != -1 ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => "Cannot connect/login to POP3 server: $self->{_POP3}->{pop3}" }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
} else {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'NO EMAIL CLIENT SPECIFIED !!!' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
lib/ASNMTAP/Asnmtap/Plugins/Mail.pod view on Meta::CPAN
=item port (reserved)
port used when none is specified in the server name.
optional, scalar value, default: 143
=item username
optional, scalar value, default: undef
=item password
optional, scalar value, default: undef
=item timeout
maximum time, in seconds, to wait for a response from the IPAM4 server
optional, scalar value, default: 120 unless inherited from the parent object attribute _timeout
=item debug
lib/ASNMTAP/Asnmtap/Plugins/Mail.pod view on Meta::CPAN
=item port (reserved)
port used when none is specified in the server name.
optional, scalar value, default: 110
=item username
optional, scalar value, default: undef
=item password
optional, scalar value, default: undef
=item timeout
maximum time, in seconds, to wait for a response from the POP3 server
optional, scalar value, default: 120 unless inherited from the parent object attribute _timeout
=item debug
lib/ASNMTAP/Asnmtap/Plugins/Modem.pm view on Meta::CPAN
phonenumber => undef,
port => '/dev/ttyS0',
baudrate => 19200,
databits => 8,
initString => 'H0 Z S7=45 S0=0 Q0 V1 E0 &C0 X4',
parity => 'none',
stopbits => 1,
timeout => 30,
phonebook => undef,
username => undef,
password => undef,
defaultGateway => undef,
defaultInterface => undef,
defaultDelete => 1,
pppInterface => 'ppp0',
pppTimeout => 60,
pppPath => '/etc/ppp',
logtype => 'syslog',
loglevel => 'emerg'
);
lib/ASNMTAP/Asnmtap/Plugins/Modem.pm view on Meta::CPAN
my $modem_not_ras = ( defined $parms{phonebook} ) ? 0 : 1;
unless ( $modem_not_ras ) {
unless ( defined $parms{phonebook} and defined $parms{username} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing phonebook' }, $TYPE{APPEND} ) unless ( defined $parms{phonebook} );
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing username' }, $TYPE{APPEND} ) unless ( defined $parms{username} );
return ( $ERRORS{UNKNOWN} );
}
if ( $parms{windows} and ! defined $parms{password} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing password' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
}
unless ( $parms{defaultDelete} =~ /^(?:[01])$/ ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Invalid defaultDelete: '. $parms{defaultDelete} }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( $parms{pppInterface} =~ /^(?:ppp[0-3])$/ ) {
lib/ASNMTAP/Asnmtap/Plugins/Modem.pm view on Meta::CPAN
my ($returnCode, $hrasconn, $modem, $ok, $answer);
my $not_connected_guess = 0;
return ( $returnCode ) if ( $returnCode = _test_modem ( $asnmtapInherited, \%parms, \$modem, \$ok, \$answer, \$not_connected_guess, $modem_not_ras, $debug ) );
unless ( $modem_not_ras ) {
my ($pppStatus, $exit);
if ( $parms{windows} ) {
eval { no strict 'subs'; $hrasconn = RasDial( $parms{phonebook}, $parms{phonenumber}, $parms{username}, $parms{password} ) or _error_trap_modem ( 'Cannot Dial to '. $parms{phonenumber}, Win32::RASE::FormatMessage, $debug ) };
} else {
$$asnmtapInherited->call_system ( $ROUTECOMMAND .' del default' ) if ( $parms{defaultDelete} );
my $ATZ= ''; # APE: there are modems that have problems with the command 'ATZ' ! # ' ATZ OK';
my $command = 'cd '. $parms{pppPath} .'; '. $PPPDCOMMAND .' '. $parms{port} .' '. $parms{baudrate} .' debug user '. $parms{username} .' call '. $parms{phonebook} ." connect \"$CHATCOMMAND -v ABORT BUSY ABORT 'NO CARRIER' ABORT VOICE ABORT 'NO D...
print "ASNMTAP::Asnmtap::Plugins::Modem::get_modem_request::pppd: $command\n" if ($debug);
if ( $$asnmtapInherited->call_system ( "$command" ) ) {
$$asnmtapInherited->pluginValues ( { alert => "'$command' failed" }, $TYPE{APPEND} );
$not_connected_guess++;
( run in 0.794 second using v1.01-cache-2.11-cpan-49f99fa48dc )