diff --git a/swim b/swim index 1bd2c75..7f61d82 100755 --- a/swim +++ b/swim @@ -128,6 +128,7 @@ my($result) = "extract=s", # extract all files/file from package "remove", "r", # remove all, but conf. "purge", # remove it all + "reinstall", # reinstall "apt", # apt-get "update", # using sources.list "clean", # remove archives or apt2ftp @@ -1167,7 +1168,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"} ) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1196,7 +1197,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1228,7 +1229,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1265,7 +1266,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1302,7 +1303,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1328,10 +1329,10 @@ sub command { } if (!($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"})) { + $commands{"purge"} || $commands{"reinstall"})) { if ($commands{"x"} || $commands{"ftp"} || $commands{"source"} || $commands{"source_only"} || $commands{"remove"} || - $commands{"r"} || $commands{"purge"}) { + $commands{"r"} || $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1353,7 +1354,7 @@ sub command { $aptor_group = "yes" if ($commands{"y"} || $commands{"z"});; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1395,7 +1396,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1436,7 +1437,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1483,7 +1484,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1509,10 +1510,10 @@ sub command { } if (!($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"})) { + $commands{"purge"} || $commands{"reinstall"})) { if ($commands{"x"} || $commands{"ftp"} || $commands{"source"} || $commands{"source_only"} || $commands{"remove"} || - $commands{"r"} || $commands{"purge"}) { + $commands{"r"} || $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1546,7 +1547,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1594,7 +1595,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1620,10 +1621,10 @@ sub command { } if (!($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"})) { + $commands{"purge"} || $commands{"reinstall"})) { if ($commands{"x"} || $commands{"ftp"} || $commands{"source"} || $commands{"source_only"} || $commands{"remove"} || - $commands{"r"} || $commands{"purge"}) { + $commands{"r"} || $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1658,7 +1659,7 @@ sub command { @PACKAGES = @ARGV; if ($commands{"z"} || $commands{"ftp"} || $commands{"remove"} || $commands{"r"} || - $commands{"purge"}) { + $commands{"purge"} || $commands{"reinstall"}) { require SWIM::Safex; SWIM::Safex->import(qw(safex)); safex(\%commands); @@ -1722,12 +1723,12 @@ Usage: swim [--nopager -n] [-g] [-n] [--dbpath