#!/usr/bin/perl

use CGI qw(:standard);
print "Content-type: text/html\n\n";
require "shopconfig.cgi";

use DBI;
my $dbh = DBI->connect("DBI:mysql:crashint_test:localhost","crashint", "PASSWORD") or &error($DBI::errstr);
my @count = ();
opendir (DR,"$datapath/members/") or &error($!);
@count = grep { /\.txt$/ } readdir(DR);
closedir (DR);

foreach $line (@count) {
print "$line<br>";
open(LIST, "<$datapath/members/$line") or &error($!);
while(<LIST>) {
@data = split /\|/;
my $sth = $dbh->prepare("INSERT INTO foo VALUES ('$data[0]','$data[1]' ...etc)") or &error($DBI::errstr);
$sth->execute;
$sth->finish;
}
}
$dbh->disconnect();

sub error {
print shift;
exit;
}

opendir (DB, "C:/data") or die $!;
while (my $file = readdir(DB)) {
next unless $file =~ /\.txt$/;
open (FILE, "C:/data/$file") or die "can't open $file! $!";
print "$file\n" . ("*" x 20) . "\n", <FILE>;
close (FILE);
print "\n\n";
}
closedir (DB);