mkdir before we change $file{log}

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1921 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/logger.pl b/src/logger.pl
index ab5a416d0ef48e86f345735d5f933d3d5f605bfd..3ad021abcbd4953a473ab38051d46151c5d876ef 100644 (file)
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -112,13 +112,13 @@ sub openLog {
 
     if ( &IsParam('logType') and $param{'logType'} =~ /DAILY/i ) {
         my ( $day, $month, $year ) = ( gmtime time() )[ 3, 4, 5 ];
 
     if ( &IsParam('logType') and $param{'logType'} =~ /DAILY/i ) {
         my ( $day, $month, $year ) = ( gmtime time() )[ 3, 4, 5 ];

-        $logDate = sprintf('%04d/%02d%02d', $year + 1900, $month + 1, $day);
-        $file{log} .= $logDate;

        my $logDir = $file{log} . sprintf('%04d', $year + 1900);
         unless(-d $logDir) {
             &status("openLog: making $logDir.");
             mkdir $logDir, 0755 or &status("Cannot mkdir $logDir");;
         }
        my $logDir = $file{log} . sprintf('%04d', $year + 1900);
         unless(-d $logDir) {
             &status("openLog: making $logDir.");
             mkdir $logDir, 0755 or &status("Cannot mkdir $logDir");;
         }

+        $logDate = sprintf('%04d/%02d%02d', $year + 1900, $month + 1, $day);
+        $file{log} .= $logDate;

     }
 
 
     }