Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv20841/perlmod/Fink

Modified Files:
        ChangeLog Engine.pm 
Log Message:
Implement 'cleanup --dpkg-status', add --dry-run mode to its back-end script.


Index: Engine.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Engine.pm,v
retrieving revision 1.375
retrieving revision 1.376
diff -u -d -r1.375 -r1.376
--- Engine.pm   23 Jun 2006 19:33:28 -0000      1.375
+++ Engine.pm   10 Jul 2006 20:03:52 -0000      1.376
@@ -1021,13 +1021,13 @@
        my(%opts, %modes);
        
        get_options('cleanup', [
-               [ 'sources|srcs'  => \$modes{srcs},     "Delete source files." 
],
                [ 'debs'          => \$modes{debs},
                        "Delete .deb (compiled binary package) files." ],
+               [ 'sources|srcs'  => \$modes{srcs},     "Delete source files." 
],
                [ 'buildlocks|bl' => \$modes{bl},       "Delete stale buildlock 
packages." ],
+               [ 'dpkg-status'   => \$modes{dpkg},
+                       "Remove uninstalled packages from dpkg status 
database." ],
 #              [ 'obsoletes'     => \$modes{obs},      "Uninstall obsolete 
packages." ],
-#              [ 'dpkg-status'   => \$modes{dpkg_status},
-#                      "Remove uninstalled packages from dpkg status 
database." ],
                [ 'keep-src|k'    => \$opts{keep_old},
                        "Move old source files to $basepath/src/old/ instead of 
deleting them." ],
                [ 'dry-run|d'     => \$opts{dryrun},
@@ -1035,7 +1035,7 @@
        ], [EMAIL PROTECTED], helpformat => <<HELPFORMAT,
 %intro{[mode(s) and options]}
 One or more of the following modes must be specified:
-%opts{sources,debs,buildlocks}
+%opts{sources,debs,buildlocks,dpkg-status}
 
 Options:
 %opts{keep-src,dry-run,help}
@@ -1432,8 +1432,10 @@
 sub cleanup_dpkg_status {
        my %opts = (dryrun => 0, @_);
 
-       print "cleanup --dpkg is not yet available.\n";
-       return 1;
+       my $cmd = $basepath . '/sbin/fink-dpkg-status-cleanup';
+       $cmd .= ' --dry-run' if $opts{dryrun};
+
+       return &execute($cmd, ignore_INT=>1);
 }
 
 =back

Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.1341
retrieving revision 1.1342
diff -u -d -r1.1341 -r1.1342
--- ChangeLog   29 Jun 2006 13:46:29 -0000      1.1341
+++ ChangeLog   10 Jul 2006 20:03:52 -0000      1.1342
@@ -1,3 +1,7 @@
+2006-07-10  Daniel Macks  <[EMAIL PROTECTED]>
+
+       * Engine.pm: Enable 'cleanup --dpkg-status'
+
 2006-06-29  Dave Morrison  <[EMAIL PROTECTED]>
 
        * Bootstrap.pm: modify &additional_packages to match the changes in



-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to