version 1.1, 2000/08/28 21:07:32
|
version 1.10, 2001/06/15 19:05:26
|
Line 5
|
Line 5
|
# 11/23 Gerd Kortemeyer |
# 11/23 Gerd Kortemeyer |
# 07/20-08/04 H.K. Ng |
# 07/20-08/04 H.K. Ng |
# |
# |
|
# 05/9-05/19/2001 H. K. Ng |
|
# 05/21/2001 H. K. Ng |
|
# 05/23/2001 H. K. Ng |
|
# 05/31/2001 Scott Harrison |
|
# 06/01/2001 Scott Harrison |
|
# 06/02/2001 Scott Harrison |
|
# 06/15/2001 Scott Harrison |
|
|
package Apache::lonindexer; |
package Apache::lonindexer; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use Apache::File; |
|
use GDBM_File; |
|
|
|
my %hash; |
|
my %dirs; |
|
my %language; |
|
my $hidden; |
|
my $extrafield; |
|
my $fnum; |
|
sub BEGIN { |
|
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
|
map { |
|
$_=~/(\w+)\s+([\w\s\-]+)/; |
|
$language{$1}=$2; |
|
} <$fh>; |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
$fnum=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'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
Line 26 sub handler {
|
Line 50 sub handler {
|
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
|
|
|
# my $iconpath='/res/adm/pages/indexericons/'; |
|
my $fileclr='#ffffe6'; |
|
# -------------------------------------- see if called from an interactive mode |
|
map { |
|
my ($name, $value) = split(/=/,$_); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if ($name eq 'catalogmode') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
|
$hidden=''; my $closebutton=''; |
|
my $groupimportbutton=''; |
|
my $colspan=''; |
|
if ($ENV{'form.catalogmode'} eq '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'> |
|
END |
|
$closebutton=<<END; |
|
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
|
END |
|
} |
|
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$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='groupimport'> |
|
END |
|
$closebutton=<<END; |
|
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
|
END |
|
$groupimportbutton=<<END; |
|
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()"> |
|
END |
|
} |
|
|
|
my $catalogmodefunctions=''; |
|
if ($ENV{'form.catalogmode'} eq 'interactive' or |
|
$ENV{'form.catalogmode'} eq 'groupimport') { |
|
$catalogmodefunctions=<<END; |
|
function select_data(title,url) { |
|
changeTitle(title); |
|
changeURL(url); |
|
self.close(); |
|
} |
|
function save_group() { |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
alert(eval("document.forms.form"+num+".title.value")+ |
|
eval("document.forms.form"+num+".filelink.value")); |
|
} |
|
} |
|
} |
|
function select_group() { |
|
var linkflag=false; |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
// alert(eval("document.forms.form"+num+".title.value")+ |
|
// eval("document.forms.form"+num+".filelink.value")); |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.form"+num+".title.value"), |
|
eval("document.forms.form"+num+".filelink.value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.infoclear(); |
|
opener.draw(); |
|
} |
|
function insertRowInLastRow() { |
|
opener.insertrow(opener.maxrow); |
|
opener.addobj(opener.maxrow,'e&2'); |
|
} |
|
function placeResourceInLastRow (title,url,linkflag) { |
|
opener.newresource(opener.maxrow,2,opener.escape(title),opener.escape(url),'false','normal'); |
|
opener.save(); |
|
opener.mostrecent=opener.obj.length-1; |
|
if (linkflag) { |
|
opener.joinres(opener.linkmode,opener.mostrecent,0); |
|
} |
|
opener.linkmode=opener.mostrecent; |
|
} |
|
function changeTitle(val) { |
|
if (opener.inf.document.forms.resinfo.elements.t) { |
|
opener.inf.document.forms.resinfo.elements.t.value=val; |
|
} |
|
} |
|
function changeURL(val) { |
|
if (opener.inf.document.forms.resinfo.elements.u) { |
|
opener.inf.document.forms.resinfo.elements.u.value=val; |
|
} |
|
} |
|
END |
|
} |
|
|
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network Directory Browser</title> |
<title>The LearningOnline Network With CAPA Directory Browser</title> |
|
|
|
<SCRIPT language="javascript"> |
|
$catalogmodefunctions |
|
function openWindow(url, wdwName, w, h, toolbar,scrollbar) { |
|
var options = "width=" + w + ",height=" + h + ","; |
|
options += "resizable=yes,scrollbars="+scrollbar+",status=no,"; |
|
options += "menubar=no,toolbar="+toolbar+",location=no,directories=no"; |
|
var newWin = window.open(url, wdwName, options); |
|
newWin.focus(); |
|
} |
|
</SCRIPT> |
|
|
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
ENDHEADER |
ENDHEADER |
Line 38 ENDHEADER
|
Line 181 ENDHEADER
|
my $line; |
my $line; |
my (@attrchk,@openpath); |
my (@attrchk,@openpath); |
my $uri=$r->uri; |
my $uri=$r->uri; |
my $iconpath="/res/adm/pages/indexericons/"; |
|
|
|
$r->print("<h2>The LearningOnline Network Directory Browser</h2>\n"); |
$r->print("<h2><font color=\"\#888888\">The LearningOnline With CAPA Network Directory Browser</font></h2>\n"); |
|
|
for (my $i=0; $i<=5; $i++) { |
my $diropen = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
$attrchk[$i] = "checked" if $ENV{'form.attr'.$i} == 1; |
|
} |
if (tie(%hash,'GDBM_File',$diropen,&GDBM_WRCREAT,0640)) { |
|
|
|
if ($ENV{'form.attrs'} ne "") { |
|
for (my $i=0; $i<=5; $i++) { |
|
delete $hash{'display_attrs_'.$i}; |
|
if ($ENV{'form.attr'.$i} == 1) { |
|
$attrchk[$i] = "checked"; |
|
$hash{'display_attrs_'.$i} = 1; |
|
} |
|
} |
|
} else { |
|
for (my $i=0; $i<=5; $i++) { |
|
$attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1; |
|
} |
|
} |
$r->print(<<END); |
$r->print(<<END); |
<b>Display file attributes</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=openuri value="$ENV{'form.openuri'}"> |
<input type="submit" name="attrs" value="Review"> |
<input type="submit" name="dirlistattr" value="Review"> |
<input type="submit" name="attrs" value="Refresh"> |
<input type="submit" name="dirlistattr" value="Refresh"> |
$hidden |
|
$closebutton |
|
$groupimportbutton |
</form> |
</form> |
END |
END |
my $titleclr="#ddffff"; |
|
my $fileclr="#ffffdd"; |
|
|
|
|
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 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 ($ENV{'form.attr0'} == 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 ($ENV{'form.attr1'} == 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 ($ENV{'form.attr2'} == 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>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("</tr>"); |
$r->print("</tr>"); |
|
|
if ($ENV{'form.openuri'} =~ /$uri\&/) { |
map { |
my @pathcom = split(/\//,$uri); |
if ($_ =~ /^diropen_status_/) { |
pop @pathcom; |
my $key = $_; |
my $splituri = join ('/',@pathcom); |
$key =~ s/^diropen_status_//; |
$uri = join ('',$splituri,"/"); |
$dirs{$key} = $hash{$_}; |
} |
} |
|
} keys %hash; |
|
|
my $openuri = $ENV{'form.openuri'}; |
if ($ENV{'form.openuri'}) { # take care of review and refresh options |
# $r->print ("<hr>openuri=$openuri<br>"); |
my $uri=$ENV{'form.openuri'}; |
$openuri =~ s/$uri(.*)\&//g; |
if (exists($hash{'diropen_status_'.$uri})) { |
# $r->print ("<hr>parsed openuri=$openuri<br>"); |
my $cursta = $hash{'diropen_status_'.$uri}; |
@openpath = split(/\&/,$openuri); |
$dirs{$uri} = 'open'; |
# $r->print ("<hr>open path=@openpath<br>"); |
$hash{'diropen_status_'.$uri} = 'open'; |
push @openpath, $uri; |
if ($cursta eq 'open') { |
# $r->print ("<hr>append current uri to open path=@openpath<br>"); |
$dirs{$uri} = 'closed'; |
@openpath = sort @openpath; |
$hash{'diropen_status_'.$uri} = 'closed'; |
# $r->print ("<hr>sorted open path=@openpath<br>"); |
} |
|
} else { |
|
$hash{'diropen_status_'.$uri} = 'open'; |
my $indent = -1; |
$dirs{$uri} = 'open'; |
&display_line ($r,1,"/res/".$domain."&domain"); |
} |
&branch ($r,"/res/".$domain."/",$indent,@openpath); |
} |
|
|
$r->print("</table>"); |
|
$r->print("</td></tr></table>"); |
|
$r->print("</body></html>\n"); |
|
# &display_env($r); |
|
|
|
|
my $toplevel = "/res/"; |
|
my $indent = 0; |
|
&scanDir ($r,$toplevel,$indent); |
|
|
|
$r->print("<form name='fnum'>"); |
|
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
|
$r->print("</table>"); |
|
$r->print("</td></tr></table>"); |
|
$r->print("</body></html>\n"); |
|
untie(%hash); |
|
} else { |
|
$r->print("Unable to tie hash to db file"); |
|
} |
return OK; |
return OK; |
} |
} |
|
|
# my @packlist=&Apache::lonnet::dirlist($uri); |
|
# print "Dir list<br>".join('<br>',@packlist)."<br>"; |
# --------------------recursive scan of a directory |
|
sub scanDir { |
sub branch { |
my ($r,$startdir,$indent)=@_; |
my ($r,$uri,$indent,@openuri)=@_; |
my ($compuri,$curdir); |
my ($calluri,$line,@list); |
|
my ($domusr,$foo,$strip,$testdir,$compuri,$chkdir,$diropen); |
|
my $dirptr=16384; |
my $dirptr=16384; |
$indent++; |
$indent++; |
|
|
foreach $calluri (@openuri) { |
my %dupdirs = %dirs; |
@list=&get_list($r,$uri); |
my @list=&get_list($r,$startdir); |
foreach $line (@list) { |
foreach my $line (@list) { |
chomp $line; |
my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5); |
|
next if $strip =~ /.*\.meta$/; |
($strip,$domusr,$foo,$testdir,$foo)=split(/\&/,$line,5); |
if ($dom eq "domain") { |
$compuri=join("",$strip,"/"); |
$compuri = join('',$strip,"/"); # domain list has /res/<domain name> |
$chkdir=$testdir&$dirptr; |
$curdir = $compuri; |
if ($domusr eq "domain" or $domusr eq "user") { |
} else { |
$chkdir = $dirptr; |
$compuri = join('',$startdir,$strip,"/"); # user, dir & file having name only, i.e., w/o path |
$testdir = $dirptr; |
$curdir = $startdir; |
|
} |
|
my $diropen = 0; |
|
if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) { |
|
while (my ($key,$val)= each %dupdirs) { |
|
if ($key eq $compuri and $val eq "open") { |
|
$diropen = 1; |
|
delete $dupdirs{key},$dirs{$key}; |
|
} |
} |
} |
$diropen = 0; |
|
$diropen = 1 if ($compuri eq $calluri); |
|
&display_line($r,$diropen,$line,$indent); |
|
|
|
my @securi; |
|
push @securi,$calluri; |
|
&branch($r,$compuri,$indent,@securi) if ($calluri =~ $compuri and $calluri=~/^$uri/ and $chkdir == $dirptr and $testdir ne ""); |
|
} |
} |
|
&display_line($r,$diropen,$line,$indent,$curdir,@list); |
|
&scanDir ($r,$compuri,$indent) if $diropen == 1; |
} |
} |
$indent--; |
$indent--; |
} |
} |
|
|
# ------ get complete list based on the uri ------ |
# ----------------- get complete matched list based on the uri ------ |
sub get_list { |
sub get_list { |
my ($r,$uri)=@_; |
my ($r,$uri)=@_; |
my @list; |
my @list; |
my $luri=$uri; |
my $luri = $uri; |
$luri=~s/\//_/g; |
$luri =~ s/\//_/g; |
unlink "/home/httpd/perl/tmp/$ENV{'user.name'}_dirlist*.tmp" if ($ENV{'form.dirlistattr'} eq "Refresh"); |
|
my $dirlist = "/home/httpd/perl/tmp/$ENV{'user.name'}_dirlist$luri.tmp"; |
if ($ENV{'form.attrs'} eq "Refresh") { |
if (-e $dirlist) { |
map { |
my $FH = Apache::File->new($dirlist); |
delete $hash{$_} if ($_ =~ /^dirlist_files_/); |
@list=<$FH>; |
} keys %hash; |
} else { |
|
@list=&Apache::lonnet::dirlist($uri); |
|
my $FH = Apache::File->new(">$dirlist"); |
|
print $FH join("\n",@list); |
|
} |
} |
return @list=&match_ext($r,@list); |
|
} |
|
|
|
# ------ get previously opened path, if any ------ |
if ($hash{'dirlist_files'.$luri}) { |
sub get_openpath { |
@list = split(/\n/,$hash{'dirlist_files_'.$luri}); |
my $uri=shift; |
|
my @list; |
|
my $openlist = "/home/httpd/perl/tmp/$ENV{'user.name'}_dirlist_open_path.tmp"; |
|
if (-e $openlist) { |
|
my $FH = Apache::File->new($openlist); |
|
@list=<$FH>; |
|
close ($FH); |
|
my $line; |
|
my $FH = Apache::File->new(">$openlist"); |
|
print $FH "$uri\n" if $list[0] eq ""; |
|
foreach $line (@list) { |
|
chomp $line; |
|
if ($line eq $uri) { |
|
my @pathcom = split(/\//,$uri); |
|
pop @pathcom; |
|
my $splituri = join ('/',@pathcom); |
|
$uri = join ('',$splituri,"/"); |
|
} else { |
|
print $FH "$line\n"; |
|
} |
|
} |
|
} else { |
} else { |
my $FH = Apache::File->new(">$openlist"); |
@list = &Apache::lonnet::dirlist($uri); |
print $FH "$uri\n"; |
$hash{'dirlist_files_'.$luri} = join('\n',@list); |
} |
} |
return $uri; |
return @list=&match_ext($r,@list); |
} |
} |
|
|
|
#-------------------------- filters out files based on extensions |
sub match_ext { |
sub match_ext { |
my ($r,@packlist)=@_; |
my ($r,@packlist)=@_; |
my $line; |
|
my @trimlist; |
my @trimlist; |
my $nextline; |
my $nextline; |
my @fileext; |
my @fileext; |
Line 201 sub match_ext {
|
Line 343 sub match_ext {
|
if (-e $fn) { |
if (-e $fn) { |
my $FH=Apache::File->new($fn); |
my $FH=Apache::File->new($fn); |
my @content=<$FH>; |
my @content=<$FH>; |
foreach $line (@content) { |
foreach my $line (@content) { |
(my $ext,my $foo) = split /\s+/,$line; |
(my $ext,my $foo) = split /\s+/,$line; |
push @fileext,$ext; |
push @fileext,$ext; |
} |
} |
} |
} |
foreach $line (@packlist) { |
foreach my $line (@packlist) { |
my ($foo,$strip) = split(/\/html/,$line); |
chomp $line; |
my @unpacklist = split (/\&/,$strip); |
$line =~ s/^\/home\/httpd\/html//; |
|
my @unpackline = split (/\&/,$line); |
my @pathfn = split (/\//,$unpacklist[0]); |
next if ($unpackline[0] eq "."); |
my $fndir = $pathfn[scalar(@pathfn)-1]; |
next if ($unpackline[0] eq ".."); |
my @filecom = split (/\./,$fndir); |
my @filecom = split (/\./,$unpackline[0]); |
my $curfext = $filecom[scalar(@filecom)-1]; |
my $fext = pop(@filecom); |
my $fnptr = $unpacklist[3]&$dirptr; |
my $fnptr = $unpackline[3]&$dirptr; |
if ($fnptr == 0 and $unpacklist[3] ne "") { |
if ($fnptr == 0 and $unpackline[3] ne "") { |
foreach $nextline (@fileext) { |
foreach my $nextline (@fileext) { |
push @trimlist,$strip if $nextline eq $curfext; |
push @trimlist,$line if $nextline eq $fext; |
} |
} |
} else { |
} else { |
push @trimlist,$strip; |
push @trimlist,$line; |
} |
} |
} |
} |
|
@trimlist = sort (@trimlist); |
return @trimlist; |
return @trimlist; |
} |
} |
|
|
|
#------------------- displays one line in appropriate table format |
sub display_line{ |
sub display_line{ |
my ($r,$diropen,$line,$indent)=@_; |
my ($r,$diropen,$line,$indent,$startdir,@list)=@_; |
my (@pathfn, $fndir, $fnptr); |
my (@pathfn, $fndir, $fnptr); |
my $dirptr=16384; |
my $dirptr=16384; |
my $fileclr="#ffffe6"; |
my $fileclr="#ffffe6"; |
my $iconpath="/res/adm/pages/indexericons/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
|
# my $iconpath="/res/adm/pages/indexericons/"; |
|
|
my @filecom = split (/\&/,$line); |
my @filecom = split (/\&/,$line); |
my @pathcom = split (/\//,$filecom[0]); |
my @pathcom = split (/\//,$filecom[0]); |
my $listname = $pathcom[scalar(@pathcom)-1]; |
my $listname = $pathcom[scalar(@pathcom)-1]; |
my $fnptr = $filecom[3]&$dirptr; |
my $fnptr = $filecom[3]&$dirptr; |
|
my $msg = 'View '.$filecom[0].' resources'; |
|
$msg = 'Close '.$filecom[0].' directory' if $diropen == 1; |
|
|
my $tabtag="</td>"; |
my $tabtag="</td>"; |
my $nextline; |
|
my $i=0; |
my $i=0; |
|
|
while ($i<=5) { |
while ($i<=5) { |
my $key="form.attr".$i; |
# my $key="form.attr".$i; |
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $ENV{$key} == 1; |
# $tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $ENV{$key} == 1; |
|
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $hash{'display_attrs_'.$i} == 1; |
$i++; |
$i++; |
} |
} |
|
|
if ($filecom[1] eq "domain") { |
if ($filecom[1] eq "domain") { |
$r->print("<tr>"); |
$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].'/'); |
$r->print ("<input src=\"$iconpath"); |
my $anchor = $filecom[0].'/'; |
$r->print ("comp.blue.gif\""); |
$anchor =~ s/\///g; |
$r->print (" name=\"submit\" height=\"22\" type=\"image\" border=\"0\">\n"); |
$r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."server.gif\""); |
|
$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\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>"); |
$r->print("<tr>$extrafield"); |
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
$r->print("<td bgcolor=$fileclr valign=bottom>\n"); |
&begin_form ($r,$filecom[0]); |
my $curdir = $startdir.$filecom[0].'/'; |
my $count = 0; |
&begin_form ($r,$curdir); |
while ($count <= $indent) { |
my $anchor = $curdir; |
$r->print("<img src=",$iconpath,"white_space_20_22.gif border=0>\n"); |
$anchor =~ s/\///g; |
$count++; |
# $r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"white_space_20_22.gif border=0>\n"); |
} |
$r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"whitespace1.gif border=0>\n"); |
$r->print ("<input src=\"$iconpath"); |
$r->print ("<input src=\"$iconpath"); |
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
$r->print (" name=\"submit\" 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>\n"); |
$r->print ("<img src=",$iconpath,"quill.gif border=0>\n"); |
$r->print("$listname $tabtag</tr></form>\n"); |
$r->print ("$listname $tabtag</tr></form>\n"); |
return OK; |
return OK; |
} |
} |
|
|
# display file |
# display file |
if ($fnptr == 0 and $filecom[3] ne "") { |
if ($fnptr == 0 and $filecom[3] ne "") { |
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $count = 0; |
my $filelink = $startdir.$filecom[0]; |
$r->print("<tr><td bgcolor=$fileclr>"); |
$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>"); |
while ($count <= $indent) { |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
$r->print("<img src=",$iconpath,"white_space_20_22.gif border=0>\n"); |
my $title; |
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
$title=$listname; |
|
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
|
$title=$listname unless $title; |
|
$r->print("<a href='javascript:select_data(\"", |
|
$title,'","',$filelink,"\")'>"); |
|
$r->print("<img src='",$iconpath,"select.gif' border=0></a>\n"); |
|
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
} |
|
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$title=$listname; |
|
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
|
$title=$listname unless $title; |
|
$r->print("<form name='form$fnum'>\n"); |
|
$r->print("<input type='checkbox' name='filelink"."' ". |
|
"value='$filelink'>\n"); |
|
$r->print("<input type='hidden' name='title"."' ". |
|
"value='$title'>\n"); |
|
$r->print("</form>\n"); |
|
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
$fnum++; |
|
} |
|
|
|
if ($indent < 11) { |
|
$r->print("<img src=",$iconpath,"whitespace",$indent,".gif border=0>\n"); |
|
} else { |
|
my $ten = int($indent/10.); |
|
my $rem = $indent%10.0; |
|
my $count = 0; |
|
while ($count < $ten) { |
|
$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,"white_space_20_22.gif border=0>\n"); |
|
$r->print("<img src=$iconpath$curfext.gif border=0>\n"); |
$r->print("<img src=$iconpath$curfext.gif border=0>\n"); |
$r->print(" <a href=$filecom[0]>",$listname,"</a> </td>\n"); |
$r->print(" <a href=$filelink target='_blank'>",$listname,"</a>\n"); |
$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $ENV{'form.attr0'} == 1; |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") if $ENV{'form.attr1'} == 1; |
$r->print (" (<a href=\"javascript:openWindow('".$filelink.".meta', 'metadatafile', '400', '450', 'no', 'yes')\"; TARGET=_self>metadata</a>) ") if ($metafile == 1); |
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") if $ENV{'form.attr2'} == 1; |
|
|
$r->print("</td>\n"); |
|
# $r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $ENV{'form.attr0'} == 1; |
|
$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $hash{'display_attrs_0'} == 1; |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") if $hash{'display_attrs_1'} == 1; |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") if $hash{'display_attrs_2'} == 1; |
|
|
|
if ($hash{'display_attrs_3'} == 1) { |
|
my $author = &Apache::lonnet::metadata($filelink,'author') if ($metafile == 1); |
|
$author = ' ' if (!$author); |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".$author." </td>\n"); |
|
} |
|
if ($hash{'display_attrs_4'} == 1) { |
|
my $keywords = &Apache::lonnet::metadata($filelink,'keywords') if ($metafile == 1); |
|
$keywords = ' ' if (!$keywords); |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".$keywords." </td>\n"); |
|
} |
|
if ($hash{'display_attrs_5'} == 1) { |
|
my $lang = &Apache::lonnet::metadata($filelink,'language') if ($metafile == 1); |
|
$lang = $language{$lang}; |
|
$lang = ' ' if (!$lang); |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".$lang." </td>\n"); |
|
} |
$r->print("</tr>\n"); |
$r->print("</tr>\n"); |
} |
} |
|
# -- display directory |
# display directory |
|
if ($fnptr == $dirptr) { |
if ($fnptr == $dirptr) { |
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
$r->print("<tr><td bgcolor=$fileclr valign=bottom>"); |
my $curdir = $startdir.$filecom[0].'/'; |
&begin_form ($r,$filecom[0]); |
my $anchor = $curdir; |
|
$anchor =~ s/\///g; |
my $count = 0; |
$r->print("<tr>$extrafield<td bgcolor=$fileclr valign=bottom>"); |
while ($count <= $indent) { |
&begin_form ($r,$curdir); |
$r->print("<img src=",$iconpath,"white_space_20_22.gif border=0>\n"); |
my $indentm1 = $indent-1; |
|
if ($indentm1 < 11) { |
|
$r->print("<img src=",$iconpath,"whitespace",$indentm1,".gif border=0>\n"); |
|
} else { |
|
my $ten = int($indentm1/10.); |
|
my $rem = $indentm1%10.0; |
|
my $count = 0; |
|
while ($count < $ten) { |
|
$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 ("<a name=\"$anchor\">\n<input src=\"$iconpath"); |
$r->print ("<input src=\"$iconpath"); |
|
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
$r->print (" name=\"submit\" height=\"22\" type=\"image\" border=\"0\">\n"); |
$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n"); |
$r->print("<img src=",$iconpath,"folder_closed.gif border=0>\n") if $diropen == 0; |
$r->print("<img src=",$iconpath,"folder_closed.gif border=0>\n") if $diropen == 0; |
$r->print("<img src=",$iconpath,"folder_opened.gif border=0>\n") if $diropen == 1; |
$r->print("<img src=",$iconpath,"folder_opened.gif border=0>\n") if $diropen == 1; |
$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 |
sub begin_form { |
sub begin_form { |
my ($r,$uri) = @_; |
my ($r,$uri) = @_; |
my $currenturi = $r->uri; |
my $anchor = $uri; |
my $openuri = $ENV{'form.openuri'}; |
$anchor =~ s/\///g; |
if ($ENV{'form.openuri'} =~ /$currenturi(.*)\&/) { |
$r->print ("<form method=\"post\" name=\"dirpath\" action=\"/res/\#$anchor\" enctype=\"application/x-www-form-urlencoded\">\n"); |
$openuri =~ s/$currenturi(.*)\&//g; |
$r->print ("$hidden<input type=hidden name=openuri value=\"$uri\">\n"); |
} else { |
|
$currenturi = join ('',$currenturi,"&"); |
# for (my $i=0; $i<=5; $i++) { |
$openuri = join ('&',$ENV{'form.openuri'},$currenturi); |
# $r->print ("<input type=hidden name=attr$i value=\"1\">\n") if $ENV{'form.attr'.$i} == 1; |
$openuri =~ s/\&+/\&/g; |
# } |
} |
|
$r->print ("<form method=\"post\" name=\"dirpath\" action=\"$uri/\" enctype=\"application/x-www-form-urlencoded\">\n"); |
|
$r->print ("<input type=hidden name=openuri value=\"$openuri\">\n"); |
|
|
|
for (my $i=0; $i<=5; $i++) { |
|
$r->print ("<input type=hidden name=attr$i value=\"1\">\n") if $ENV{'form.attr'.$i} == 1; |
|
} |
|
} |
|
|
|
sub display_env { |
|
my $r=shift; |
|
my %otherenv; |
|
$otherenv{'hi'}='there'; |
|
$otherenv{'does_this'}='work?'; |
|
&Apache::lonnet::appenv(%otherenv); |
|
my $envkey; |
|
foreach $envkey (sort keys %ENV) { |
|
$r->print("$envkey: $ENV{$envkey}<br>\n"); |
|
} |
|
# $r->print("<hr>".&Apache::lonnet::ssi('/res/msu/korte/test.tex')); |
|
# $r->print("<hr>".join('<br>',&Apache::lonnet::dirlist('/res/msu/korte/'))); |
|
} |
} |
|
|
1; |
1; |