write rpms and srpm to local/result file

Change-Id: I5a2b50d80c6336dca57d84cad3f97bd2fc9dc97a

diff --git a/depanneur b/depanneur
index 80e5c56636966022385c71d9f12627faffd98504..e5bbf1ebecff008bb29747dde98f960dc86ecb19 100755 (executable)
--- a/depanneur
+++ b/depanneur
@@ -1801,6 +1801,17 @@ sub update_repo_with_rpms {
     }
 }
 
+sub saveFileIndex {
+    my $filepath = shift;
+    my $fileRepoPath = shift;
+    my $index = rindex($filepath, '/');
+    my $record = "$fileRepoPath/".substr($filepath, $index + 1, length($filepath));
+    my $filename = "$build_root/local/results";
+    open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
+    print $fh "$record\n";
+    close $fh;
+}
+
 #---------------------------------------------------------------------
 # Generate buid command and run it
 #---------------------------------------------------------------------
@@ -2055,6 +2066,7 @@ sub build_package {
                    foreach (@srpms) {
                        $_ =~ s/\n//; 
                        my_system ("sudo ln '$_' '$srpm_repo_path'");
+                       saveFileIndex($_, $srpm_repo_path);
                    }
                 }
             } elsif ($skip_srcrpm == 1){
@@ -2069,6 +2081,7 @@ sub build_package {
                 foreach (@rpms) {
                     $_ =~ s/\n//;
                     my_system ("sudo ln '$_' '$rpm_repo_path'");
+                    saveFileIndex($_, $rpm_repo_path);
                 }
             }