Changeset 50

Timestamp:

03/07/06 17:56:45 (18 years ago)

Author:

kdeugau

Message:

/trunk

Add a few bits to mostly handle debbuild -i

File:

• trunk/debbuild (modified) (4 diffs)

trunk/debbuild

@@ -131 +131 @@
 parse_cmd();
 
+if ($cmdopts{install}) {
+  install_sdeb();
+  exit 0;
+}
+
+# Stick --rebuild handling in here - basically install_sdeb()
+# followed by tweaking options to run with -ba
+
 if ($cmdopts{type} eq 'b') {
   # Need to read the spec file to find the tarball.  Note that
@@ -236 +244 @@
         } elsif (/^-v/) {
           # bump verbosity.  Not sure what I'll actually do here...
+        } elsif (/^-i/) {
+          $cmdopts{install} = 1;
+          $prevopt = '-i';
         } else {
           die "Bad option $_\n";
@@ -249 +260 @@
       if ($prevopt eq '--buildroot') {
         $cmdbuildroot = $_;
+      } elsif ($prevopt eq '-i') {
+        $srcpkg = $_;
       } else {
         if ($cmdopts{type} eq 's') {
           # Source package
-          if (!/\.src\.(deb|rpm)$/) {
+          if (!/(sdeb|\.src\.rpm)$/) {
             die "Can't --rebuild with $_\n";
           }
+          $srcpkg = $_;
         } elsif ($cmdopts{type} eq 'b') {
           $specfile = $_;
@@ -971 +985 @@
 
 
+## install_sdeb()
+# Extracts .sdeb contents to %_topdir as appropriate
+sub install_sdeb {
+  my $paxcmd = "cd $topdir; pax -r <$srcpkg; cd -";
+
+  # In case of %-macros...
+  $paxcmd = expandmacros($paxcmd,'gp');
+  
+  system "$paxcmd";
+  print "Extracted source package $srcpkg to $topdir.\n";
+} # end install_sdeb()
+
+
 ## expandmacros()
 # Expands all %{blah} macros in the passed string