Changeset 29683 for main/trunk/package-kits/scripts/gs-mkinterface.pl

Timestamp:

2015-01-09T15:53:33+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Added option to delete sites/interfaces

File:

• main/trunk/package-kits/scripts/gs-mkinterface.pl (modified) (1 diff)

main/trunk/package-kits/scripts/gs-mkinterface.pl

@@ -8 +8 @@
 use Greenstone::Interface;
 
+my $delete = 0;
+
+for (@ARGV) {
+    if (/^-/) {
+        if (/^-delete$/) {
+            $delete = 1;
+        } else {
+            die "Unknown flag '$_'\n";
+        }
+    }
+}
+
 my $interface = Greenstone::Interface->new (shift);
-$interface->exists and die "Interface already exists\n";
-$interface->create and print "Interface created\n";
+if ($delete) {
+    $interface->delete and print "Interface deleted\n";
+} else {
+    $interface->create and print "Interface created\n";
+}