[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 20010921: stats file (fwd)
- Subject: Re: 20010921: stats file (fwd)
- Date: Wed, 26 Sep 2001 14:08:01 -0600 (MDT)
Brian,
I checked with our system admin about the mailer problem. He thinks that
if you make a link from /etc/mail/main.cf to sendmail.cf and restart
sendmail then your mailing agents should work. I would save the original
sendmail.cf file first though.
Robb...
On Tue, 25 Sep 2001, Brian Colle wrote:
>
> Robb,
>
> >
> > Part of the problem is that the stats that Unidata is receiving are from
> > cyclone.msrc.sunysb.edu not thunder. So you should turn off the stats on
> > cyclone.
> >
> Ooops I forgot to do this. It was hidden in the root cron. sorry...
>
>
> > Also, I think the mailpqstats program is working, it's just not being
> > mailed to Unidata.
> >
> > Check that the file ldmbinstats.upc exists in the logs directory and the
> > info looks current in it?
> >
>
> It exists and is current.
>
> > If that's the case then find out what mail program the script is using.
> > Again using the perl debugger, but this time put a break point at line 82,
> > ie.
> >
> > b 82
> >
> > Then continue the debugger by using a c
> >
> > print out the $mailprog variable
> >
>
> It is using /usr/ucb/mail. This may be a problem though since:
>
> /usr/ucb/mail -v address@hidden < ldmbinstats.upc
> ldm>address@hidden... Host unknown (Name server:
> mailhost.msrc.sunysb.edu: host not found)
> /thunder1/ldm/dead.letter... Saved message in /thunder1/ldm/dead.letter
>
> Perhaps I can fix this in my /etc/hosts file, but I also tried the
> alternative below (force mailpqstats to use /bin/mail instead).
>
> > after the line
> >
> > system "$mailprog ldmstats\@unidata.ucar.edu < ldmbinstats.upc" ;
> >
> > print $?
> >
> > Should be 0.
> >
>
> Even with the above /usr/ucb/mail problem:
>
> main::(mailpqstats:96): print "system call $mailprog failed for
> ldmstats\n" if( $? ) ;
> DB<2> p $?
> 0
>
> If I use /bin/mail address@hidden < ldmbinstats.upc it seems to
> work (doesn't complain), but it is hard to tell since the debugger yields
> the same p $? result. (p $? is still zero, which I guess is ok).
>
>
> Please let me know if you start getting data.
>
> Brian
>
> > You might want to try to send the ldmbinstats.upc file from the command
> > line using the designated mailer. Some programs use a -v flag for verbose
> >
> > Command line would look somthing like:
> >
> > /usr/bin/mail -v address@hidden < ldmbinstats.upc
> >
> >
> > We are getting closer.
> >
> > Robb...
> >
> >
> >
> >
> > On Tue, 25 Sep 2001, Brian Colle wrote:
> >
> > >
> > > >
> > > > >
> > > > > Robb,
> > > > >
> > > > > Thanks for getting back with me. First, I appologize that I didn't
> > > > > let you
> > > > > know of our new machine running the LDM. Using NSF/Unidata equipment
> > > > > funds
> > > > > we are now running from a new SUN Ultra10 (thunder.msrc.sunysb.edu),
> > > > > and
> > > > > that change is now permanent.
> > > > >
> > > > > >
> > > > > > Brian,
> > > > > >
> > > > > > The stats we are receiving from you are identifying themselves as
> > > > > > coming from cyclone.msrc.sunysb.edu. Your upstream
> > > > > > sites say you are connecting from thunder.msrc.sunysb.edu.
> > > > > > Also, the time of the message says it is Jan 1, 2070.
> > > > > > There are no stats currently from thunder.
> > > > > >
> > > > > > LDMBINSTATS
> > > > > > no_runtime_link cyclone.msrc.sunysb.edu 2070010100 NONE 0
> > > > > >
> > > > > >
> > > > > > Brian,
> > > > > >
> > > > > > Here's a couple things to check. The $HOME/runtime should be a
> > > > > > link to
> > > > > > the latest LDM distribution that you have installed. If this is
> > > > > > not the
> > > > > > case then there is something wrong with the installation.
> > > > > > Instructions
> > > > > > for installations are at:
> > > > > >
> > > > > > http://www.unidata.ucar.edu/packages/ldm/ldmPreInstallList.html
> > > > > >
> > > > >
> > > > > I have been running ldm-5.1.3 since last March on thunder. I am
> > > > > confused
> > > > > about the date. The clock seems ok:
> > > > >
> > > > > ldm>date
> > > > > Mon Sep 24 19:04:36 EDT 2001
> > > > >
> > > > > and all the files are being named correctly, so I am not seeing the
> > > > > problem on my end.
> > > > >
> > > > > >
> > > > > > Also check your system clock, it's stating that the current time is:
> > > > > >
> > > > > > 2070010100
> > > > > >
> > > > > > Your stats file should be named something like: 2001092418.stats
> > > > > >
> > > > > > and look something like this:
> > > > > >
> > > > > > 20010924185917 HDS ingestor.wunderground.com 92
> > > > > > 619190
> > > > > > 0.77 5@5206 20010924185918
> > > > > >
> > > > > > 20010924185956 HDS noaaport.unidata.ucar.edu 3336
> > > > > > 32377973
> > > > > > 0.19 4@4716 20010924185955
> > > > > >
> > > > > > 20010924185956 HDS sunshine.ssec.wisc.edu 996
> > > > > > 5079590
> > > > > > 1.00 5@4201 20010924190000
> > > > > >
> > > > > > 20010924185939 IDS|DDPLUS ingestor.wunderground.com 557
> > > > > > 566470 1.10 4@1913 20010924185943
> > > > > >
> > > > > > 20010924185956 IDS|DDPLUS noaaport.unidata.ucar.edu 4725
> > > > > > 5080630 0.11 4@4716 20010924185955
> > > > > >
> > > > > > 20010924185956 IDS|DDPLUS sunshine.ssec.wisc.edu 2124
> > > > > > 2084620
> > > > > > 0.90 4@2521 20010924185959
> > > > > >
> > > > > >
> > > > >
> > > > > My stat files also look fine. Here is an example:
> > > > >
> > > > > ldm>more 2001092419.stats
> > > > > 20010924193703 HDS ingestor.wunderground.com 19
> > > > > 299854
> > > > > 2200.10 2459@3703 20010924201802
> > > > > 20010924195953 HDS noaaport.unidata.ucar.edu 2194
> > > > > 25176196
> > > > > 2583.69 3673@5031 20010924210054
> > > > > 20010924193848 HDS sunshine.ssec.wisc.edu 194
> > > > > 1101072
> > > > > 2189.22 2462@3536 20010924201941
> > > > > 20010924193631 IDS|DDPLUS ingestor.wunderground.com 184
> > > > > 252274 2234.16 2479@3631 200109242017
> > > > > 50
> > > > > 20010924195953 IDS|DDPLUS noaaport.unidata.ucar.edu 4156
> > > > > 3487539 2298.16 3660@4558 200109242100
> > > > > 51
> > > > > 20010924193848 IDS|DDPLUS sunshine.ssec.wisc.edu 366
> > > > > 464445 2182.86 2454@3848 200109242019
> > > > > 41
> > > > > 20010924193701 MCIDAS unidata.ssec.wisc.edu 11
> > > > > 5986221
> > > > > 1212.30 1578@3701 20010924200319
> > > > > 20010924194044 FSL2 dion.fsl.noaa.gov 8
> > > > > 1425564
> > > > > 2306.41 2989@4044 20010924203033
> > > > > 20010924195435 NLDN striker.atmos.albany.edu 10
> > > > > 153048
> > > > > 55.76 78@0037 20010924195531
> > > > > 20010924195918 NNEXRAD sunshine.ssec.wisc.edu 297
> > > > > 2591321
> > > > > 1168.00 1619@4229 20010924202339
> > > > >
> > > > > >
> > > > > > If your stats file look like the above then I could do some further
> > > > > > investigating about why the mailed in entries are wrong.
> > > > > >
> > > > >
> > > > > Yes, please do when you have a chance. Things appear to be fine
> > > > > here. We get all data and are things are time stamped ok. My stat
> > > > > files
> > > > > also appear to be there with the correct dates and I have the
> > > > > following
> > > > > cron listing:
> > > > >
> > > > > 35 * * * * /usr/local/ldm/bin/ldmadmin dostats
> > > > >
> > > > > Thanks again for your help.
> > > > >
> > > > > Brian
> > > > >
> > > > > > Robb....
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > LDMEND
> > > > > > TOPOLOGY
> > > > > > cyclone.msrc.sunysb.edu LeafNode NONE
> > > > > > None None
> > > > > > TOPOEND
> > > > > >
> > > > > > So the file I use to plot the graphic does not have valid
> > > > > > information
> > > > > > for you. I'll ask our LDM support people to help you out with
> > > > > > your statistics.
> > > > > >
> > > > > > Steve Chiswell
> > > > > >
> > > > > >
> > > > > >
> > > > > > >From: Brian Colle <address@hidden>
> > > > > > >Organization: UCAR/Unidata
> > > > > > >Keywords: 200109211305.f8LD51114098
> > > > > >
> > > > > > >
> > > > > > >Hi,
> > > > > > >
> > > > > > >My ldm machine (thunder.msrc.sunysb.edu) has been generating stats
> > > > > > >files for quite some time and I have the cron setup to make and
> > > > > > >send the
> > > > > > >stats:
> > > > > > >#
> > > > > > >35 * * * * /usr/local/ldm/bin/ldmadmin dostats
> > > > > > >
> > > > > > >but I never see my latency numbers on the
> > > > > > >http://www.unidata.ucar.edu/staff/chiz/gifs/latency_fos.gif page?
> > > > > > >
> > > > > > >I ran the mail stats program by hand and it did not complain:
> > > > > > >
> > > > > > >mailpqstats -d /thunder1/ldm/logs -h thunder.msrc.sunysb.edu
> > > > > > >
> > > > Brian,
> > > >
> > > > It seems that the infrastructure is correct and in place, so I'm
> > > > wondering
> > > > about the -d flag being correct. So /thunder1/ldm/logs is the location
> > > > of
> > > > the ldmd.log* files and the *stats files? If that's correct does user
> > > > LDM
> > > > have permission to cd to that directory? If that's correct, what's $HOME
> > > > set to? ie %echo $HOME You might want to run mailpqstats as user LDM in
> > > > debug mode, ie
> > > >
> > > > % perl -d mailpqstats -d /thunder1/ldm/logs -h thunder.msrc.sunysb.edu
> > > >
> > > > Inside the debugger, the s and n commands step though the code, the s
> > > > goes
> > > > into procedures. The p command prints out the variables, ie. p $HOME
> > > > q quits the debugger.
> > > >
> > > > Let me know what you find.
> > > >
> > > > Robb...
> > > >
> > > >
> > >
> > >
> > > Robb,
> > >
> > > Yes, thunder1/ldm/logs is the location of the ldmd.log* files and the
> > > *stats files.
> > >
> > > Yes, LDM has permission to cd to that directory
> > >
> > >
> > > ldm>echo $home
> > > /thunder1/ldm
> > >
> > > I ran the debugger. Seemed to be working fine. I am curious why it was
> > > stuck in the while (<LOG>) loop below. After stepping through this
> > > loop many times, I just finished with the run command. If there is a
> > > particular variable you want printed out, please let me know...
> > >
> > > Brian
> > >
> > >
> > > ldm>perl -d mailpqstats -d /thunder1/ldm/logs -h thunder.msrc.sunysb.edu
> > >
> > > Loading DB routines from perl5db.pl version 1.0401
> > > Emacs support available.
> > >
> > > Enter h or `h h' for help.
> > >
> > > main::(mailpqstats:11): $ENV{ 'PATH' } =
> > > main::(mailpqstats:12):
> > > "/bin:/sbin:/usr/local/bin:/usr/ucb:/usr/bsd:/usr/bin:$ENV{ 'PATH' }";
> > > DB<1>
> > >
> > > DB<1>
> > >
> > > DB<1> s
> > > main::(mailpqstats:13): $ENV{ 'SHELL' } = '/bin/sh';
> > > DB<1> s
> > > main::(mailpqstats:14): $ENV{ 'IFS' } = ''if $ENV{ 'IFS' } ne '';
> > > DB<1> s
> > > main::(mailpqstats:17): while ($_ = $ARGV[0], /^-/) {
> > > DB<1> s
> > > main::(mailpqstats:18): shift;
> > > DB<1> s
> > > main::(mailpqstats:19): last if /^--$/;
> > > DB<1> s
> > > main::(mailpqstats:20): /^(-v)/ && $verbose++;
> > > DB<1> s
> > > main::(mailpqstats:21): /^(-d)/ && ( $dir = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:22): /^(-n)/ && ( $numstats = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:23): /^(-h)/ && ( $host = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:17): while ($_ = $ARGV[0], /^-/) {
> > > DB<1> s
> > > main::(mailpqstats:18): shift;
> > > DB<1> s
> > > main::(mailpqstats:19): last if /^--$/;
> > > DB<1> s
> > > main::(mailpqstats:20): /^(-v)/ && $verbose++;
> > > DB<1> s
> > > main::(mailpqstats:21): /^(-d)/ && ( $dir = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:22): /^(-n)/ && ( $numstats = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:23): /^(-h)/ && ( $host = shift ) ;
> > > DB<1> s
> > > main::(mailpqstats:17): while ($_ = $ARGV[0], /^-/) {
> > > DB<1> p $host
> > > thunder.msrc.sunysb.edu
> > > DB<2> p $dir
> > > /thunder1/ldm/logs
> > > DB<3> p $numstats
> > >
> > > DB<4> s
> > > main::(mailpqstats:26): if( -l "$ENV{'HOME'}/runtime" ) {
> > > DB<4> s
> > > main::(mailpqstats:27): @fields = split( /[ \t\n]+/ , `ls -l
> > > $ENV{'HOME'}/runtime` ) ;
> > > DB<4> s
> > > main::(mailpqstats:28): $type = $fields[ $#fields ] ;
> > > DB<4> s
> > > main::(mailpqstats:29): undef( @fields ) ;
> > > DB<4> p $type
> > > ldm-5.1.3
> > > DB<5> s
> > > main::(mailpqstats:35): $dir = "/usr/local/ldm/logs" unless $dir ;
> > > DB<5> s
> > > main::(mailpqstats:36): chdir "$dir" || die "Can't cd to log dir $dir:
> > > $!\n" ;
> > > DB<5> p $dir
> > > /thunder1/ldm/logs
> > > DB<6> s
> > > main::(mailpqstats:39): $numstats = 24 unless $numstats ;
> > > DB<6> s
> > > main::(mailpqstats:42): if( !$host ) {
> > > DB<6> s
> > > main::(mailpqstats:69): open( MAIL, ">ldmbinstats.upc" ) || die "could not
> > > open ldmbinstats.upc: $!\n" ;
> > > DB<6> p $host
> > > thunder.msrc.sunysb.edu
> > > DB<7> s
> > > main::(mailpqstats:70): select( MAIL ) ;
> > > DB<7> s
> > > main::(mailpqstats:71): $= = 1000 ;
> > > DB<7> s
> > > main::(mailpqstats:74): ldmstats() ;
> > > DB<7> s
> > > main::ldmstats(mailpqstats:102): print MAIL "LDMBINSTATS\n" ;
> > > DB<7> s
> > > main::ldmstats(mailpqstats:105): @FILES = split( /[ \t\n]+/, `ls
> > > -rx *.stats` ) ;
> > > DB<7> s
> > > main::ldmstats(mailpqstats:107): for( $i = 0; $i < 2 && $#FILES >
> > > -1; $i++ ) {
> > > DB<7> s
> > > main::ldmstats(mailpqstats:109): next unless ( -M "$FILES[
> > > $i ]" < 2 ) ;
> > > DB<7> s
> > > main::ldmstats(mailpqstats:110): open( STATS, "<$FILES[ $i
> > > ]" ) ||
> > > main::ldmstats(mailpqstats:111): die "could not
> > > open $FILES[ $i ] : $!\n" ;
> > > DB<7> p $FILES
> > >
> > > DB<8> p $FILES[1]
> > > 2001092513.stats
> > > DB<9> s
> > > main::ldmstats(mailpqstats:114): $bintime = substr( $FILES[
> > > $i ], 0, 10 );
> > > DB<9> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<9> p $bintime
> > > 2001092514
> > > DB<10> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<10> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<10> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<10> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > >
> > > DB<11> p $type
> > > ldm-5.1.3
> > > DB<12> p $bintime
> > > 2001092514
> > > DB<13> p $bytes
> > > 108481
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<14> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<14> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<14> p $bintime
> > > 2001092514
> > > DB<15> p $feedtype
> > > FSL2
> > > DB<16> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<16> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<16> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<16> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<16> p $feedtype
> > > NLDN
> > > DB<17> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<17> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:123): close STATS ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:107): for( $i = 0; $i < 2 && $#FILES >
> > > -1; $i++ ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:109): next unless ( -M "$FILES[
> > > $i ]" < 2 ) ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:110): open( STATS, "<$FILES[ $i
> > > ]" ) ||
> > > main::ldmstats(mailpqstats:111): die "could not
> > > open $FILES[ $i ] : $!\n" ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:114): $bintime = substr( $FILES[
> > > $i ], 0, 10 );
> > > DB<17> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<17> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<17> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<17> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<17> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<17> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<17> p $feedtype
> > > HDS
> > > DB<18> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<18> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<18> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<18> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<18> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<18> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<18> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<18> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<18> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<18> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<18> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<18> p $feedtype
> > > FSL2
> > > DB<19> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<19> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<19> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<19> s
> > > main::ldmstats(mailpqstats:116): next unless
> > > length( $_ ) > 10 ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:117): ( $lasttime,
> > > $feedtype, $source, $number, $bytes, $lat, $time )=
> > > main::ldmstats(mailpqstats:118): split( '
> > > ', $_ ) ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:119): print MAIL "$type
> > > $host $bintime $feedtype $number $bytes +\n";
> > > DB<19> s
> > > main::ldmstats(mailpqstats:120): print MAIL
> > > "$lasttime $source $lat $time\n" ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:121): $data++ ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:115): while( <STATS> ) {
> > > DB<19> s
> > > main::ldmstats(mailpqstats:123): close STATS ;
> > > DB<19> s
> > > main::ldmstats(mailpqstats:107): for( $i = 0; $i < 2 && $#FILES >
> > > -1; $i++ ) {
> > > DB<19> s
> > > main::ldmstats(mailpqstats:126): if( ! $data ) {
> > > DB<19> s
> > > main::ldmstats(mailpqstats:135): print MAIL "LDMEND\n" ;
> > > DB<19> p $data
> > > 19
> > > DB<20> s
> > > main::ldmstats(mailpqstats:138): for( $j = $numstats; $j <=
> > > $#FILES; $j++ ) {
> > > DB<20> s
> > > main::ldmstats(mailpqstats:141): undef( @FILES ) ;
> > > DB<20> s
> > > main::(mailpqstats:77): iddtopo() ;
> > > DB<20> s
> > > main::iddtopo(mailpqstats:149): print MAIL "TOPOLOGY\n" ;
> > > DB<20> s
> > > main::iddtopo(mailpqstats:152): @FILES = split( /[ \t\n]+/, `ls -tx
> > > ldmd.log*` ) ;
> > > DB<20> s
> > > main::iddtopo(mailpqstats:154): for( $i = 1; $i >= 0; $i-- ) {
> > > DB<20> s
> > > 3 ) ;
> > > DB<20> s
> > > main::iddtopo(mailpqstats:157): open( LOG, "<$FILES[ $i ]" ) ||
> > > main::iddtopo(mailpqstats:158): die "could not open
> > > $FILES[ $i ] : $!\n" ;
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:164): while( <LOG> ) {
> > > DB<20> s
> > > main::iddtopo(mailpqstats:165): if( / topo:|topo4:/ ) {
> > > DB<21> r
> > > void context return from main::iddtopo
> > > main::(mailpqstats:79): close MAIL ;
> > > DB<22> quit
> > >
> > >
> > >
> > >
> > >
> > >
> >
> > ===============================================================================
> > Robb Kambic Unidata Program Center
> > Software Engineer III Univ. Corp for Atmospheric
> > Research
> > address@hidden WWW: http://www.unidata.ucar.edu/
> > ===============================================================================
> >
> >
>
>
===============================================================================
Robb Kambic Unidata Program Center
Software Engineer III Univ. Corp for Atmospheric Research
address@hidden WWW: http://www.unidata.ucar.edu/
===============================================================================