version 1.10, 2002/05/11 23:23:01
|
version 1.11, 2002/05/13 14:33:50
|
Line 166 sub buttons {
|
Line 166 sub buttons {
|
sub smpedt { |
sub smpedt { |
my ($r,$errtext)=@_; |
my ($r,$errtext)=@_; |
my $buttons=&buttons(2); |
my $buttons=&buttons(2); |
|
my $targetwindow=join("\n",map { |
|
my ($name)=split(/\:/,$resources[$_]); |
|
unless ($name) { $name='UNKNOWN'; } |
|
'<option value="t'.$_.'">'.$name.'</option>'; |
|
} @order); |
|
|
# ----------------------------------------------------- Start simple RAT screen |
# ----------------------------------------------------- Start simple RAT screen |
$r->print(<<ENDSMPHEAD); |
$r->print(<<ENDSMPHEAD); |
<html> |
<html> |
Line 254 function idxcheck(mode) {
|
Line 260 function idxcheck(mode) {
|
<body bgcolor='#FFFFFF'> |
<body bgcolor='#FFFFFF'> |
$buttons |
$buttons |
<font color=red>$errtext</font> |
<font color=red>$errtext</font> |
|
<form method=post> |
|
<input type=hidden name=forcesmp value=1> |
|
<table> |
|
<tr><th>Import</th><th> </th><th>Target</th></tr> |
|
<tr><td> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupimport()">Group Import</a> |
<a href="javascript:groupimport()">Group Import</a> |
|
</td><td> </td><td> </td></tr> |
|
<tr><td> |
|
</td> |
|
<td> |
|
<input type=submit name=cut value='<<<'><p> |
|
<input type=submit name=paste value='>>>'> |
|
</td> |
|
<td><select name="target" multiple> |
|
$targetwindow |
|
</select> |
ENDSMPHEAD |
ENDSMPHEAD |
|
|
$r->print( |
$r->print('</table></form></body></html>'); |
'<input type=submit name=forcesmp value="Store"></form></body></html>'); |
|
} |
} |
|
|
|
# ----------------------------------------------------------------- No such dir |
sub nodir { |
sub nodir { |
my ($r,$dir)=@_; |
my ($r,$dir)=@_; |
$dir=~s/^\/home\/\w+\/public\_html//; |
$dir=~s/^\/home\/\w+\/public\_html//; |