[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: 20010921: stats file (fwd)



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 address@hidden  < 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    address@hidden 20010924185918
> > > > 
> > > > 20010924185956     HDS    noaaport.unidata.ucar.edu       3336   
> > > > 32377973       
> > > > 0.19    address@hidden 20010924185955
> > > > 
> > > > 20010924185956     HDS       sunshine.ssec.wisc.edu        996    
> > > > 5079590       
> > > > 1.00    address@hidden 20010924190000
> > > > 
> > > > 20010924185939 IDS|DDPLUS    ingestor.wunderground.com        557
> > > > 566470       1.10    address@hidden 20010924185943
> > > > 
> > > > 20010924185956 IDS|DDPLUS    noaaport.unidata.ucar.edu       4725
> > > > 5080630       0.11    address@hidden 20010924185955
> > > > 
> > > > 20010924185956 IDS|DDPLUS       sunshine.ssec.wisc.edu       2124
> > > > 2084620    
> > > >    0.90    address@hidden 20010924185959
> > > > 
> > > > 
> > > 
> > > My stat files also look fine. Here is an example:
> > > 
> > > ldm>more 2001092419.stats
> > > 20010924193703     HDS    ingestor.wunderground.com         19     299854
> > > 2200.10 address@hidden 20010924201802
> > > 20010924195953     HDS    noaaport.unidata.ucar.edu       2194   25176196
> > > 2583.69 address@hidden 20010924210054
> > > 20010924193848     HDS       sunshine.ssec.wisc.edu        194    1101072
> > > 2189.22 address@hidden 20010924201941
> > > 20010924193631 IDS|DDPLUS    ingestor.wunderground.com        184
> > > 252274    2234.16 address@hidden 200109242017
> > > 50
> > > 20010924195953 IDS|DDPLUS    noaaport.unidata.ucar.edu       4156
> > > 3487539    2298.16 address@hidden 200109242100
> > > 51
> > > 20010924193848 IDS|DDPLUS       sunshine.ssec.wisc.edu        366
> > > 464445    2182.86 address@hidden 200109242019
> > > 41
> > > 20010924193701  MCIDAS        unidata.ssec.wisc.edu         11    5986221
> > > 1212.30 address@hidden 20010924200319
> > > 20010924194044    FSL2            dion.fsl.noaa.gov          8    1425564
> > > 2306.41 address@hidden 20010924203033
> > > 20010924195435    NLDN     striker.atmos.albany.edu         10     153048
> > > 55.76   address@hidden 20010924195531
> > > 20010924195918 NNEXRAD       sunshine.ssec.wisc.edu        297    2591321
> > > 1168.00 address@hidden 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/
===============================================================================


NOTE: All email exchanges with Unidata User Support are recorded in the Unidata inquiry tracking system and then made publicly available through the web. If you do not want to have your interactions made available in this way, you must let us know in each email you send to us.