~fredg/twapake

a2401fc1ba97662469a290dd8ac0a74bcbf1aad7 — Fred. Galusik 1 year, 3 months ago 7e2a027
freeze & try to find a way to show removed pkgs in a same way
1 files changed, 11 insertions(+), 1 deletions(-)

M twapake
M twapake => twapake +11 -1
@@ 16,7 16,7 @@ use Twapake::Twacurse;

my $VERSION = 0.5.1;

( $< == 0 ) or die "Sorry, but only root can run this script.\n";
#( $< == 0 ) or die "Sorry, but only root can run this script.\n";

my $Twapake = Twapake->new();



@@ 45,6 45,7 @@ my $version;
my $help;
my $logfile;
my $installed;
my $deinstalled;
my $since;
my $remove;
my $ui;


@@ 53,6 54,7 @@ GetOptions(
    'help'         =>  \&usage,
    'logfile'      =>  \$logfile,
    'installed'    =>  \$installed,
    'deinstalled'  =>  \$deinstalled,
    'nlpkg=i'      =>  \$Twapake::nlpkg,
    'remove'       =>  \$remove,
    'since'        =>  \$since,


@@ 74,6 76,14 @@ if ($installed) {
    Twapake->sortmtimelist();
    exit 0;
    }
if ($deinstalled) {
    print "nlpkg: $Twapake::nlpkg\n";
    $Twapake::dir = $Twapake::rmpkgdir;
    print "dir: $Twapake::dir\n";
    #Twapake->get_files();
    Twapake->sortmtimelist();
    exit 0;
}
if ($remove) {
    Twapake->rmpkg();
    exit 0;