[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 20010921: stats file (fwd)
- Subject: Re: 20010921: stats file (fwd)
- Date: Tue, 25 Sep 2001 11:38:04 -0600 (MDT)
Brian,
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.
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?
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
after the line
system "$mailprog ldmstats\@unidata.ucar.edu < ldmbinstats.upc" ;
print $?
Should be 0.
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/
===============================================================================