Subversion Repositories camp_sysinfo_client_3

(root)//trunk/sysinfoconf.pm – Rev 129 → 132



   }
   return '';   
}
 
sub writeConfig {
   use File::Temp qw / tempfile /;
   my ( $filename,$content ) = @_;
   if ( $filename ) { # they sent us a filename
      my $path;
      ($filename, $path ) = fileparse( $filename );
      `mkdir -p $path` unless -d $path;

Rev 129	Rev 132
Line 303...	Line 303...
303	`}`	303	`}`
304	`return '';`	304	`return '';`
305	`}`	305	`}`
306		306
307	`sub writeConfig {`	307	`sub writeConfig {`
-		308	`use File::Temp qw / tempfile /;`
308	`my ( $filename,$content ) = @_;`	309	`my ( $filename,$content ) = @_;`
309	`if ( $filename ) { # they sent us a filename`	310	`if ( $filename ) { # they sent us a filename`
310	`my $path;`	311	`my $path;`
311	`($filename, $path ) = fileparse( $filename );`	312	`($filename, $path ) = fileparse( $filename );`
312	`mkdir -p $path` unless -d $path;	313	`mkdir -p $path` unless -d $path;