#!/usr/bin/perl
# Script to Add New Virtual FTP Users & Create a FTP Dir
# # Version 0.1 – Thomas Stewart Buchanan – 15/02/2010
use strict;
use warnings;
use DBI;

# MYSQL VARIABLES
my $database = “DBI:mysql:vsftpd”;
my $tablename = “accounts”;
my $user = “vsftpd”;
my $pw = “ftpuserpass”;

# GATHER USER DETAILS
print “Enter the name of the new FTP user:\n”;
chomp(my $inUser = );
print “Please now enter a password for user $inUser:\n”;
chomp(my $inPw = );
print “Thankyou \n”;

# PERL MYSQL CONNECT
my $dbh = DBI->connect($database, $user, $pw) || die “Could not connect to database: $DBI::errstr”;

# MYSQL QUERY TO INSERT User
my $queryInsertUser = $dbh->do(“INSERT INTO $tablename (username, pass) VALUES(‘$inUser’, PASSWORD(‘$inPw’))”);

# DISCONNECTS FROM DATABASE
$dbh->disconnect || warn “Disconnection failed: $DBI::errstr”;

# CREATES USER DIR
mkdir (“/home/vsftpd/$inUser”) || print $!;

# Sets ownership of the ftp dirs
my $chown = system(“chown -R vsftpd:nogroup /home/vsftpd”);

exit;

Do you see any messages from pam in /var/log/auth.log?

- aip

Disconnected from server
Connection failed.
OOPS: priv_sock_get_result

When trying to connect, if I try to change credentials it denies me access (so its connecting to the database at some point to check username/password).