#!/usr/bin/perl

#################################################
#                                               #
# Kopierar acessloggen för arkivering           #
#                                               #
#                                               #
#                                    2002-05-13 #
#                                               #
#################################################

use File::Copy;

#################################################
# Variabler

# Sökväg till loggfilen som ska kopieras
$logFile = "/usr/local/apache/logs/webforum-access_log";

# Rootmapp för arkivet där loggfilerna ska sparas
$archiveDir = "/backup/system/logs/access";

# Slut variabler
#################################################

# Hämta årtal månad och dag
@months = (0,'januari','februari','mars','april','maj','juni','juli','augusti','september','oktober','november','december');
        ($thissec,$thismin,$thishour,$mday,$mon,$thisyear,$t,$t,$t) = localtime(time);
        $mon++;
        $thisyear += 1900;

                if ($mon < 10) {
                        $mon = "0$mon";
                }
                if ($mday < 10) {
                        $mday = "0$mday";
                }

        $thisdate = "$thisyear-$mon-$mday";
        $thistime = "$thishour:$thismin:$thissec";
        $thismonth = "$months[$mon]";

############
# Skapa mappstruktur efter datum

mkdir("$archiveDir/$thisyear") unless(-e "$archiveDir/$thisyear");
mkdir("$archiveDir/$thisyear/$thismonth") unless(-e "$archive/Dir$thisyear/$thismonth");

############
# Nytt namn på loggfilen
$newName = "$mday.($thisdate).log";

############
# kopiera loggfilen
copy("$logFile", "$archiveDir/$thisyear/$thismonth/$newName");

############
# zippa loggfilen
$gzip = "gzip $archiveDir/$thisyear/$thismonth/\"$newName\"";
system($gzip);