I have autoresponder that work in perl and cgi.
I would like to transfer it to PHP.
I will post the code here one file at a time so we could change it to php.
The php code is available to all members.
Are you interested.
Here is the data tables:
#!/usr/bin/perl
use CGI qw (:standard);
$form = new CGI;
require "/home/sitename/public_html/cgi-bin/config.pl";
&connect_sql;
$SQL = "CREATE TABLE archives (
ID int(11) NOT NULL auto_increment,
listid varchar(20) default NULL,
listname varchar(255) NOT NULL default '0',
subject varchar(255) NOT NULL default '',
message text NOT NULL,
addtime int(11) NOT NULL default '0',
PRIMARY KEY (ID)
) TYPE=MyISAM";
&my_sql;
$SQL = "CREATE TABLE lists (
ID varchar(20) NOT NULL default '',
listname varchar(100) default NULL,
PRIMARY KEY (ID)
) TYPE=MyISAM";
&my_sql;
$SQL = "CREATE TABLE messages (
ID int(11) NOT NULL auto_increment,
listid varchar(20) NOT NULL default '',
delay int(4) default NULL,
subject varchar(255) default NULL,
message text,
PRIMARY KEY (ID)
) TYPE=MyISAM";
&my_sql;
$SQL = "CREATE TABLE recipients (
ID int(11) NOT NULL auto_increment,
listid varchar(20) NOT NULL default '',
tid varchar(20) NOT NULL default '',
firstname varchar(20) default NULL,
lastname varchar(20) default NULL,
email varchar(100) default NULL,
addtime int(20) default NULL,
ipaddress varchar(20) default NULL,
PRIMARY KEY (ID)
) TYPE=MyISAM";
&my_sql;
$SQL = "CREATE TABLE setup (
fromname varchar(255) NOT NULL default '',
mypassword varchar(20) default NULL,
myemail varchar(100) NOT NULL default '',
domain varchar(100) NOT NULL default '',
pop3 varchar(100) NOT NULL default '',
username varchar(100) NOT NULL default '',
password varchar(20) NOT NULL default '',
fromemail varchar(100) default NULL,
signature text
) TYPE=MyISAM";
&my_sql;
$SQL = "CREATE TABLE tracking (
ID varchar(20) NOT NULL default '',
description varchar(255) NOT NULL default '',
subs int(11) NOT NULL default '0',
addtime int(20) NOT NULL default '0',
PRIMARY KEY (ID)
) TYPE=MyISAM";
&my_sql;
$SQL = "INSERT INTO setup (mypassword) VALUES ('admin')";
&my_sql;
$sth->finish;
$dbh->disconnect;
####### PRINT OUTPUT #########
print $form->header;
print qq|
<HTML><BODY BGCOLOR="white">
<CENTER><FONT SIZE=5 FACE=ARIAL>
<p>Your tables were created!
</FONT></CENTER>
</BODY></HTML>
|;
exit;
Let me know if you are on board.
All members, juniors and up are invited.
