mrtg添加时间输入功能

打开mrgt执行文件"/usr/bin/mrtg",修改getexternal函数：

1. sub getexternal ($) {
   
2.     my $command = shift;
   
3.     my $in=undef;
   
4.     my $out=undef;
   
5.     my $uptime="unknown";
   
6.     my $name="unknown";
   
7.     my $ctime=""; ##### add by kerecsen.liang #####
   
8. 
   
9.     open (EXTERNAL , $command."|")
   
10.         or warn "$NOW: WARNING: Running '$command': $!n";
    
11. 
    
12.     warn "$NOW: WARNING: Could not get any data from external command ".
    
13.         "'".$command.
    
14.             "'nMaybe the external command did not even start. ($!)nn" if eof EXTERNAL;
    
15. 
    
16.     chomp( $in=<EXTERNAL>) unless eof EXTERNAL;
    
17.     chomp( $out=<EXTERNAL>) unless eof EXTERNAL;
    
18.     chomp( $uptime=<EXTERNAL>) unless eof EXTERNAL;
    
19.     chomp( $name=<EXTERNAL>) unless eof EXTERNAL;
    
20.     chomp( $ctime=<EXTERNAL>) unless eof EXTERNAL; ##### add by kerecsen.liang #####
    
21. 
    
22. 
    
23.     close EXTERNAL;
    
24. 
    
25.     # strip returned date
    
26.     $uptime =~ s/^s*(.*?)s*/$1/;
    
27.     $name =~ s/^s*(.*?)s*/$1/;
    
28.     # do we have numbers in the external programs answer ?
    
29.     if ( not defined $in ) {
    
30.         warn "$NOW: WARNING: Problem with External get '$command':n".
    
31.             " Expected a Number for 'in' but nothing'nn";
    
32.     } elsif ( $in eq 'UNKNOWN' ) {
    
33.         $in = undef;
    
34.     } elsif ( $in !~ /([-+]?d+(.d+)?)/ ) {
    
35.         warn "$NOW: WARNING: Problem with External get '$command':n".
    
36.             " Expected a Number for 'in' but got '$in'nn";
    
37.         $in = undef;
    
38.     } else {
    
39.         $in = $1;
    
40.     }
    
41. 
    
42.     if ( not defined $out ) {
    
43.         warn "$NOW: WARNING: Problem with External get '$command':n".
    
44.             " Expected a Number for 'out' but nothing'nn";
    
45.     } elsif ( $out eq 'UNKNOWN' ) {
    
46.         $out = undef;
    
47.     } elsif ( $out !~ /([-+]?d+(.d+)?)/ ) {
    
48.         warn "$NOW: WARNING: Problem with External get '$command':n".
    
49.             " Expected a Number for 'out' but got '$out'nn";
    
50.         $out = undef;
    
51.     } else {
    
52.         $out = $1;
    
53.     }
    
54. 
    
55.     if ( $ctime eq "" ) { ##### add by kerecsen.liang #####
    
56.         $ctime=time; ##### add by kerecsen.liang #####
    
57.     } ##### add by kerecsen.liang #####
    
58. 
    
59.     debug('snpo',"External result:".($in||"undef")." out:".($out||"undef")." uptime:".($uptime||"undef")." name:".($name||"undef"));
    
60.     return ($in,$out,$ctime,$uptime,$name); ##### change time to $ctime,change by kerecsen.liang #####
    
61. }