I'm screwed. I tried to trim my member files with newstrip.cgi and I get this error:
Can't continue after import errors at newstrip.cgi line 12 BEGIN failed--compilation aborted at newstrip.cgi line 12.
Now what? I can't upgrade because of the hacks adding fields to my member files and now the program that fixes it won't run!! AARGH!!
Do I have to start clean and have my 2000 members reregister or is there a way to import messages and members from the old to the new version??
Here is the start of newstrip. What is in line 12 that is causing the problem all you CGI literates??
#!/usr/local/bin/perl
#
# UBB Member Field Stripper, 2.0
# Copyright 2001 Infopop Corporation
#
# WARNING: This is an EXPERIMENTAL BETA SCRIPT.
# Use this script at your OWN RISK.
# We offer NO official support for this script!
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser set_message);
set_message(&ErrorHandler);
use vars qw(%in @memberslist $memberspath);
%in = map{$_ => param($_)} param();
my($vc, $us) = ("./vars_config.cgi", "./UltBB.setup");
if(!-e $vc && !-e $us) {
&StandardHTML("Error", "Sorry, I was unable to find either a
<tt>vars_config.cgi</tt> or a <tt>UltBB.setup</tt> file.
Please make sure that you have placed this file in the UBB's
CGI directory!");
} elsif(-e $vc && !-e $us) {
open(FILE, "<$vc") or die "$! opening $vc";
my @lines = <FILE>;
close(FILE);
foreach(@lines) { chomp; }
my @pathline = grep(/MembersPath/, @lines);
$pathline[0] =~ m/=>(.+)$/;
my $closer = $1;
$closer =~ s/^s+//g;
$closer =~ s/s+$//g;
$closer =~ s/,$//g;
$closer =~ s/['"`]//g;
$closer =~ s/^q+~//;
$closer =~ s/~$//;
if(!-e "$closer/memberslist.cgi") {
&StandardHTML("Error", "The MembersPath I detected, '<tt>$closer</tt>',
does not seem to exist. I could not find the memberslist
file.");
} else {
$memberspath = $closer;
}
open(FILE, "<./vars_misc.cgi") or die "$! opening vars_misc";
my @misc = <FILE>;
close(FILE);
foreach(@misc) { chomp; }
my @closedline = grep(/BBStatus/, @misc);
$closedline[0] =~ m/=>(.+)$/;
my $thiscloser = $1;
$thiscloser =~ s/^s+//g;
$thiscloser =~ s/s+$//g;
$thiscloser =~ s/,$//g;
$thiscloser =~ s/['"`]//g;
$thiscloser =~ s/^q+~//;
$thiscloser =~ s/~$//;
if($thiscloser !~ m/OFF/i) {
&StandardHTML("Error", "Your UBB must be OFF before this
[ 11-07-2001: Message edited by: Rinkrat ]
_________________________
