# 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'}, }; }