version 1.11, 2002/05/13 14:33:50
|
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 $targetwindow=join("\n",map { |
my ($name)=split(/\:/,$resources[$_]); |
my ($name)=split(/\:/,$resources[$_]); |
unless ($name) { $name='UNKNOWN'; } |
unless ($name) { $name='UNKNOWN'; } |
'<option value="t'.$_.'">'.$name.'</option>'; |
'<option value="'.$_.'">'.$name.'</option>'; |
} @order); |
} @order); |
|
|
# ----------------------------------------------------- Start simple RAT screen |
# ----------------------------------------------------- Start simple RAT screen |
Line 263 $buttons
|
Line 299 $buttons
|
<form method=post> |
<form method=post> |
<input type=hidden name=forcesmp value=1> |
<input type=hidden name=forcesmp value=1> |
<table> |
<table> |
<tr><th>Import</th><th> </th><th>Target</th></tr> |
<tr><th width="40%">Import</th> |
<tr><td> |
<th> </th> |
<a href="javascript:groupsearch()">Group Search</a> |
<th width="40%">Target</th></tr> |
<a href="javascript:groupimport()">Group Import</a> |
<tr><td bgcolor="#FFFFCC"> |
</td><td> </td><td> </td></tr> |
<input type=button onClick="javascript:groupsearch()" value="Group Search"> |
<tr><td> |
<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> |
<td> |
<td bgcolor="#FFFFAA" align="center"> |
|
Cut selected<br> |
<input type=submit name=cut value='<<<'><p> |
<input type=submit name=cut value='<<<'><p> |
|
<hr> |
|
Paste after selected<br> |
<input type=submit name=paste value='>>>'> |
<input type=submit name=paste value='>>>'> |
</td> |
</td> |
<td><select name="target" multiple> |
<td bgcolor="#FFFFCC"><select name="target" multiple> |
$targetwindow |
$targetwindow |
</select> |
</select> |
|
</table> |
|
<input type=hidden name=importdetail value="$importdetail"> |
|
<input type=hidden name=targetdetail value="$targetdetail"> |
|
</form> |
|
</body></html> |
ENDSMPHEAD |
ENDSMPHEAD |
|
|
$r->print('</table></form></body></html>'); |
|
} |
} |
|
|
# ----------------------------------------------------------------- No such dir |
# ----------------------------------------------------------------- No such dir |