Code

fixes save_log problem
authorrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Fri, 5 Dec 2008 14:10:46 +0000 (14:10 +0000)
committerrettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Fri, 5 Dec 2008 14:10:46 +0000 (14:10 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13170 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/gosa-si-client

index 3b5cd8b7eae8e5ec28abba536e03f53cd3bd77cf..277d2555e188debf0d42e6599dd4e767d06d5a7c 100755 (executable)
@@ -895,7 +895,7 @@ sub save_fai_log {
 
     my $log_dir = File::Spec->catdir($fai_log_dir, "localhost/last");
 
-    if (not -r -d $log_dir) { 
+    if (not -d $log_dir) { 
         daemon_log("ERROR: cannot open directory $log_dir", 1);
         return; 
     }
@@ -911,19 +911,17 @@ sub save_fai_log {
         my $log = "log_file:$log_file:";
         $log_file = File::Spec->catfile( $log_dir, $log_file );
 
-        if (not -r -f $log_file) {
+        if (not -f $log_file) {
             daemon_log("ERROR: cannot read $log_file", 1);
             next;
         }
 
-        if (-r -f $log_file) {
-            open(FILE, "<$log_file");
-            my @lines = <FILE> ;
-            close (FILE);
-            my $log_string = join("", @lines); 
-            $log .= &encode_base64($log_string);
-            push(@log_list, $log); 
-        }
+        open(FILE, "<$log_file");
+        my @lines = <FILE> ;
+        close (FILE);
+        my $log_string = join("", @lines); 
+        $log .= &encode_base64($log_string);
+        push(@log_list, $log); 
     }
 
     my $all_log_string = join("\n", @log_list);