Changeset 186

Timestamp:

02/01/05 03:21:38 (4 years ago)

Author:

athomas

Message:

Removed plugin dir, made whole system into a Perl package and added an "init"
command to the manage script itself:

manage init <cli> <module> [<module> ...]

Files:

• manage/trunk/Makefile.PL (added)
• manage/trunk/manage (modified) (4 diffs)
• manage/trunk/MANIFEST (added)
• manage/trunk/MANIFEST.SKIP (added)
• manage/trunk/META.yml (added)
• manage/trunk/plugins (deleted)

manage/trunk/manage

@@ -4 +4 @@
-use strict;
-
+package manage;
+
-BEGIN { $ENV{COLUMNS} = 80; $ENV{LINES} = 25; }
-
+use Config;
-use CLI;
-use CLI::Plugin;
@@ -53 +56 @@
-our $BANNER = '';
-# Plugin path
-
-
+
+
+
-our %CONF = (
-        prompt => { 
@@ -163 +167 @@
-        ReadMode(2, *TTY);
-my $secret = ReadLine(0, *TTY);
-
+ if $secret
-        ReadMode(0, *TTY);
-        print("\n");
@@ -386 +390 @@
-        },
-};
+
+# Add administrative functions if allowed
+if (-w $PLUGINBASE and $SELF eq 'manage') {
+        $GRAMMAR = {
+                %$GRAMMAR,
+                init => {
+                        HELP => "Initialise basic skeleton for a new CLI.",
+                        '$\w+' => {
+                                HELP => [ "<name>", "Name of CLI." ],
+                                '$*.+' => {
+                                        HELP => [ "<module>", "Add a skeleton module to new CLI." ],
+                                        ACTION => {
+                                                HELP => "Initialise skeleton.",
+                                                ACTION => sub {
+                                                my ($ctx, $cli) = (shift, shift);
+                                                my @modules = @_;
+
+                                                        print(<<EOF);
+About to create CLI skeleton with the following attributes:
+
+  Binary symlink:
+    $Config{bin}/$SELF -> $Config{bin}/$cli
+  Modules:
+EOF
+                                                        for my $module (@modules) {
+                                                                print("    $Config{prefix}/libexec/$cli/$module.pm\n");
+                                                        }
+                                                        print("\n");
+                                                my $response = read_key("Continue (y/n)? ", "yn");
+                                                        if ($response eq 'y') {
+                                                                info("Creating skeleton directories.");
+                                                                mkdir("$Config{prefix}/libexec");
+                                                                mkdir("$Config{prefix}/libexec/$cli");
+                                                                for my $module (@modules) {
+                                                                        if (open(F, ">$Config{prefix}/libexec/$cli/$module.pm")) {
+                                                                                info("Creating module $cli\::$module");
+                                                                                print(F <<EOF);
+# Put us in the manage namespace
+package manage;
+
+use warnings;
+use strict;
+
+# Some useful functions from manage itself
+#sub format_columns(\$\$);
+#sub read_key(\$\$);
+#sub read_line(\$);
+#sub get_password(\$);
+
+
+{
+        # Place commands for CLI module $module here
+};
+EOF
+                                                                                close(F);
+                                                                        } else {
+                                                                                warning("Failed to create skeleton for $cli::$module.");
+                                                                        }
+                                                                }
+                                                                info("Creating symlink $Config{bin}/$cli");
+                                                                symlink(${SELF}, "$Config{bin}/$cli");
+                                                                info("Finished creating skeleton CLI.");
+                                                        } elsif ($response eq 'n') {
+                                                                warning("Initialisation aborted.");
+                                                        }
+                                                },
+                                        },
+                                },
+                        },
+                },
+        };
+}
-$CLI = new CLI(
-        grammar => $GRAMMAR,