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

Timestamp:

Sep 23, 2008, 12:41:14 PM (16 years ago)

Author:

Bruno Cornec

Message:

• Prepare a web delivery function
• Creates a pbinit script for website for mondorescue
• Adds a pb_set_content function

File:

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

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

@@ -38 +38 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_display_file pb_syntax_init pb_syntax pb_temp_init $pbdebug $pbLOG $pbdisplaytype $pblocale);
+our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init $pbdebug $pbLOG $pbdisplaytype $pblocale);
 
 =pod
@@ -300 +300 @@
 }
 
+
+=item B<pb_set_content>
+
+This function put the content of a file into the file passed in parameter.
+
+=cut
+
+sub pb_set_content {
+
+my $file=shift;
+my $content=shift;
+
+my $bkp = $/;
+undef $/;
+open(R,"> $file") || die "Unable to write to $file: $!";
+print R "$content";
+close(R);
+$/ = $bkp;
+}
+
 =item B<pb_syntax_init>