tolti ; dai file editati
This commit is contained in:
@@ -31,6 +31,7 @@ sub getUnitName { # parm => file received ($trfile)
|
||||
or warn getTimeStamp("log") . " >> Error: opening input file $filename\n";
|
||||
my ( $fileDate, $fileTime ) = split( /\s/, <FILE> );
|
||||
my ( $unittype, $unit ) = split( /\s/, uc <FILE> );
|
||||
$unit =~ s/;+$//;
|
||||
close FILE;
|
||||
return $unit;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user