#!/usr/bin/perl 
 
use CGI qw(:standard); 
print "Content-type: text/html\n\n"; 
require "shopconfig.cgi"; 
 
my @count = (); 
opendir (DR,"$datapath/members/"); 
@count = grep { /\..*/ } readdir(DR); 
closedir (DR); 
 
foreach $line (sort @count) { 
 
open(LIST, "<$datapath/members/$line"); 
while(<LIST>) {  
my ($Username, $Password, $lname, $fname, $country, $email, $add1, $add2, $city, $state, $zip, $phone) = split/\|/; 
 
  use DBI(); 
 
 
  # Connect to the database. 
  my $dbh = DBI->connect("DBI:mysql:database=crashint_test;host=localhost", 
                         "crashint", "PASSWORD", 
                         {'RaiseError' => 1}); 
 
 
    # Same thing, but using placeholders 
  $dbh->do("INSERT INTO foo VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", undef, "$Username", "$Password", "$fname", "$lname", "$country", "$email", "$add1", "$add2", "$city", "$state", "$zip", "$phone"); 
 
  # Disconnect from the database. 
  $dbh->disconnect(); 
 
 
} 
 
close(LIST); 
 
}