#!/usr/local/bin/perl5

# $Id: rotate,v 1.1 1997/11/23 23:47:22 crosser Exp $
#
# $Log: rotate,v $
# Revision 1.1  1997/11/23 23:47:22  crosser
# Initial revision
#

# daemon for fido7 "automoderator"
# Copyright (c) 1997 Eugene G. Crosser

$LIBDIR="/usr/local/lib/fido7";
$LOGDIR="/var/fido7/log";
@LOGS=("accept","process");

chdir($LOGDIR) || die "cannot chdir $LOGDIR: $!";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon=12 if ($mon == 0);
$suffix=sprintf(".%02d-%02d",$year,$mon+1);

foreach $log(@LOGS) {
	#print "renaming $log to $log$suffix\n";
	rename($log,$log.$suffix) || print STDERR "rename $log failed: $!\n";
}

system($LIBDIR."/fido7d &");
