version 1.12, 2001/06/26 21:11:18
|
version 1.15, 2001/08/07 15:14:51
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
|
# |
# Directory Indexer |
# Directory Indexer |
# (Login Screen |
# (Login Screen |
|
# |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 11/23 Gerd Kortemeyer |
# 11/23 Gerd Kortemeyer |
# 07/20-08/04 H.K. Ng |
# 07/20-08/04 H.K. Ng |
Line 13
|
Line 15
|
# 06/02/2001 Scott Harrison |
# 06/02/2001 Scott Harrison |
# 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 |
|
|
package Apache::lonindexer; |
package Apache::lonindexer; |
|
|
Line 29 my $hidden;
|
Line 32 my $hidden;
|
my $extrafield; |
my $extrafield; |
my $fnum; |
my $fnum; |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
|
'/language.tab'); |
map { |
map { |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$language{$1}=$2; |
$language{$1}=$2; |
Line 52 sub handler {
|
Line 56 sub handler {
|
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
|
|
my $fileclr='#ffffe6'; |
my $fileclr='#ffffe6'; |
|
my $line; |
|
my (@attrchk,@openpath); |
|
my $uri=$r->uri; |
|
|
# -------------------------------------- see if called from an interactive mode |
# -------------------------------------- see if called from an interactive mode |
map { |
map { |
my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
Line 59 sub handler {
|
Line 67 sub handler {
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
if ($name eq 'catalogmode') { |
if ($name eq 'catalogmode') { |
$ENV{'form.'.$name}=$value; |
$ENV{'form.'.$name}=$value; |
} |
} |
|
if ($name eq 'launch') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
} (split(/&/,$ENV{'QUERY_STRING'})); |
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
$hidden=''; my $closebutton=''; |
$hidden=''; my $closebutton=''; |
my $groupimportbutton=''; |
my $groupimportbutton=''; |
my $colspan=''; |
my $colspan=''; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
$extrafield=''; |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
' border="0"></td>'; |
|
$colspan=" colspan='2' "; |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
$hidden=<<END; |
if ($ENV{'form.launch'} eq '1') { |
|
delete $hash{'mode_catalog'}; |
|
} |
|
if ($hash{'mode_catalog'} eq 'interactive') { |
|
$ENV{'form.catalogmode'}='interactive'; |
|
} |
|
if ($hash{'mode_catalog'} eq 'groupimport') { |
|
$ENV{'form.catalogmode'}='groupimport'; |
|
} |
|
|
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
$hash{'mode_catalog'}='interactive'; |
|
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
|
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
|
' border="0"></td>'; |
|
$colspan=" colspan='2' "; |
|
$hidden=<<END; |
<input type='hidden' name='catalogmode' value='interactive'> |
<input type='hidden' name='catalogmode' value='interactive'> |
END |
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') { |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
$hash{'mode_catalog'}='groupimport'; |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
' border="0"></td>'; |
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
$colspan=" colspan='2' "; |
' border="0"></td>'; |
$hidden=<<END; |
$colspan=" colspan='2' "; |
|
$hidden=<<END; |
<input type='hidden' name='catalogmode' value='groupimport'> |
<input type='hidden' name='catalogmode' value='groupimport'> |
END |
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 |
$groupimportbutton=<<END; |
$groupimportbutton=<<END; |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()"> |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()"> |
END |
END |
} |
} |
|
|
my $catalogmodefunctions=''; |
my $catalogmodefunctions=''; |
if ($ENV{'form.catalogmode'} eq 'interactive' or |
if ($ENV{'form.catalogmode'} eq 'interactive' or |
$ENV{'form.catalogmode'} eq 'groupimport') { |
$ENV{'form.catalogmode'} eq 'groupimport') { |
$catalogmodefunctions=<<END; |
$catalogmodefunctions=<<END; |
function select_data(title,url) { |
function select_data(title,url) { |
changeTitle(title); |
changeTitle(title); |
changeURL(url); |
changeURL(url); |
Line 155 function changeURL(val) {
|
Line 183 function changeURL(val) {
|
} |
} |
} |
} |
END |
END |
} |
} |
|
|
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
|
|
<SCRIPT language="javascript"> |
<script language="javascript"> |
$catalogmodefunctions |
$catalogmodefunctions |
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
var options = "width=" + w + ",height=" + h + ","; |
var options = "width=" + w + ",height=" + h + ","; |
Line 172 function openWindow(url, wdwName, w, h,
|
Line 200 function openWindow(url, wdwName, w, h,
|
var newWin = window.open(url, wdwName, options); |
var newWin = window.open(url, wdwName, options); |
newWin.focus(); |
newWin.focus(); |
} |
} |
</SCRIPT> |
</script> |
|
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
ENDHEADER |
ENDHEADER |
|
|
my $line; |
$r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n"); |
my (@attrchk,@openpath); |
} |
my $uri=$r->uri; |
else { |
|
$r->print('<html><head></head><body>Unable to tie hash to db file</body></html>'); |
$r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n"); |
return OK; |
|
} |
my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
untie %hash; |
|
|
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
|
|
if ($ENV{'form.attrs'} ne "") { |
if ($ENV{'form.attrs'} ne "") { |
Line 201 ENDHEADER
|
Line 228 ENDHEADER
|
$attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1; |
$attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1; |
} |
} |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
<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> |
Line 213 ENDHEADER
|
Line 240 ENDHEADER
|
<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="submit" name="attrs" value="Review"> |
<input type="submit" name="attrs" value="Review"> |
<input type="submit" name="attrs" value="Refresh"> |
<input type="submit" name="attrs" value="Refresh"> |
$hidden |
$hidden |
Line 221 $groupimportbutton
|
Line 249 $groupimportbutton
|
</form> |
</form> |
END |
END |
|
|
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
$r->print("<table border=0><tr><td bgcolor=#eeeeee>\n"); |
$r->print("<table border=0><tr><td bgcolor=#eeeeee>\n"); |
$r->print("<table border=0><tr>\n"); |
$r->print("<table border=0><tr>\n"); |
$r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n"); |
$r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n"); |
$r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) </b></td>\n") if ($hash{'display_attrs_0'} == 1); |
$r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) </b></td>\n") if ($hash{'display_attrs_0'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Last accessed</b></td>\n") if ($hash{'display_attrs_1'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Last accessed</b></td>\n") if ($hash{'display_attrs_1'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Last modified</b></td>\n") if ($hash{'display_attrs_2'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Last modified</b></td>\n") if ($hash{'display_attrs_2'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Author(s)</b></td>\n") if ($hash{'display_attrs_3'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Author(s)</b></td>\n") if ($hash{'display_attrs_3'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Keywords</b></td>\n") if ($hash{'display_attrs_4'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Keywords</b></td>\n") if ($hash{'display_attrs_4'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Language</b></td>\n") if ($hash{'display_attrs_5'} == 1); |
$r->print("<td bgcolor=$titleclr><b>Language</b></td>\n") if ($hash{'display_attrs_5'} == 1); |
$r->print("</tr>"); |
$r->print("</tr>"); |
|
|
map { |
map { |
if ($_ =~ /^diropen_status_/) { |
if ($_ =~ /^diropen_status_/) { |
Line 259 END
|
Line 287 END
|
|
|
my $bredir = $ENV{'form.dirPointer'}; |
my $bredir = $ENV{'form.dirPointer'}; |
my $toplevel; |
my $toplevel; |
|
my $indent = 0; |
$uri = $uri.'/' if $uri !~ /.*\/$/; |
$uri = $uri.'/' if $uri !~ /.*\/$/; |
if ($uri eq "/res/" or $bredir ne "on") { |
if ($bredir ne "on") { |
$hash{'top.level'} = $uri; |
$hash{'top.level'} = $uri; |
$toplevel = $uri; |
$toplevel = $uri; |
} elsif ($bredir eq "on") { |
|
if ($hash{'top.level'} eq "/res/") { |
} else { |
$toplevel = "/res/"; |
$toplevel = $hash{'top.level'}; |
} else { |
} |
$toplevel = $uri; |
if ($toplevel ne "/res/"){ |
} |
my (@uri_com) = split(/\//,$uri); |
|
pop @uri_com; |
|
my $upone = join('/',@uri_com); |
|
my @list = qw (0); |
|
&display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list); |
|
$indent = 1; |
} |
} |
my $indent = 0; |
|
&scanDir ($r,$toplevel,$indent); |
&scanDir ($r,$toplevel,$indent); |
|
|
$r->print("<form name='fnum'>"); |
$r->print("<form name='fnum'>"); |
Line 403 sub display_line{
|
Line 436 sub display_line{
|
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $hash{'display_attrs_'.$i} == 1; |
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $hash{'display_attrs_'.$i} == 1; |
$i++; |
$i++; |
} |
} |
|
if ($filecom[1] eq "viewOneUp") { |
|
$r->print("<tr>$extrafield"); |
|
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
|
$r->print ('<form method="post" name="dirpath" action="'.$startdir. |
|
'" enctype="application/x-www-form-urlencoded">'."\n"); |
|
$r->print ($hidden.'<input type=hidden name=openuri value="'.$startdir.'">'."\n"); |
|
$r->print ('<input src="'.$iconpath.'arrow_up.gif"'); |
|
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
|
$r->print("Up $tabtag</tr></form>\n"); |
|
return OK; |
|
} |
if ($filecom[1] eq "domain") { |
if ($filecom[1] eq "domain") { |
|
$r->print ('<input type=hidden name=dirPointer value="on">'."\n") if ($ENV{'form.dirPointer'} eq "on"); |
$r->print("<tr>$extrafield"); |
$r->print("<tr>$extrafield"); |
$r->print("<td bgcolor=$fileclr valign=bottom>"); |
$r->print("<td bgcolor=$fileclr valign=bottom>"); |
&begin_form ($r,$filecom[0].'/'); |
&begin_form ($r,$filecom[0].'/'); |
my $anchor = $filecom[0].'/'; |
my $anchor = $filecom[0].'/'; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'server.gif"'); |
$r->print ('<a name="'.$anchor.'">'); |
|
$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 (' border="0"></a>'."\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
return OK; |
return OK; |
} |
} |
if ($filecom[1] eq "user") { |
if ($filecom[1] eq "user") { |
$r->print("<tr>$extrafield"); |
$r->print("<tr>$extrafield"); |
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
$r->print("<td bgcolor=$fileclr valign=bottom nowrap>\n"); |
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
&begin_form ($r,$curdir); |
|
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
|
&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 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 ('<img src='.$iconpath.'quill.gif border=0>'.$listname.$tabtag.'</tr></form>'."\n"); |
$r->print ('<a href="'.$curdir.'"><img src='.$iconpath.'quill.gif border=0 name="'.$msg.'" height="22"></a>'); |
|
$r->print ($listname.$tabtag.'</tr></form>'."\n"); |
return OK; |
return OK; |
} |
} |
# display file |
# display file |
Line 521 sub display_line{
|
Line 570 sub display_line{
|
my $rem = $indentm1%10.0; |
my $rem = $indentm1%10.0; |
my $count = 0; |
my $count = 0; |
while ($count < $ten) { |
while ($count < $ten) { |
$r->print("<img src=",$iconpath,"whitespace10.gif border=0>\n"); |
$r->print ("<img src=",$iconpath,"whitespace10.gif border=0>\n"); |
$count++; |
$count++; |
} |
} |
$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 ('<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("<img src=",$iconpath,"folder_$diropen.gif border=0>\n"); |
$r->print ('<a href="'.$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"); |
} |
} |
|
|
} |
} |
|
|
#---------------------prints the beginning of a form for directory or file link |
# ------------------- prints the beginning of a form for directory or file link |
sub begin_form { |
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.'" enctype="application/x-www-form-urlencoded">'."\n"); |
$r->print ('<form method="post" name="dirpath" action="'.$uri.'#'.$anchor. |
|
'" 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"); |
|
|
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|