version 1.15, 2001/08/07 15:14:51
|
version 1.16, 2001/08/08 03:00:11
|
Line 16
|
Line 16
|
# 06/15/2001 Scott Harrison |
# 06/15/2001 Scott Harrison |
# 06/26/2001 H. K. Ng |
# 06/26/2001 H. K. Ng |
# 07/08/2001 H. K. Ng |
# 07/08/2001 H. K. Ng |
|
# 8/6,8/7 Scott Harrison |
|
|
package Apache::lonindexer; |
package Apache::lonindexer; |
|
|
Line 31 my %language;
|
Line 32 my %language;
|
my $hidden; |
my $hidden; |
my $extrafield; |
my $extrafield; |
my $fnum; |
my $fnum; |
|
my $dnum; |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
'/language.tab'); |
'/language.tab'); |
Line 46 sub handler {
|
Line 48 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
$fnum=0; |
$fnum=0; |
|
$dnum=0; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |
Line 61 sub handler {
|
Line 64 sub handler {
|
my $uri=$r->uri; |
my $uri=$r->uri; |
|
|
# -------------------------------------- see if called from an interactive mode |
# -------------------------------------- see if called from an interactive mode |
|
# foreach my $key (sort(keys(%ENV))) { |
|
# $r->print("$key is $ENV{$key}<br />"); |
|
# } |
|
# $r->print("END ENV"); |
map { |
map { |
my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
$value =~ tr/+/ /; |
$value =~ tr/+/ /; |
Line 71 sub handler {
|
Line 78 sub handler {
|
if ($name eq 'launch') { |
if ($name eq 'launch') { |
$ENV{'form.'.$name}=$value; |
$ENV{'form.'.$name}=$value; |
} |
} |
|
if ($name eq 'acts') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
} (split(/&/,$ENV{'QUERY_STRING'})); |
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
$hidden=''; my $closebutton=''; |
$hidden=''; my $closebutton=''; |
Line 83 sub handler {
|
Line 93 sub handler {
|
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if ($ENV{'form.launch'} eq '1') { |
if ($ENV{'form.launch'} eq '1') { |
delete $hash{'mode_catalog'}; |
delete $hash{'mode_catalog'}; |
|
map { |
|
if ($_ =~ /^pre_/) { |
|
delete $hash{$_}; |
|
} |
|
if ($_ =~ /^store/) { |
|
delete $hash{$_}; |
|
} |
|
} keys %hash; |
} |
} |
if ($hash{'mode_catalog'} eq 'interactive') { |
if ($hash{'mode_catalog'} eq 'interactive') { |
$ENV{'form.catalogmode'}='interactive'; |
$ENV{'form.catalogmode'}='interactive'; |
Line 103 END
|
Line 121 END
|
$closebutton=<<END; |
$closebutton=<<END; |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
END |
END |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
$hash{'mode_catalog'}='groupimport'; |
$hash{'mode_catalog'}='groupimport'; |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
Line 139 function save_group() {
|
Line 157 function save_group() {
|
} |
} |
} |
} |
function select_group() { |
function select_group() { |
|
// window.location="http://"+window.location.hostname+"/adm/groupsort?acts="+document.forms.fileattr.acts.value; |
|
window.location="/adm/groupsort?acts="+document.forms.fileattr.acts.value; |
|
} |
|
function select_group2() { |
var linkflag=false; |
var linkflag=false; |
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
if (eval("document.forms.form"+num+".filelink.checked")) { |
if (eval("document.forms.form"+num+".filelink.checked")) { |
Line 158 function select_group() {
|
Line 180 function select_group() {
|
opener.linkmode=0; |
opener.linkmode=0; |
opener.infoclear(); |
opener.infoclear(); |
opener.draw(); |
opener.draw(); |
|
self.close(); |
} |
} |
function insertRowInLastRow() { |
function insertRowInLastRow() { |
opener.insertrow(opener.maxrow); |
opener.insertrow(opener.maxrow); |
Line 184 function changeURL(val) {
|
Line 207 function changeURL(val) {
|
} |
} |
END |
END |
} |
} |
|
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$catalogmodefunctions.=<<END; |
|
var acts=''; |
|
function queue(val) { |
|
if (eval("document.forms."+val+".filelink.checked")) { |
|
var l=val.length; |
|
var v=val.substring(4,l); |
|
document.forms.fileattr.acts.value+='1a'+v+'b'; |
|
// alert(document.forms.fileattr.acts.value); |
|
} |
|
else { |
|
var l=val.length; |
|
var v=val.substring(4,l); |
|
document.forms.fileattr.acts.value+='0a'+v+'b'; |
|
// alert(document.forms.fileattr.acts.value); |
|
} |
|
if (typeof(document.forms.dirpathUP)!="undefined") { |
|
// document.forms.dirpathUP.acts.value=document.forms.fileattr.acts.value; |
|
// alert(document.forms.dirpathUP.acts.value); |
|
} |
|
} |
|
function rep_dirpath(suffix,val) { |
|
eval("document.forms.dirpath"+suffix+".acts.value=val"); |
|
// eval("alert(document.forms.dirpath"+suffix+".acts.value)"); |
|
// return false; |
|
} |
|
END |
|
} |
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
Line 200 function openWindow(url, wdwName, w, h,
|
Line 250 function openWindow(url, wdwName, w, h,
|
var newWin = window.open(url, wdwName, options); |
var newWin = window.open(url, wdwName, options); |
newWin.focus(); |
newWin.focus(); |
} |
} |
|
function gothere(val) { |
|
window.location=val+'?acts='+document.forms.fileattr.acts.value; |
|
} |
</script> |
</script> |
|
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
ENDHEADER |
ENDHEADER |
|
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
# $r->print($ENV{'form.acts'}."<br />"); |
|
my $acts=$ENV{'form.acts'}; |
|
my @Acts=split(/b/,$acts); |
|
my %ahash; |
|
my %achash; |
|
my $ac=0; |
|
map { |
|
my ($state,$ref)=split(/a/); |
|
$ahash{$ref}=$state; |
|
$achash{$ref}=$ac; |
|
$ac++; |
|
} (@Acts); |
|
map { |
|
my $key=$_; |
|
if ($ahash{$key} eq '1') { |
|
# $r->print("<b>NEW: "); |
|
# $r->print($hash{'pre_'.$key.'_title'}); |
|
# $r->print(" : "); |
|
# $r->print($hash{'pre_'.$key.'_link'}); |
|
# $r->print("</b><br />"); |
|
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
|
$hash{'pre_'.$key.'_title'}; |
|
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
|
$hash{'storectr'}+0; |
|
$hash{'storectr'}++; |
|
} |
|
if ($ahash{$key} eq '0') { |
|
if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) { |
|
delete $hash{'store_'.$hash{'pre_'.$key.'_link'}}; |
|
} |
|
} |
|
} sort {$achash{$a}<=>$achash{$b}} (keys %ahash); |
|
map { |
|
if ($_ =~ /^store_/) { |
|
my $key=$_; |
|
$key=~s/^store_//; |
|
# $r->print("<b>STORE: "); |
|
# $r->print($hash{'storectr_'.$key}); |
|
# $r->print(':'); |
|
# $r->print($hash{'store_'.$key}); |
|
# $r->print(':'); |
|
# $r->print($key); |
|
# $r->print("</b><br />"); |
|
} |
|
} keys %hash; |
|
map { |
|
if ($_ =~ /^pre_/ && $_ =~/link$/) { |
|
my $key = $_; |
|
$key =~ s/^pre_//; |
|
$key =~ s/_[^_]*$//; |
|
# $r->print($key); |
|
# $r->print(':'); |
|
# $r->print($hash{'pre_'.$key.'_title'}); |
|
# $r->print(':'); |
|
# $r->print($hash{'pre_'.$key.'_link'}); |
|
# $r->print('<br />'); |
|
delete $hash{'pre_'.$key.'_title'}; |
|
delete $hash{'pre_'.$key.'_link'}; |
|
} |
|
} keys %hash; |
|
} |
|
|
$r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n"); |
$r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n"); |
} |
} else { |
else { |
|
$r->print('<html><head></head><body>Unable to tie hash to db file</body></html>'); |
$r->print('<html><head></head><body>Unable to tie hash to db file</body></html>'); |
return OK; |
return OK; |
} |
} |
Line 232 ENDHEADER
|
Line 346 ENDHEADER
|
<b><font color="#666666">Display file attributes</font></b><br> |
<b><font color="#666666">Display file attributes</font></b><br> |
<form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded"> |
<form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded"> |
<table border=0><tr> |
<table border=0><tr> |
<td><input type=checkbox name=attr0 value="1" $attrchk[0]> Size</td> |
<td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> Size</td> |
<td><input type=checkbox name=attr1 value="1" $attrchk[1]> Last access</td> |
<td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> Last access</td> |
<td><input type=checkbox name=attr2 value="1" $attrchk[2]> Last modified</td> |
<td><input type="checkbox" name="attr2" value="1" $attrchk[2] /> Last modified</td> |
</tr><tr> |
</tr><tr> |
<td><input type=checkbox name=attr3 value="1" $attrchk[3]> Author</td> |
<td><input type="checkbox" name="attr3" value="1" $attrchk[3] /> Author</td> |
<td><input type=checkbox name=attr4 value="1" $attrchk[4]> Keywords</td> |
<td><input type="checkbox" name="attr4" value="1" $attrchk[4] /> Keywords</td> |
<td><input type=checkbox name=attr5 value="1" $attrchk[5]> Language</td> |
<td><input type="checkbox" name="attr5" value="1" $attrchk[5] /> Language</td> |
</tr></table> |
</tr></table> |
<input type=hidden name=dirPointer value="on"> |
<input type="hidden" name="dirPointer" value="on" /> |
<input type="submit" name="attrs" value="Review"> |
<input type="hidden" name="acts" value="" /> |
<input type="submit" name="attrs" value="Refresh"> |
<input type="submit" name="attrs" value="Review" /> |
|
<input type="submit" name="attrs" value="Refresh" /> |
$hidden |
$hidden |
$closebutton |
$closebutton |
$groupimportbutton |
$groupimportbutton |
Line 304 END
|
Line 419 END
|
&display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list); |
&display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list); |
$indent = 1; |
$indent = 1; |
} |
} |
&scanDir ($r,$toplevel,$indent); |
&scanDir ($r,$toplevel,$indent,\%hash); |
|
|
$r->print("<form name='fnum'>"); |
$r->print("<form name='fnum'>"); |
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
Line 321 END
|
Line 436 END
|
|
|
# --------------------recursive scan of a directory |
# --------------------recursive scan of a directory |
sub scanDir { |
sub scanDir { |
my ($r,$startdir,$indent)=@_; |
my ($r,$startdir,$indent,$hashref)=@_; |
my ($compuri,$curdir); |
my ($compuri,$curdir); |
my $dirptr=16384; |
my $dirptr=16384; |
$indent++; |
$indent++; |
Line 347 sub scanDir {
|
Line 462 sub scanDir {
|
} |
} |
} |
} |
} |
} |
&display_line($r,$diropen,$line,$indent,$curdir,@list); |
&display_line($r,$diropen,$line,$indent,$curdir,$hashref,@list); |
&scanDir ($r,$compuri,$indent) if $diropen eq "opened"; |
&scanDir ($r,$compuri,$indent) if $diropen eq "opened"; |
} |
} |
$indent--; |
$indent--; |
Line 416 sub match_ext {
|
Line 531 sub match_ext {
|
|
|
#------------------- displays one line in appropriate table format |
#------------------- displays one line in appropriate table format |
sub display_line{ |
sub display_line{ |
my ($r,$diropen,$line,$indent,$startdir,@list)=@_; |
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_; |
my (@pathfn, $fndir, $fnptr); |
my (@pathfn, $fndir, $fnptr); |
my $dirptr=16384; |
my $dirptr=16384; |
my $fileclr="#ffffe6"; |
my $fileclr="#ffffe6"; |
Line 439 sub display_line{
|
Line 554 sub display_line{
|
if ($filecom[1] eq "viewOneUp") { |
if ($filecom[1] eq "viewOneUp") { |
$r->print("<tr>$extrafield"); |
$r->print("<tr>$extrafield"); |
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
$r->print ('<form method="post" name="dirpath" action="'.$startdir. |
$r->print ('<form method="post" name="dirpathUP" action="'.$startdir. |
'" enctype="application/x-www-form-urlencoded">'."\n"); |
'/" '. |
|
'onSubmit="return rep_dirpath(\'UP\',document.forms.fileattr.acts.value)" '. |
|
'enctype="application/x-www-form-urlencoded"'. |
|
'>'."\n"); |
$r->print ($hidden.'<input type=hidden name=openuri value="'.$startdir.'">'."\n"); |
$r->print ($hidden.'<input type=hidden name=openuri value="'.$startdir.'">'."\n"); |
|
$r->print ('<input type="hidden" name="acts" value="">'."\n"); |
$r->print ('<input src="'.$iconpath.'arrow_up.gif"'); |
$r->print ('<input src="'.$iconpath.'arrow_up.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print("Up $tabtag</tr></form>\n"); |
$r->print("Up $tabtag</tr></form>\n"); |
Line 455 sub display_line{
|
Line 574 sub display_line{
|
my $anchor = $filecom[0].'/'; |
my $anchor = $filecom[0].'/'; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<a name="'.$anchor.'">'); |
$r->print ('<a name="'.$anchor.'">'); |
|
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print ('<a href="'.$filecom[0].'"><img src="'.$iconpath.'server.gif"'); |
$r->print ('<a href="javascript:gothere(\''.$filecom[0].'/\')"><img src="'.$iconpath.'server.gif"'); |
$r->print (' border="0"></a>'."\n"); |
$r->print (' border="0"></a>'."\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
return OK; |
return OK; |
Line 470 sub display_line{
|
Line 590 sub display_line{
|
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n"); |
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n"); |
|
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print ('<a href="'.$curdir.'"><img src='.$iconpath.'quill.gif border=0 name="'.$msg.'" height="22"></a>'); |
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.$iconpath.'quill.gif border=0 name="'.$msg.'" height="22"></a>'); |
$r->print ($listname.$tabtag.'</tr></form>'."\n"); |
$r->print ($listname.$tabtag.'</tr></form>'."\n"); |
return OK; |
return OK; |
} |
} |
Line 501 sub display_line{
|
Line 622 sub display_line{
|
$title=$listname unless $title; |
$title=$listname unless $title; |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<form name='form$fnum'>\n"); |
$r->print("<input type='checkbox' name='filelink"."' ". |
$r->print("<input type='checkbox' name='filelink"."' ". |
"value='$filelink'>\n"); |
"value='$filelink' onClick='". |
|
"javascript:queue(\"form$fnum\")' "); |
|
if ($hash{'store_'.$filelink}) { |
|
$r->print("checked"); |
|
} |
|
$r->print(">\n"); |
$r->print("<input type='hidden' name='title"."' ". |
$r->print("<input type='hidden' name='title"."' ". |
"value='$title'>\n"); |
"value='$title'>\n"); |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
$hash{"pre_${fnum}_link"}=$filelink; |
|
$hash{"pre_${fnum}_title"}=$title; |
$fnum++; |
$fnum++; |
} |
} |
|
|
Line 575 sub display_line{
|
Line 703 sub display_line{
|
} |
} |
$r->print ("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0; |
$r->print ("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0; |
} |
} |
|
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print ('<a href="'.$curdir.'"><img src="'.$iconpath.'folder_'.$diropen.'.gif" border=0></a>'."\n"); |
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src="'.$iconpath.'folder_'.$diropen.'.gif" border=0></a>'."\n"); |
$r->print ("$listname$tabtag</tr></form>\n"); |
$r->print ("$listname$tabtag</tr></form>\n"); |
} |
} |
|
|
Line 588 sub begin_form {
|
Line 717 sub begin_form {
|
my ($r,$uri) = @_; |
my ($r,$uri) = @_; |
my $anchor = $uri; |
my $anchor = $uri; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<form method="post" name="dirpath" action="'.$uri.'#'.$anchor. |
$r->print ('<form method="post" name="dirpath'.$dnum.'" action="'.$uri.'#'.$anchor. |
'" enctype="application/x-www-form-urlencoded">'."\n"); |
'" onSubmit="return rep_dirpath(\''.$dnum.'\',document.forms.fileattr.acts.value)" '. |
|
'enctype="application/x-www-form-urlencoded">'."\n"); |
$r->print ($hidden.'<input type=hidden name=openuri value="'.$uri.'">'."\n"); |
$r->print ($hidden.'<input type=hidden name=openuri value="'.$uri.'">'."\n"); |
$r->print ('<input type=hidden name=dirPointer value="on">'."\n"); |
$r->print ('<input type=hidden name=dirPointer value="on">'."\n"); |
|
$dnum++; |
} |
} |
|
|
1; |
1; |