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

Timestamp:

Oct 13, 2008, 1:23:02 PM (16 years ago)

Author:

Bruno Cornec

Message:

• Change pb_announce interface
• Fix announce bug where changes were not displayed

File:

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

devel/pb/lib/ProjectBuilder/Changelog.pm

@@ -68 +68 @@
 my $pbver = $pb->{'ver'};
 my $pbtag = $pb->{'tag'};
-my $dsuf = $pb->{'suf'};
-my $path = shift;
+my $pbsuf = $pb->{'suf'};
 my $OUTPUT = shift;
 my $doit = shift;
@@ -83 +82 @@
         (not (defined $pbver)) || ($pbver eq "") || 
         (not (defined $pbtag)) || ($pbtag eq "") || 
-        (not (defined $dsuf)) || ($dsuf eq "") || 
-        (not (defined $path)) || ($path eq "") || 
+        (not (defined $pbsuf)) || ($pbsuf eq "") || 
         (not (defined $OUTPUT)) || ($OUTPUT eq "") ||
         (not (defined $doit)) || ($doit eq "")) {
@@ -115 +113 @@
     $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
     if (($dtype eq "rpm") || ($dtype eq "fc")) {
-        $ver2 = "$pbver-$pbtag$dsuf";
+        $ver2 = "$pbver-$pbtag$pbsuf";
         print $OUTPUT "* $ndate $pbpackager->{$ENV{'PBPROJ'}} $ver2\n";
         print $OUTPUT "- Updated to $pbver\n";
@@ -164 +162 @@
         if ($ver !~ /-/) {
             if ($first eq 1) {
-                $ver2 = "$ver-$pbtag$dsuf";
+                $ver2 = "$ver-$pbtag$pbsuf";
                 $first=0;
             } else {
-                $ver2 = "$ver-1$dsuf";
+                $ver2 = "$ver-1$pbsuf";
             }
         } else {
-            $ver2 = "$ver$dsuf";
+            $ver2 = "$ver$pbsuf";
         }
         print $OUTPUT "* $ndate $pbpackager->{$ENV{'PBPROJ'}} $ver2\n";