diff options
author | P. J. McDermott <pjm@nac.net> | 2013-07-28 21:24:17 (EDT) |
---|---|---|
committer | P. J. McDermott <pjm@nac.net> | 2013-07-28 21:24:17 (EDT) |
commit | d131b8ee170bd44670904f1641dac8fb2ef85cdb (patch) | |
tree | d52d52dfc45935c38fee4dfc9b75679b4dfd2ee3 /lib | |
parent | 721c1e1879f830f13fd872e6287da543e9c402bc (diff) |
remove-suite: Implement.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/cmd/local.mk | 3 | ||||
-rw-r--r-- | lib/cmd/remove-suite.sh | 39 |
2 files changed, 41 insertions, 1 deletions
diff --git a/lib/cmd/local.mk b/lib/cmd/local.mk index d49174a..a41a1a8 100644 --- a/lib/cmd/local.mk +++ b/lib/cmd/local.mk @@ -6,4 +6,5 @@ pkglibcmd_srcs = \ lib/cmd/include.sh \ lib/cmd/process-incoming.sh \ lib/cmd/remove.sh \ - lib/cmd/copy-suite.sh + lib/cmd/copy-suite.sh \ + lib/cmd/remove-suite.sh diff --git a/lib/cmd/remove-suite.sh b/lib/cmd/remove-suite.sh new file mode 100644 index 0000000..53baa3f --- /dev/null +++ b/lib/cmd/remove-suite.sh @@ -0,0 +1,39 @@ +# pro-archman +# lib/cmd/remove-suite.sh +# "remove-suite" command +# +# Copyright (C) 2013 Patrick "P. J." McDermott +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +use suite + +cmd_remove_suite_main() +{ + local suite="${1}" + local chan= + local dist= + + chan="${suite%/*}" + dist="${suite##*/}" + if [ "x${chan}" = "x${suite}" ]; then + chan="${conf_incoming_channel}" + fi + + info "$(get_msg 'cmd_remove_suite_removing')" \ + "${chan}" "${dist}" + remove_suite "${chan}" "${dist}" + + return 0 +} |