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 { |
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 { |