ADSM-L

Re: Client Monitoring and Reporting

2000-09-06 14:05:45
Subject: Re: Client Monitoring and Reporting
From: Richard Cowen <richard.cowen AT VTMEDNET DOT ORG>
Date: Wed, 6 Sep 2000 14:02:50 -0400
Here's a place to start:

perl scraps:

# Examine adsm activity log and:
# create html for backups/archives in the last 24 hours.
# create html for "scheduled busy's" in the last 24 hours.
# create html for "schedules missed" in the last 24 hours.
# create html for "schedules failed" in the last 24 hours.
# create html for backup error messages  in the last 24 hours.


$adsmc='select date_time as \"date_time------------------\", message
as \"message---------------------------------------------------
--------------------------------------------------------------------------------------------------------\",
sessid from ACTLOG where
sessid from ACTLOG where
 msgno in
\(406,403,407,405,480,481,482,483,484,485,486,487,4961,2578,2579,2571,4953,4954,4955,4956,4959,4964,4007,4966\)
and date_t
ime\>\= \\\'';
$adsmc.="$mydate $mytime";
$adsmc.='\\\' and date_time \< \\\'';
$adsmc.="$enddate $mytime";
$adsmc.='\\\' ';


# do the select adsm command against the ACTLOG table

&getlog;

# process the arrays built for backups/archives.

&process_backups;
&process_busys;
&process_missed;
&process_errors;
&process_failed;

sub getlog {
$command="/usr/bin/dsmadmc -id=batch_admin -passw=$bapwd -outfile
\>\> $tmp1 $adsmc";
system("$command");

...


if (@text[0] eq "ANE4961I") { # number of bytes transferred
elsif (@text[0] eq "ANE4964I") { # elapsed time
elsif (@text[0] eq "ANE4966I") { # Network Transfer Rate
elsif (@text[0] eq "ANR0406I") { # session start
elsif (@text[0] eq "ANR0403I") { # session stop
elsif (@text[0] eq "ANR0480W") { # session terminated - connection severed
elsif (@text[0] eq "ANR0481W") { # session terminated - timeout
elsif (@text[0] eq "ANR0482W") { # session terminated - idle
elsif (@text[0] eq "ANR0483W") { # session terminated - forced
elsif (@text[0] eq "ANR0484W") { # session terminated - protocol violation
elsif (@text[0] eq "ANR0485W") { # session terminated - insufficient
memory on server
elsif (@text[0] eq "ANR0486W") { # session terminated - internal
error on server
elsif (@text[0] eq "ANR0487W") { # session terminated - preempted
elsif (@text[0] eq "ANE4959I") { # objects failed
elsif (@text[0] eq "ANE4953I") { # Objects archived
elsif (@text[0] eq "ANE4954I") { # Objects backed up
elsif (@text[0] eq "ANE4955I") { # Objects restored
elsif (@text[0] eq "ANE4956I") { # Objects retrieved
elsif (@text[0] eq "ANE4007E") { # error processing
elsif (@text[0] eq "ANR2571W") { # no sessions available
elsif (@text[0] eq "ANR2578I") { # missed scheduled session
elsif (@text[0] eq "ANR2579E") { # scheduled session failed




--
Richard
Richard
<Prev in Thread] Current Thread [Next in Thread>