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

Timestamp:

Sep 3, 2007, 4:36:22 PM (17 years ago)

Author:

Bruno Cornec

Message:

Prepare for new actions on delivery on SSH

File:

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

devel/pb/lib/ProjectBuilder/Changelog.pm

@@ -10 +10 @@
 use File::Basename;
 use English;
-use ProjectBuilder::Base qw (pb_conf_read);
+use ProjectBuilder::Base qw (pb_conf_read _conf_get);
 
 sub pb_changelog {
@@ -66 +66 @@
     my $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
     #print "**$ndate**\n";
-    my $packager = pb_conf_read("$ENV{'PBETC'}", "packager");
-    my %packager = %$packager;
+    my $packager = pb_conf_get("packager");
+
     if (($dtype eq "rpm") || ($dtype eq "fc")) {
         if ($ver !~ /-/) {
@@ -79 +79 @@
             $ver2 = "$ver$dsuf";
         }
-        print $OUTPUT "* $ndate $packager{$ENV{'PBPROJ'}} $ver2\n";
+        print $OUTPUT "* $ndate $packager->{$ENV{'PBPROJ'}} $ver2\n";
         print $OUTPUT "- Updated to $ver\n";
         }
@@ -102 +102 @@
 
     if ($dtype eq "deb") {
-        print $OUTPUT " -- $packager{$ENV{'PBPROJ'}} $n2date\n\n";
+        print $OUTPUT " -- $packager->{$ENV{'PBPROJ'}} $n2date\n\n";
         print $OUTPUT "\n";
         }