#!/usr/bin/perl

use my_ssh_menu;

$_=$ENV{SSH_ORIGINAL_COMMAND};
if (m|^scp (\-r )?\-f \w[\w\-/]+$|) {
    # Secure Copy vom Homeverzeichnis erlaubt
    # aber keine Sonderzeichen im Dateinamen
    exec($_);
} elsif (m|^ping ([\w\.:]+)$|) {
    # Ping erlaubt (immer 5 Versuche)
    exec("/bin/ping", "-c5", $1);
} elsif (m|^df$|) {
    # Plattenplatz-Diagnose
    exec("/bin/df", "-h");
} elsif (m|^$|) {
    # kein Commando -> starte Menu
    my_ssh_menu::run();
} else {
    open F, ">>/tmp/cmd";
    print F $_;
    close F;
    print "Unerlaubtes Kommando: '$_'\r\n";
}