How hard would it be to integrate this forum with my current user db? I know perl and MySQL very well.
Here is most of my users table:
$DBH->do(qq|CREATE TABLE tblUsers (
usNum INT(10) NOT NULL AUTO_INCREMENT,
usName CHAR(15) NOT NULL,
# passwords are stored with crypt
# if longer than 8 char crypt is used twice
usPassword CHAR(26) NOT NULL,
usLostPassTime INT(10) NOT NULL,
usLostPassKey CHAR(15) NOT NULL,
usEmail CHAR(50) NOT NULL,
usICQ INT(10) NOT NULL,
usAIM CHAR(16) NOT NULL,
usAdmin ENUM('No','Admin') NOT NULL,
usSuspendUntil INT(10) NOT NULL,
usBanReason ENUM('Flaming','Scamming','Spamming','Feedback Abuse'),
usSignupIp CHAR(15) NOT NULL,
usSignupDate INT(10) NOT NULL,
UNIQUE (usName),INDEX (usEmail),PRIMARY KEY (usNum))|);
Here is most of my users table:
Code:
# Users - X $DBH->do(qq|CREATE TABLE tblUsers (
usNum INT(10) NOT NULL AUTO_INCREMENT,
usName CHAR(15) NOT NULL,
# passwords are stored with crypt
# if longer than 8 char crypt is used twice
usPassword CHAR(26) NOT NULL,
usLostPassTime INT(10) NOT NULL,
usLostPassKey CHAR(15) NOT NULL,
usEmail CHAR(50) NOT NULL,
usICQ INT(10) NOT NULL,
usAIM CHAR(16) NOT NULL,
usAdmin ENUM('No','Admin') NOT NULL,
usSuspendUntil INT(10) NOT NULL,
usBanReason ENUM('Flaming','Scamming','Spamming','Feedback Abuse'),
usSignupIp CHAR(15) NOT NULL,
usSignupDate INT(10) NOT NULL,
UNIQUE (usName),INDEX (usEmail),PRIMARY KEY (usNum))|);