Changeset 27

Show
Ignore:
Timestamp:
04/19/07 10:47:44 (2 years ago)
Author:
root
Message:

Improve perl code (LINworks GmbH)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r26 r27  
    28032803    if ( defined( $hash_temporal{"ActionID"} ) ) { 
    28042804        if ( $hash_temporal{"ActionID"} =~ /^timeout/i ) { 
    2805             my @partes = split( /\|/, $hash_temporal{"ActionID"} ); 
    2806             $canalid  = $partes[1]; 
    2807             $timeout  = $partes[2]; 
     2805            ($canalid, $timeout) = split( /\|/, $hash_temporal{"ActionID"} ); 
    28082806            $evento   = "Timeout"; 
    28092807            $unico_id = "YYYY-$server";