+++ /dev/null
-#!/usr/bin/perl
-use strict;
-
-#######################################################
-#
-# run any (allowed) progam in the root context
-#
-#######################################################
-
-my @allowed = ("/bin/df"); # allowed commands
-my $cmdline;
-my $path;
-my $p;
-
-# read command line
-$cmdline = <STDIN>;
-chomp($cmdline);
-
-# identify the path
-if ($cmdline =~ /\s*(.+)\s+/) {
- $path = $1;
-} else {
- $path = $cmdline;
-}
-
-# run the program if it's executable and allowed to run
-if (-x $path) {
- foreach $p (@allowed) {
- if ($p eq $path) {
- system($cmdline);
- exit(0);
- }
- }
- print "fatal: '$cmdline' is not allowed to run\n";
-} else {
- print "fatal: $path either does not exist or is not executable\n";
-}
-
-# some error occurred
-exit(-1);