1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/usr/local/bin/perl
# index.cgi
# Show the shell user interface
require './shell-lib.pl';
%access = &get_module_acl();
&ReadParseMime() if ($ENV{'REQUEST_METHOD'} ne 'GET');
&ui_print_header(undef, $text{'index_title'}, "", undef,
$module_info{'usermin'} ? 0 : 1, 1,
undef, undef, undef,
"onLoad='window.scroll(0, 10000); document.forms[0].cmd.focus()'");
$prevfile = "$module_config_directory/previous.$remote_user";
if ($in{'clearcmds'}) {
&lock_file($prevfile);
unlink($prevfile);
&unlock_file($prevfile);
&webmin_log("clear");
}
else {
open(PREVFILE, $prevfile);
chop(@previous = <PREVFILE>);
close(PREVFILE);
}
$cmd = $in{'doprev'} ? $in{'pcmd'} : $in{'cmd'};
if ($in{'pwd'}) {
$pwd = $in{'pwd'};
}
else {
local @uinfo = getpwnam($access{'user'} || $remote_user);
$pwd = scalar(@uinfo) && -d $uinfo[7] ? $uinfo[7] : "/";
}
if (!$in{'clear'}) {
$history = &un_urlize($in{'history'});
if ($cmd) {
# Execute the latest command
$fullcmd = $cmd;
chdir($pwd);
$history .= "<b>> ".&html_escape($cmd, 1)."</b>\n";
if ($cmd =~ /^cd\s+([^; ]*)\s*(;?\s*(.*))$/) {
$cmd = undef;
if (!chdir($1)) {
$history .= &html_escape("$1: $!\n", 1);
}
else {
$cmd = $3 if ($2);
chop($pwd = `pwd`);
}
}
if ($cmd) {
local $user = $access{'user'} || $remote_user;
&clean_environment() if ($config{'clear_envs'});
if ($user eq 'root') {
$out = &backquote_logged("($cmd) 2>&1");
}
else {
local $qcmd = quotemeta($cmd);
$out = &backquote_logged("su \"$user\" -c $qcmd 2>&1");
}
&reset_environment() if ($config{'clear_envs'});
$out = &html_escape($out, 1);
$history .= $out;
}
@previous = &unique(@previous, $fullcmd);
&lock_file($prevfile);
open(PREVFILE, ">>$prevfile");
print PREVFILE $fullcmd,"\n";
close(PREVFILE);
&unlock_file($prevfile);
&webmin_log("run", undef, undef, { 'cmd' => $fullcmd });
}
}
# Show the history and command input
if ($history) {
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'index_history'}</b></td> </tr>\n";
print "<tr $cb> <td><pre>";
print $history;
print "</pre></td></tr> </table><p>\n";
print "<hr>\n";
}
print "$text{'index_desc'}<br>\n";
print "<form action=index.cgi method=post enctype=multipart/form-data>\n";
print "<table width=100%><tr>\n";
print "<td><input type=submit value='$text{'index_ok'}'></td>\n";
print "<td><input name=cmd size=50></td>\n";
print "<td align=right><input type=submit name=clear ",
"value='$text{'index_clear'}'></td>\n";
print "</tr>\n";
print "<input type=hidden name=pwd value='$pwd'>\n";
print "<input type=hidden name=history value='",&urlize($history),"'>\n";
foreach $p (@previous) {
print "<input type=hidden name=previous value='",
&html_escape($p, 1),"'>\n";
}
if (@previous) {
print "<tr> <td><input name=doprev type=submit value='$text{'index_pok'}'></td>\n";
print "<td><select name=pcmd>\n";
foreach $p (reverse(@previous)) {
printf "<option value='%s'>%s\n",
&html_escape($p, 1),
&html_escape($p, 1);
}
print "</select>\n";
print "<input type=button name=movecmd ",
"value='$text{'index_edit'}' onClick='cmd.value = pcmd.options[pcmd.selectedIndex].value'>\n";
print "</td> <td align=right><input type=submit name=clearcmds ",
"value='$text{'index_clearcmds'}'></td> </tr>\n";
}
print "</table>\n";
print "</form>\n";
&ui_print_footer("/", $text{'index'});
|
