#!/usr/bin/perl
BEGIN{ print "This script is deprecated.\n"; exit 0;}

use MLDBM qw(DB_File);
use DB_File;
use Fcntl ;
use strict;

my %EXER;
my %USER;
#my $cgidir = "/home/jj/public_html/bin";
my $cgidir = "/Applications/MAMP/cgi-bin";

my $base = "/tmp";

mkdir("$base/MEX/");

#set up mex.db
system("cp mex.db $base/MEX/mex.db") if (-e "mex.db");
my $x= tie %EXER,  'MLDBM' , "$base/MEX/mex.db", O_CREAT|O_RDWR, 0664 or die $! ;
$EXER{topid}=1000 unless $EXER{topid};
untie $x;

#set up user.db
system("cp user.db $base/MEX/user.db") if (-e "user.db");
my $y = tie %USER, 'MLDBM', "$base/MEX/user.db", O_CREAT|O_RDWR, 0664 or die $!;
untie $y;

system("sed -e 's!PREFIX!$base/MEX!' < cgi-bin/MEX  > '$cgidir/MEX'");

chmod(0755,"$cgidir/MEX");
__END__