##


#!/usr/bin/perl

use CGI qw(:standard);

print "Content-type: text/html\n\n";

my $dir = '/home/lawlist/www';

my $query = new CGI;

my $name = $query->param('name');

my $file = $dir . "/" . $name;

if ($name) {
  open(FILE,'/home/lawlist/www/header.include.shtml') and print ;
  close FILE; }


opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {

  next unless (-f "$dir/$file");

  next unless ($file =~ m/\.txt|.el$/);

  print '' . $file . "" . "
" . "\n\n"; }

closedir(DIR);

if ($name) {

  open (DATA, $file) or return $self->print_json_error($self->language('ERR_CANNOT_OPEN', $file->{name}, $!));

  read (DATA, my $file, -s DATA);

  close DATA;

  print "
\n\n
\n\n";

  print '' . "\n\n" . $file . "\n" . '';

  print "\n\n
\n";

  open(FILE,'/home/lawlist/www/footer.include.shtml') and print ;

  close FILE; }

exit 0;