Changeset 1192 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Changelog.pm

Timestamp:

Feb 16, 2011, 12:17:55 PM (13 years ago)

Author:

Bruno Cornec

Message:

• Fix pb_get_filters to also support filter based on os name and os-ver-arch as well to be coherent, and also fix bugs in the tests made for filter exitence.
• Fix pb_changelog with test for correct pb hash values which were changed previously
• Revert back using no arch subdir for deb based repo
• Introduce new parameter oscmdpath to support external commands full path name easier (could also be very useful for MondoRescue)
• Another set of fixes for sudo comands support: no parameter taken in account, replace localhost by ALL to avoid nightmares with VMs naming

File:

• devel/pb/lib/ProjectBuilder/Changelog.pm (modified) (6 diffs)

devel/pb/lib/ProjectBuilder/Changelog.pm

@@ -61 +61 @@
 
 my $pb = shift;
-my $dtype = $pb->{'dtype'};
+
+my $dtype = $pb->{'pbos'}->{'type'};
 my $pbrealpkg = $pb->{'realpkg'};
 my $pbver = $pb->{'ver'};
 my $pbtag = $pb->{'tag'};
-my $pbsuf = $pb->{'suf'};
+my $pbsuf = $pb->{'pbos'}->{'suffix'};
 my $OUTPUT = shift;
 my $doit = shift;
@@ -72 +73 @@
 my $log = "";
 
+pb_log(2,"Entering pb_changelog - pb: ".Dumper($pb)."\n");
+pb_log(2,"Entering pb_changelog - doit: $doit\n") if (defined $doit);
+pb_log(2,"Entering pb_changelog - OUTPUT: $OUTPUT\n") if (defined $OUTPUT);
 # For date handling
 $ENV{LANG}="C";
@@ -82 +86 @@
         (not (defined $OUTPUT)) || ($OUTPUT eq "") ||
         (not (defined $doit)) || ($doit eq "")) {
-    print $OUTPUT "\n";
-    return;
-}
-
-if (((not defined $chglog) || (! -f $chglog)) && ($doit eq "yes")) {
-    #pb_log(2,"No ChangeLog file ($chglog) for $pbrealpkg\n";
+    pb_log(2,"Not enough input params\n");
     print $OUTPUT "\n";
     return;
@@ -106 +105 @@
 # If we don't need to do it, or don't have it fake something
 if (((not defined $chglog) || (! -f $chglog)) && ($doit ne "yes")) {
+    pb_log(2,"No ChangeLog file for $pbrealpkg - faking one\n");
     $date = strftime("%Y-%m-%d", @date);
     $ndate = &UnixDate($date,"%a", "%b", "%d", "%Y");
     $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
-    if (($dtype eq "rpm") || ($dtype eq "fc")) {
+    if ($dtype eq "rpm") {
         $ver2 = "$pbver-$pbtag";
         print $OUTPUT "* $ndate $pbpackager->{$ENV{'PBPROJ'}} $ver2\n";
         print $OUTPUT "- Updated to $pbver\n";
-        }
-    if ($dtype eq "deb") {
+    } elsif ($dtype eq "deb") {
         if ($pbver !~ /^[0-9]/) {
             # dpkg-deb doesn't accept non digit versions. 
@@ -123 +122 @@
         print $OUTPUT "  * Updated to $pbver\n";
         print $OUTPUT " -- $pbpackager->{$ENV{'PBPROJ'}}  $n2date\n\n\n";
-        }
+    } else {
+        pb_log(0,"No ChangeLog file for $pbrealpkg and no way faking one for type $dtype\n");
+    }
     return;
 }
@@ -208 +209 @@
 }
 close(INPUT);
+pb_log(2,"Exiting pb_changelog\n");
 }