Refinish PKGBUILD generation.

Adds makepkgbuild script. The call to pbfields is moved
from perl-pkg to makepkgbuild. pbfields prints the
PKGBUILD header now, too. makepkgbuild is called from
the Makefile with the proper env var set.

Pretty close to 100% working again.

2 files changed, 6 insertions, 19 deletions

diff --git a/bin/templ/pbfields b/bin/templ/pbfields
index 4bbfdfc..980dc7a 100755
--- a/bin/templ/pbfields
+++ b/bin/templ/pbfields
@@ -19,6 +19,8 @@ BEGIN {
 
 NF < 2 { next }
 
+$1 ~ "packager" { packager = $2 }
+
 $1 ~ /depends$|conflicts|provides|source/ { quotevals() }
 
 $1 == "pkgdesc" {
@@ -33,6 +35,10 @@ arrfield[$1] {
 }
 
 END {
+    if (!packager) { packager = "Anonymous" }
+    print "# Maintainer: " packager
+    print ""
+
     OFS = "="; ORS = "\n";
     for (i=1; i<=max; i++) {
         name = fields[i]
diff --git a/bin/templ/perl-pkg b/bin/templ/perl-pkg
index b008cbd..790a798 100755
--- a/bin/templ/perl-pkg
+++ b/bin/templ/perl-pkg
@@ -16,11 +16,6 @@ my %ACTIONS_OF = ('MM',
                     'package' => [ q{./Build install} ]
                    } );
 
-my $PBBEG = <<'END_BEG';
-# Maintainer : %s
-# Generator  : pbjam %s
-END_BEG
-
 my %FUNCFMTS;
 $FUNCFMTS{'build'} = <<'END_FMT';
 build() {
@@ -91,20 +86,6 @@ sub printpb
     my $acts = $ACTIONS_OF{$btype}
         or die "$0: unknown build type ($btype)\n";
 
-    my $pkger = $pbvars->{'packager'}[0] || 'Anonymous';
-    printf $PBBEG, $pkger, $pbvars->{'pbjver'}[0];
-    print "\n";
-
-    # 'pbfields' will recognize and PKGBUILD fields in the data
-    # and print them out in order, wordwrapping arrays.
-    open my $pbfields, '|pbfields' or die "failed to pipe to pbfields: $!";
-    while (my ($name, $vals) = each %$pbvars) {
-        print $pbfields $name, "\n";
-        print $pbfields $_, "\n" for @$vals;
-        print $pbfields "\n";
-    }
-    close $pbfields;
-
     my $distdir = $pbvars->{'distdir'}[0];
     print qq{_distdir="\${srcdir}/$distdir"\n};
     print "\n";