From 2c4c2c4b9b1a63d6aa75c7d117651a443f755be1 Mon Sep 17 00:00:00 2001
From: Alexander Wirt <formorer@grml.org>
Date: Sun, 6 May 2007 01:40:56 +0200
Subject: [PATCH] Implement the hardlink feature (yai)

---
 source-report/get_sources | 42 ++++++++++++++++++++++++++++--------------
 1 file changed, 28 insertions(+), 14 deletions(-)

diff --git a/source-report/get_sources b/source-report/get_sources
index 899c738..3061e34 100755
--- a/source-report/get_sources
+++ b/source-report/get_sources
@@ -27,6 +27,7 @@ sub validate_config ($) {
 			spec => {
 				title => { type => SCALAR },
 				statusfile => { type => SCALAR },
+				sourcedir => { type => SCALAR },
 				chroot => { type => SCALAR },
 				reportdir => { type => SCALAR },
 				debug => { type => SCALAR, regex => qr/^(1|0)$/, optional => 1},
@@ -50,6 +51,11 @@ if (! -d $config->{reportdir}) {
 		or die "Could not create reportdir '".$config->{reportdir}."':$!"; 
 }
 
+if (! -d $config->{sourcedir}) {
+	mkdir $config->{sourcedir}
+		or die "Could not create sourcedir '".$config->{sourcedir}."':$!"; 
+}
+
 #fsrst build a package tree 
 die "Status file '".$config->{statusfile}."' not found" unless -f $config->{statusfile}; 
 
@@ -122,39 +128,43 @@ foreach my $package (keys %{$package_tree}) {
 				mkdir ($config->{reportdir}."/$source") 
 					or die "Could not create package dir '".$config->{reportdir}."/$source':$!"; 
 			}
+			if (! -d $config->{sourcedir}."/$source") {
+				mkdir ($config->{sourcedir}."/$source") 
+					or die "Could not create package dir '".$config->{sourcedir}."/$source':$!"; 
+			}
 			my $status = 0; 
-			if ( -e $config->{reportdir}."/$source/$filename" ) {
-				open(FILE, $config->{reportdir}."/$source/$filename") 
-					or die "Can't open ".$config->{reportdir}."/$source/$filename: $!";
+			if ( -e $config->{sourcedir}."/$source/$filename" ) {
+				open(FILE, $config->{sourcedir}."/$source/$filename") 
+					or die "Can't open ".$config->{sourcedir}."/$source/$filename: $!";
 				binmode(FILE);
 				my $tested_md5sum = Digest::MD5->new->addfile(*FILE)->hexdigest;
 				if ($md5sum eq $tested_md5sum) {
-					print $config->{reportdir}."/$source/$filename already downloaded\n" if $debug;
+					print $config->{sourcedir}."/$source/$filename already downloaded\n" if $debug;
 					$status = 1; 
 				} else { 
-					print $config->{reportdir}."/$source/$filename corrupt - download again\n" if $debug; 
+					print $config->{sourcedir}."/$source/$filename corrupt - download again\n" if $debug; 
 				}
 			
 			}
 			if ($status == 0)  {
-				print "Getting uri '$uri' to ".$config->{reportdir}. "/$source/$filename\n" if $debug;
-				my $ret = getstore($uri, $config->{reportdir}."/$source/$filename");
+				print "Getting uri '$uri' to ".$config->{sourcedir}. "/$source/$filename\n" if $debug;
+				my $ret = getstore($uri, $config->{sourcedir}."/$source/$filename");
 				if ($ret != 200) {
 					print STDERR "Could not download $uri - Server returned: " . status_message($ret) . "\n"; 
 					push @{$package_tree->{$package}->{'errors'}}, "$uri failed: " . status_message($ret); 
 					$error =1; 
 				} 
-				open(FILE, $config->{reportdir}."/$source/$filename")
-					or die "Can't open ".$config->{reportdir}."/$source/$filename: $!";
+				open(FILE, $config->{sourcedir}."/$source/$filename")
+					or die "Can't open ".$config->{sourcedir}."/$source/$filename: $!";
 				binmode(FILE);
 				my $tested_md5sum = Digest::MD5->new->addfile(*FILE)->hexdigest;
 				if ($md5sum eq $tested_md5sum) {
-					open (my $urifh, '>', $config->{reportdir}."/$source/$filename.md5") 
-						or die "Could not open " . $config->{reportdir}."/$source/$filename.md5 for writing: $!";
+					open (my $urifh, '>', $config->{sourcedir}."/$source/$filename.md5") 
+						or die "Could not open " . $config->{sourcedir}."/$source/$filename.md5 for writing: $!";
 					print $urifh $md5sum; 
 					close $urifh;
-					open ($urifh, '>', $config->{reportdir}."/$source/$filename.uri")
-						or die "Could not open " . $config->{reportdir}."/$source/$filename.uri for writing: $!";
+					open ($urifh, '>', $config->{sourcedir}."/$source/$filename.uri")
+						or die "Could not open " . $config->{sourcedir}."/$source/$filename.uri for writing: $!";
 					print $urifh "$uri\n";
 					close $urifh; 
 				} else {
@@ -163,11 +173,15 @@ foreach my $package (keys %{$package_tree}) {
 					$error =1; 
 				}
 			}
+			if (! $error) {
+				print "Creating links\n" if $debug; 
+				link $config->{sourcedir}."/$source/$filename",$config->{reportdir}."/$source/$filename";
+			}
 		} elsif ($line =~ /^E: (.*)/) {
 			push @{$package_tree->{$package}->{'errors'}}, "$1";
 			print STDERR "Got an error from apt-get for package $package (Source: $source, Version: $version): $1\n";
 			$error = 1; 
-			}
+		}
 	}
 	close ($fh);
 	if ($error) {
-- 
2.1.4