+################# PLUGINS ###################
+
+sub command81 {
+ print "\nThis is where you can define plugins. The plugin must already exist in the\n";
+ print "plugins/ directory in order to add them here. A plugin name is the name of the\n";
+ print "directory that it resides in. For example, if you have a plugin in the directory\n";
+ print "plugins/myplug, the name is \"myplug\".\n\n";
+ print "[plugins] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r|\n]//g;
+ while ($input ne "d") {
+ if ($input =~ /^\s*l\s*/i) {
+ $count = 0;
+ while ($count <= $#plugins) {
+ print " $count. $plugins[$count]\n";
+ $count++;
+ }
+ print "\n";
+ } elsif ($input =~ /^\s*\+/) {
+ print "What is the name of this plugin: ";
+ $name = <STDIN>;
+ $name =~ s/[\r|\n]//g;
+
+ if (-e "../plugins/$name") {
+ $exists = 0;
+ for ($m=0; $m <= $#plugins; $m++) {
+ if ($plugins[$m] eq $name) {
+ $exists = 1;
+ }
+ }
+ if ($exists == 1) {
+ print "\nThat plugin already exists in the list!\n";
+ } else {
+ $plugins[$#plugins+1] = $name;
+ }
+ print "\n";
+ } else {
+ print "\nThat plugin does not exist in the plugins/ directory!\n\n";
+ }
+ } elsif ($input =~ /^\s*-\s*[0-9]?/) {
+ if ($input =~ /[0-9]+\s*$/) {
+ $rem_num = $input;
+ $rem_num =~ s/^\s*-\s*//g;
+ $rem_num =~ s/\s*$//;
+ } else {
+ $rem_num = $#plugins;
+ }
+
+ $count = 0;
+ @new_plugins = ();
+ while ($count <= $#plugins) {
+ if ($count != $rem_num) {
+ @new_plugins = (@new_plugins, $plugins[$count]);
+ }
+ $count++;
+ }
+ @plugins = @new_plugins;
+ } elsif ($input =~ /^\s*\?\s*/) {
+ print ".-------------------------.\n";
+ print "| + (add plugin) |\n";
+ print "| - N (remove plugin) |\n";
+ print "| l (list plugins) |\n";
+ print "| d (done) |\n";
+ print "`-------------------------'\n";
+ }
+ print "[plugins] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r|\n]//g;
+ }
+}
+