more control file fields

1 files changed, 22 insertions, 8 deletions

diff --git a/dh-make-elpa b/dh-make-elpa
index a639e48..120e834 100755
--- a/dh-make-elpa
+++ b/dh-make-elpa
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 our $VERSION = '0.1.0';
+our $debstdversion = '3.9.7';
 
 use Array::Utils qw{array_minus};
 use Cwd;
@@ -79,6 +80,9 @@ initial_sanity_check();
 # check for command line arg
 our $pkg_emacsen = grep { $_ eq '--pkg-emacsen' } @ARGV;
 
+# guess
+my $pkgname = basename(cwd());
+
 # --- debian/
 
 mkdir "debian";
@@ -150,27 +154,37 @@ if ( -f "debian/control" )
     $control->read("debian/control");
 }
 
-$control->source->Source = basename(cwd());
-$control->source->Section = "lisp";
-my $user = "$ENV{'DEBNAME'} <$ENV{'DEBEMAIL'}>";
+$control->source->Source($pkgname);
+$control->source->Section("lisp");
+$control->source->Priority("optional");
+$control->source->Standards_Version($debstdversion);
+my $user = "$ENV{'DEBFULLNAME'} <$ENV{'DEBEMAIL'}>";
 if ($pkg_emacsen)
 {
-    $control->source->Maintainer = "Debian Emacs addons team <pkg-emacsen-addons\@lists.alioth.debian.org>";
+    $control->source->Maintainer("Debian Emacs addons team <pkg-emacsen-addons\@lists.alioth.debian.org>");
     unless ($control->source->Uploaders =~ /$user/)
     {
-        if ($control->source->Uploaders == "")
+        if ($control->source->Uploaders =~ /^$/)
         {
-            $control->source->Uploaders = $user;
+            $control->source->Uploaders($user);
         }
         else
         {
-            $control->source->Uploaders = $control->source->Uploaders . ", $user"
+            $control->source->Uploaders($control->source->Uploaders . ", $user");
         }
     }
+    $control->source->Vcs_Git(
+        sprintf( "https://anonscm.debian.org/git/pkg-emacsen/pkg/%s.git",
+                 $pkgname )
+        );
+    $control->source->Vcs_Browser(
+        sprintf( "https://anonscm.debian.org/cgit/pkg-emacsen/pkg/%s.git",
+                 $pkgname )
+        );
 }
 else
 {
-    $control->source->Maintainer = $user;
+    $control->source->Maintainer($user);
 }
 
 $control->write("debian/control");