...
Code Block |
---|
/afs/slac.stanford.edu/u/sg/mak/config |
The Svn project name is "pinger-db"
The usage to query to Database for source minos.stanford.edu and lobelia.physics.wisc.edu between timperiod t1 and t2.
Code Block |
---|
use PINGER::Factory::PingFactory ; use PINGER::Config; \### \# create a config iepm-bw object to direct mysql queries \### my $configFile = '/afs/slac.stanford.edu/u/sg/mak/config'; my $config = PINGER::Config->new( $configFile ); \### \# create the factory \### my $pFactory = PINGER::Factory::PingFactory->new( $config ) ; \### \# define a timeinterval \### my $endTime = 870477809; \#print "End Time: $endTime \n" ; my $startTime = $endTime - (1*60*60 ) ; # 1 hour my $period = PINGER::Utilities::TimeInterval->new( $startTime, $endTime ); \#print "Start Time: $startTime \n" ; my $pings = $pFactory->get( "minos.slac.stanford.edu", "lobelia.physics.wisc.edu", $period ) ; exit; sub dump_pings { my @pings = @_; foreach my $ping (@pings) { print '-' x 72 . "\n"; print $ping->max() ."\n" ; } return; } |