| Author | Message | ||
     Ironhead1977 |
Every time I try to go to the main forum page this is what I get. Anyone else having this issue. #!/usr/bin/perl # #------------------------------------------------- ------------------------------ # DISCUS COPYRIGHT NOTICE # # Discus is copyright (c) 2002 by DiscusWare, LLC, all rights reserved. # The use of Discus is governed by the Discus License Agreement which is # available from the Discus WWW site at: # http://www.discusware.com/discus/license # # Pursuant to the Discus License Agreement, this copyright notice may not be # removed or altered in any way. #------------------------------------------------- ------------------------------ use strict; use vars qw($GLOBAL_OPTIONS $PARAMS $DCONF); $DCONF->{script_dir} = "/home/sites/www.badweatherbikers.com/web/cgibin/discus"; my $e = get_cgi_extension($0); if (-e "$DCONF->{script_dir}/config.$e") { require "$DCONF->{script_dir}/config.$e"; } elsif (-e "./config.$e") { require "./config.$e"; } else { print "Content-type: text/html\n\n"; print "Script Execution Error: config.*** location error [1].\n"; exit(0); } discus("discus"); sub get_cgi_extension { my ($zero) = @_; if ($zero =~ m|\.(\w+)$|) { return $1; } foreach my $try ('cgi', 'pl') { return $try if -e "./config.$try"; } opendir(DIR, "."); while (my $i = readdir(DIR)) { return $1 if $i =~ m|^config\.(\w+)$|; } closedir(DIR); print "Content-type: text/html\n\n"; print "Script Execution Error: config.*** location error [2].\n"; exit(0); } 1; | ||
| Ironhead1977 |
Never mind I see someone else has posted the same issue |
