Changeset 47

Show
Ignore:
Timestamp:
06/28/07 20:53:23 (1 year ago)
Author:
root
Message:

Added date variables replacement for monitor_filename (%Y %m %d %h %i %s)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r46 r47  
    78107810    $filename =~ s/\${CHANNEL}/$hasha{CHANNEL}/gi; 
    78117811    $filename =~ s/\${LINK}/$hasha{LINK}/gi; 
     7812    $filename = formatdate($filename); 
    78127813    $filename =~ s/\//-/gi; 
    78137814    push @return, $filename; 
    …… 
    99569957        } 
    99579958    } 
     9959} 
     9960 
     9961sub formatdate { 
     9962    my $format = shift; 
     9963    @_ = localtime( shift || time ); 
     9964    my $h = sprintf( "%02d", $_[2] ); 
     9965    my $i = sprintf( "%02d", $_[1] ); 
     9966    my $s = sprintf( "%02d", $_[0] ); 
     9967    my $m = sprintf( "%02d", $_[4] + 1 ); 
     9968    my $d = sprintf( "%02d", $_[3] ); 
     9969    my $y = sprintf( "%02d", ( $_[5] + 1900 ) % 100 ); 
     9970    my $Y = sprintf( "%04d", $_[5] + 1900 ); 
     9971 
     9972    $format =~ s/%Y/$Y/g; 
     9973    $format =~ s/%y/$y/g; 
     9974    $format =~ s/%h/$h/g; 
     9975    $format =~ s/%i/$i/g; 
     9976    $format =~ s/%s/$s/g; 
     9977    $format =~ s/%m/$m/g; 
     9978    $format =~ s/%d/$d/g; 
     9979    return $format; 
    99589980} 
    99599981