Subversion Repositories camp_sysinfo_client_3

Rev

Rev 154 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 154 Rev 258
Line 57... Line 57...
57 
 
 57 
 
58 
sub makeFileName {
 58 
sub makeFileName {
59 
   my $parameters = shift;
 59 
   my $parameters = shift;
60 
   my $filename = join( '_', ( $$parameters{'report date'}, $$parameters{'client name'}, $$parameters{'host name'}, $$parameters{'serial number'} ) );
 60 
   my $filename = join( '_', ( $$parameters{'report date'}, $$parameters{'client name'}, $$parameters{'host name'}, $$parameters{'serial number'} ) );
61 
   $filename .= '.sysinfo';
 61 
   $filename .= '.sysinfo';
- 
 
 62 
   $filename .= '.' . $$parameters{'fileType'} if $$parameters{'fileType'};
- 
 
 63 
   $filename =~ s/\s+/_/g; # replace spaces with underscores
62 
   return $filename;
 64 
   return $filename;
63 
}
 65 
}
64 
 
 66 
 
65 
 
 67 
 
66 
sub doit {
 68 
sub doit {