Changeset 16

Timestamp:

11/09/05 16:41:04 (18 years ago)

Author:

kdeugau

Message:

/trunk

Checkpoint
Added processing for %pre, %post, %preun, %postun scriptlets

File:

• trunk/debbuild (modified) (6 diffs)

trunk/debbuild

@@ -99 +99 @@
 my $installscript;
 my $cleanscript;
+# pre/post (un)install scripts.  Note that these will likely barf as-is.  :/
+my $preinstscript = '';
+my $postinstscript = '';
+my $preuninstscript = '';
+my $postuninstscript = '';
 
 die "Not enough arguments\n" if #$argv == 0;
@@ -381 +386 @@
         $cleanscript = expandmacros($cleanscript,'gp');
       }
-      if (/^\%post/) {
-      }
-      if (/^\%preun/) {
+    # pre/post (un)install scripts
+      if (/^\%pre\b/) {
+        while (<SPECFILE>) {
+          redo LINE if /^\%/;
+          $preinstscript .= $_;
+        }
+      }
+      if (/^\%post\b/) {
+        while (<SPECFILE>) {
+          redo LINE if /^\%/;
+          $postinstscript .= $_;
+        }
+      }
+      if (/^\%preun\b/) {
+        while (<SPECFILE>) {
+          redo LINE if /^\%/;
+          $preuninstscript .= $_;
+        }
+      }
+      if (/^\%postun\b/) {
+        while (<SPECFILE>) {
+          redo LINE if /^\%/;
+          $postuninstscript .= $_;
+        }
       }
       if (/^\%files/) {
@@ -439 +465 @@
   $buildroot = expandmacros($buildroot,'gp');
 
+  close SPECFILE;
 } # end parse_spec()
 
@@ -534 +561 @@
         or die $!;
   print DEBSCRIPT $scriptletbase;
-  print DEBSCRIPT "tree $buildroot\n".
-        "fakeroot dpkg-deb -b $buildroot $topdir/DEBS/i386/$pkgdata{main}{name}_$pkgdata{main}{version}-$pkgdata{main}{release}_i386.deb\n";
+  print DEBSCRIPT "fakeroot dpkg-deb -b $buildroot $topdir/DEBS/i386/".
+        "$pkgdata{main}{name}_$pkgdata{main}{version}-$pkgdata{main}{release}_i386.deb\n";
     # %$&$%@#@@#%@@@ Debian and their horrible ugly package names.  >:(
   close DEBSCRIPT;
@@ -550 +577 @@
   print CONTROL $control;
   close CONTROL;
+
+  if ($preinstscript ne '') {
+    open PREINST, ">$buildroot/DEBIAN/preinst";
+    print PREINST "#!/bin/sh\nset -e\n\n";
+    print PREINST $preinstscript;
+    close PREINST;
+    `chmod 0755 $buildroot/DEBIAN/preinst`;
+  }
+  if ($postinstscript ne '') {
+    open POSTINST, ">$buildroot/DEBIAN/postinst";
+    print POSTINST "#!/bin/sh\nset -e\n\n";
+    print POSTINST $postinstscript;
+    close POSTINST;
+    `chmod 0755 $buildroot/DEBIAN/postinst`;
+  }
+  if ($preuninstscript ne '') {
+    open PREUNINST, ">$buildroot/DEBIAN/prerm";
+    print PREUNINST "#!/bin/sh\nset -e\n\n";
+    print PREUNINST $preuninstscript;
+    close PREUNINST;
+    `chmod 0755 $buildroot/DEBIAN/prerm`;
+  }
+  if ($postuninstscript ne '') {
+    open POSTUNINST, ">$buildroot/DEBIAN/postrm";
+    print POSTUNINST "#!/bin/sh\nset -e\n\n";
+    print POSTUNINST $postuninstscript;
+    close POSTUNINST;
+    `chmod 0755 $buildroot/DEBIAN/postrm`;
+  }
+
+print `ls -l $buildroot/DEBIAN`;
 
 #Package: httpd
@@ -565 +623 @@
 
   # execute
-  print "Creating .deb for $pkgdata{main}{name}...\n";
+  print "Calling package creation script $debscriptfile for $pkgdata{main}{name}...\n";
   system("/bin/sh -e $debscriptfile") == 0
         or die "Can't exec: $!\n";