Changeset 585 in ProjectBuilder for devel/pb/bin/pb

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/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -2029 +2029 @@
 
         open(OUT,"> $ENV{'PBTMP'}/$pbpkg.ann") || die "Unable to create $ENV{'PBTMP'}/$pbpkg.ann: $!";
-        pb_changelog("announce",$pbpkg,$pbver,"N/A","N/A","N/A",\*OUT,"yes",$chglog);
+        my %pb;
+        $pb{'dtype'} = "announce";
+        $pb{'realpkg'} = $pbpkg;
+        $pb{'ver'} = $pbver;
+        $pb{'tag'} = $pbtag;
+        $pb{'suf'} = "N/A";     # Should not be empty even if unused
+        $pb{'date'} = $pbdate;
+        $pb{'chglog'} = $chglog;
+        $pb{'packager'} = $pbpackager;
+        $pb{'proj'} = $ENV{'PBPROJ'};
+        $pb{'repo'} = $pbrepo;
+        pb_changelog(\%pb,\*OUT,"yes");
         close(OUT);
         push(@files,"$ENV{'PBTMP'}/$pbpkg.ann");