X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=SMGLog.pm;fp=SMGLog.pm;h=d52d9b3f57ec65e244a64d66cb15a4891fe585fe;hb=94bc0e65b4da21f0d982ea9185f4a6f3651f78e4;hp=ddff2502bb0ac066b12aa2e1811c95d401fe7621;hpb=959446c006dd22ac38f8d09998e866c338b480cd;p=dweather.git

diff --git a/SMGLog.pm b/SMGLog.pm
index ddff250..d52d9b3 100644
--- a/SMGLog.pm
+++ b/SMGLog.pm
@@ -88,7 +88,7 @@ sub open
 	$self->{fn} = sprintf "$self->{prefix}/$year/%02d%02d", $month, $day;
 	$self->{fn} .= ".$self->{suffix}" if $self->{suffix};
 	
-	$self->{mode} = $mode || 'r';
+	$self->{mode} = $mode || 'a+';
 	
 	my $fh = new IO::File $self->{fn}, $mode, 0666;
 	return unless $fh;
@@ -125,7 +125,7 @@ sub write
 {
 	my ($self, $dayno, $line) = @_;
 	if (!$self->{fh} || $self->{mode} ne "r" || $dayno != $self->{dayno}) {
-		$self->open($dayno, ">>") or confess "can't open $self->{fn} $!";
+		$self->open($dayno, "a+") or confess "can't open $self->{fn} $!";
 	}
 
 	return $self->{fh}->print("$line\n");