version 1.10, 2002/05/11 23:23:01
|
version 1.12, 2002/05/13 15:36:05
|
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); |
|
|
|
# ---------------------------------------------------------- Process form input |
|
|
|
my @importselect=(); |
|
my @targetselect=(); |
|
undef @importselect; |
|
undef @targetselect; |
|
if (defined($ENV{'form.import'})) { |
|
if (ref($ENV{'form.import'})) { |
|
@importselect=$ENV->{'form.import'}; |
|
} else { |
|
@importselect=($ENV{'form.import'}); |
|
} |
|
} |
|
if (defined($ENV{'form.target'})) { |
|
if (ref($ENV{'form.target'})) { |
|
@targetselect=$ENV->{'form.target'}; |
|
} else { |
|
@targetselect=($ENV{'form.target'}); |
|
} |
|
} |
|
# --------------------------------------------------------- |
|
|
|
my $targetdetail=(); |
|
|
|
my @imporder=(); |
|
my @impresources=(); |
|
my $importdetail=''; |
|
# ------------------------------------------------------------ Assemble windows |
|
|
|
my $importwindow=join("\n",map { |
|
my ($name)=split(/\:/,$impresources[$_]); |
|
unless ($name) { $name='UNKNOWN'; } |
|
'<option value="'.$_.'">'.$name.'</option>'; |
|
} @imporder); |
|
|
|
my $targetwindow=join("\n",map { |
|
my ($name)=split(/\:/,$resources[$_]); |
|
unless ($name) { $name='UNKNOWN'; } |
|
'<option value="'.$_.'">'.$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 296 function idxcheck(mode) {
|
<body bgcolor='#FFFFFF'> |
<body bgcolor='#FFFFFF'> |
$buttons |
$buttons |
<font color=red>$errtext</font> |
<font color=red>$errtext</font> |
<a href="javascript:groupsearch()">Group Search</a> |
<form method=post> |
<a href="javascript:groupimport()">Group Import</a> |
<input type=hidden name=forcesmp value=1> |
|
<table> |
|
<tr><th width="40%">Import</th> |
|
<th> </th> |
|
<th width="40%">Target</th></tr> |
|
<tr><td bgcolor="#FFFFCC"> |
|
<input type=button onClick="javascript:groupsearch()" value="Group Search"> |
|
<input type=button onClick="javascript:groupimport()" value="Group Import"> |
|
<input type=button onClick="javascript:viewimport()" value="View"> |
|
</td><td> </td><td bgcolor="#FFFFCC"> |
|
<input type=button onClick="javascript:viewtarget()" value="View"> |
|
</td></tr> |
|
<tr><td bgcolor="#FFFFCC"><select name="import" multiple> |
|
$importwindow |
|
</select> |
|
</td> |
|
<td bgcolor="#FFFFAA" align="center"> |
|
Cut selected<br> |
|
<input type=submit name=cut value='<<<'><p> |
|
<hr> |
|
Paste after selected<br> |
|
<input type=submit name=paste value='>>>'> |
|
</td> |
|
<td bgcolor="#FFFFCC"><select name="target" multiple> |
|
$targetwindow |
|
</select> |
|
</table> |
|
<input type=hidden name=importdetail value="$importdetail"> |
|
<input type=hidden name=targetdetail value="$targetdetail"> |
|
</form> |
|
</body></html> |
ENDSMPHEAD |
ENDSMPHEAD |
|
|
$r->print( |
|
'<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//; |