# The LearningOnline Network with CAPA
# Directory Indexer
# (Login Screen
# 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
# 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;
use strict;
use Apache::lonnet();
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 {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
$fnum=0;
my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $domain = $r->dir_config('lonDefDomain');
my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');
my $servadm = $r->dir_config('lonAdmEMail');
my $sysadm = $r->dir_config('lonSysEMail');
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');
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='
'.
' | ';
$colspan=" colspan='2' ";
$hidden=<
END
$closebutton=<
END
}
elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
$extrafield=''.
' | ';
$colspan=" colspan='2' ";
$hidden=<
END
$closebutton=<
END
$groupimportbutton=<
END
}
my $catalogmodefunctions='';
if ($ENV{'form.catalogmode'} eq 'interactive' or
$ENV{'form.catalogmode'} eq 'groupimport') {
$catalogmodefunctions=<print(<
The LearningOnline Network With CAPA Directory Browser
ENDHEADER
my $line;
my (@attrchk,@openpath);
my $uri=$r->uri;
$r->print("The LearningOnline With CAPA Network Directory Browser
\n");
my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
if (tie(%hash,'GDBM_File',$diropendb,&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(<Display file attributes
END
my $titleclr="#ddffff";
$r->print("\n");
$r->print("\n");
$r->print("Name | \n");
$r->print("Size (bytes) | \n") if ($hash{'display_attrs_0'} == 1);
$r->print("Last accessed | \n") if ($hash{'display_attrs_1'} == 1);
$r->print("Last modified | \n") if ($hash{'display_attrs_2'} == 1);
$r->print("Author(s) | \n") if ($hash{'display_attrs_3'} == 1);
$r->print("Keywords | \n") if ($hash{'display_attrs_4'} == 1);
$r->print("Language | \n") if ($hash{'display_attrs_5'} == 1);
$r->print(" ");
map {
if ($_ =~ /^diropen_status_/) {
my $key = $_;
$key =~ s/^diropen_status_//;
$dirs{$key} = $hash{$_};
}
} keys %hash;
if ($ENV{'form.openuri'}) { # take care of review and refresh options
my $uri=$ENV{'form.openuri'};
if (exists($hash{'diropen_status_'.$uri})) {
my $cursta = $hash{'diropen_status_'.$uri};
$dirs{$uri} = 'open';
$hash{'diropen_status_'.$uri} = 'open';
if ($cursta eq 'open') {
$dirs{$uri} = 'closed';
$hash{'diropen_status_'.$uri} = 'closed';
}
} else {
$hash{'diropen_status_'.$uri} = 'open';
$dirs{$uri} = 'open';
}
}
# my $toplevel = "/res/";
my $toplevel = $uri;
my $indent = 0;
&scanDir ($r,$toplevel,$indent);
$r->print("");
$r->print(" ");
$r->print(" |
");
$r->print("