Write statusfiles
authorAlexander Wirt <formorer@grml.org>
Sun, 6 May 2007 16:55:26 +0000 (18:55 +0200)
committerAlexander Wirt <formorer@grml.org>
Sun, 6 May 2007 16:55:26 +0000 (18:55 +0200)
source-report/get_sources

index 4d765bf..8df621e 100755 (executable)
@@ -268,6 +268,12 @@ print $fh $t;
 print $fh end_html;
 close ($fh); 
 
+open ($fh, '>', $config->{reportdir}."/status.txt") 
+       or die "Could not create statusfile '".$config->{reportdir}."/status.txt': $!";
 
-
+print $fh "Updated: " . localtime() . "\n"; 
+print $fh "Title: " . $config->{title} . "\n"; 
+print $fh "Packages: $pnum\n";
+print $fh "Sources: $snum\n";
+print $fh "Errors: $errors\n";