Revision 6f86eb3006d815bb183e0d0d8f94a9b3357d38a4 authored by Syd Bauman on 10 September 2014, 03:37:43 UTC, committed by Syd Bauman on 10 September 2014, 03:37:43 UTC
1 parent 700bf7e
rmcol.pl
#!/usr/bin/perl -w
use SOAP::Lite;
die "Usage: $0 collection\n" unless @ARGV == 1;
my $collection = $ARGV[0];
my $service = SOAP::Lite->service("http://localhost:8080/cocoon/services/Admin?WSDL");
my $session = $service->connect("admin", "");
print "Removing collection $collection\n";
$service->removeCollection($session, $collection);
$service->disconnect($session);
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...