[system] / trunk / xmlrpc / daemon / Frontier / Daemon_ww.pm Repository:
ViewVC logotype

Diff of /trunk/xmlrpc/daemon/Frontier/Daemon_ww.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 374 Revision 375
10 10
11### 11###
12### NOTE: $self is inherited from HTTP::Daemon and the weird access 12### NOTE: $self is inherited from HTTP::Daemon and the weird access
13### comes from there (`${*$self}'). 13### comes from there (`${*$self}').
14### 14###
15 15my $MAINDIRECTORY = '/Users/gage/webwork/';
16use strict; 16use strict;
17print "Reading file /u/gage/xmlrpc/daemon/Frontier/Daemon_ww.pm\n"; 17print "Reading file ${MAINDIRECTORY}xmlrpc/daemon/Frontier/Daemon_ww.pm\n";
18package Frontier::Daemon_ww; 18package Frontier::Daemon_ww;
19use vars qw{@ISA}; 19use vars qw{@ISA};
20 20
21@ISA = qw{HTTP::Daemon}; 21@ISA = qw{HTTP::Daemon};
22 22
36#} 36#}
37 37
38 38
39# MEG modification 39# MEG modification
40my ($begin, $end, $save_content); 40my ($begin, $end, $save_content);
41my $logfile= '/u/gage/xmlrpc/logs/timing_log'; 41my $logfile= "${MAINDIRECTORY}xmlrpc/logs/timing_log";
42my $process_name = 'Daemon_ww.pm (Ken McLeod)'; 42my $process_name = 'Daemon_ww.pm (Ken McLeod)';
43sub log_it { 43sub log_it {
44 my ($begin,$end,$file_name) = @_; 44 my ($begin,$end,$file_name) = @_;
45 open(LOGFILE,">>$logfile") or print "Couldn't open $logfile"; 45 open(LOGFILE,">>$logfile") or print "Couldn't open $logfile";
46 my $out = "Process: $process_name, File Name: $file_name,\n Time: " .Benchmark::timestr(Benchmark::timediff($end,$begin)) . "\n\n"; 46 my $out = "Process: $process_name, File Name: $file_name,\n Time: " .Benchmark::timestr(Benchmark::timediff($end,$begin)) . "\n\n";

Legend:
Removed from v.374  
changed lines
  Added in v.375

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9