#!/usr/bin/perl # ------------------------------------------------------------------------------------# # efileman # # Version: 7.1 # # Author: E.Bahr http://www.efileman.de webmaster@efileman.de # # Last Update: 09/12/2003 # # Platform: Unix/Win32 # # License: Freeware # # ------------------------------------------------------------------------------------# package efileman; use strict; use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); my $start; eval('use FindBin; use lib "$FindBin::Bin"; use lib "$FindBin::Bin/lang"; use lib "$FindBin::Bin/module"; use module::ef_main; $start = module::ef_main -> new(); $start -> ef_start();'); if ($@){ unless ($@ =~ /Died/gi){ my $zeile = < efileman - system error
efileman - system error


$@
 
MES my $cgi = new CGI; print $cgi->header(); print $zeile; } } # EOF -----------------------------------------------------------------------------------