/[cvs]/nfo/perl/libs/Data/Storage/Handler/File.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/File.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Fri Dec 13 21:47:27 2002 UTC revision 1.2 by joko, Sun Jan 19 02:13:24 2003 UTC
# Line 7  require Exporter; Line 7  require Exporter;
7  our @ISA = qw( Exporter );  our @ISA = qw( Exporter );
8  our @EXPORT_OK = qw(  our @EXPORT_OK = qw(
9    s2f    s2f
10      a2f
11  );  );
12    
13  sub s2f {  sub s2f {
# Line 31  sub f2s { Line 32  sub f2s {
32  sub a2f {  sub a2f {
33    my $filename = shift;    my $filename = shift;
34    my $string = shift;    my $string = shift;
35    open(FH, '>>' . $filename);    open(FH, '>>' . $filename) or do {
36    print FH "\n";      print "Could not append to \"$filename\"!", "\n";
37        print "Log-Message was: ";
38        print $string if $string;
39        print "\n";
40        return;
41      };
42      #print FH "\n";
43    print FH $string;    print FH $string;
44    print FH "\n";    print FH "\n";
45    close(FH);    close(FH);
46      return 1;
47  }  }
48    
49  sub ris {  sub ris {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed