Changeset 29669 for main/trunk/package-kits/linux/files/servlet.pl

Timestamp:

2015-01-07T12:20:21+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Added command to remove a servlet by name

File:

• main/trunk/package-kits/linux/files/servlet.pl (modified) (3 diffs)

main/trunk/package-kits/linux/files/servlet.pl

@@ -212 +212 @@
     ],
     debug => [
-        'Dumps the current state to stdout',
+        'Dumps the current internal state to stdout',
         sub {
             print Dumper $hash;
@@ -218 +218 @@
     ],
     count => [
-        'Returns the number of servlets in the internal state',
+        'Returns the number of servlets in the current internal state',
         sub {
             my $count = 0;
@@ -247 +247 @@
             }
         },
+    ],
+    remove => [
+        'Removes a servlet from the current internal state',
+        sub {
+            my $name = shift @ARGV;
+            if (defined $hash->{servlet}) {
+                my $servlets = $hash->{servlet};
+                if (ref $servlets eq 'ARRAY') {
+                    my @array = grep { $_->{'servlet-name'} ne $name } @$servlets;
+                    $hash->{servlet} = \@array;
+                } elsif ($servlets->{'servlet-name'} eq $name) {
+                    delete $hash->{servlet};
+                }
+            }
+        },
+        1,
     ],
 );