Changeset 1063 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Jun 25, 2010, 5:22:22 AM (14 years ago)

Author:

Bruno Cornec

Message:

r3929@dhcp184-49-175-84: bruno | 2010-06-24 05:12:13 +0200

• Modify pb_display_file interface to allow printing to a logfile in addition if reqested to

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -87 +87 @@
   # Manages content of a file
   #
-  pb_display_file("/etc/passwd");
+  pb_display_file("/etc/passwd",\*STDERR);
   my $cnt = pb_get_content("/etc/passwd");
 
@@ -267 +267 @@
 
 This function print the content of the file passed in parameter.
+If a second parameter is given, this is the descriptor of the logfile to write to in addtion to STDOUT.
 
 This is a cat equivalent function.
@@ -275 +276 @@
 
 my $file=shift;
+my $desc=shift || undef;
 
 return if (not -f $file);
-printf "%s\n",pb_get_content($file);
+my $cnt = pb_get_content($file);
+print "$cnt\n";
+print $desc "$cnt\n" if (defined $desc);
 }