Write statusfiles

diff --git a/source-report/get_sources b/source-report/get_sources
index 4d765bf..8df621e 100755 (executable)
--- a/source-report/get_sources
+++ b/source-report/get_sources
@@ -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";