QuoteMan schreibt ein Kommandzozeilen-Tool und definiert alles wesentliche in einer Datei an einer Stelle.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
c,pl ist der Name der main (Framework)
>c.pl
zeigt alle verfügbaren Plugings und was die machen
zeige was Pligun RPC macht und welche Opts das braucht
D:\>c.pl RPC
Remote CMD auf dem Host
--base, -b: Name der Datenbank für Option --sql
--cat, -c: Den Inhalt einer Datei ausgeben
--destdir, -d: Zielverzeichnis für Upload mit --files
--files, -f: Lokale Dateien für Upload nach --destdir
--host, -h: example.de
--ls, -l: Entspricht dem Kdo. ls -ltr im aktuellen Pfad oder voll qual. angegeben
--perlversion, -p: Gibt die PerlVersion vom RemoteHost aus
--sql, -s: SQL Anweisung, erfordert --base
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
# common interfacemethod sub init{ my $self = shift; # declare opts $self->{OPTS} = { perlversion => { descr => 'Gibt die PerlVersion vom RemoteHost aus' }, host => {type => 's', descr => ''}, base => {type=> 's', descr => 'Name der Datenbank für Option --sql'}, sql => {type=> 's', descr => 'SQL Anweisung, erfordert --base'}, destdir => {type => 's', descr => 'Zielverzeichnis für Upload mit --files'}, files => { descr => 'Lokale Dateien für Upload nach --destdir'}, ls => {descr => 'Entspricht dem Kdo. ls -ltr im aktuellen Pfad oder voll qual. angegeben'}, cat => {type => 's', descr => 'Den Inhalt einer Datei ausgeben'}, }; }