Hello I am new to programming in Perl. I am trying to build an application for helping me with server admin functions. I would like to try to build it up bit by bit, one function at a time. My first task is to try and build a module to add an ftp user to a mysql database. So far I have accomplished adding a ftp user to a mysql database with my perl program but I have tried to add some error checking to make sure they are adding the right information. Here is where I would like to know if some one can help me with my code. And before some one asks no this is not home work. This is for personal server.
1. clear the form after adding a user to make sure the user is not entered a second time.
2. Error checking to make sure the right information is in inputed.
3. To let the admin know that the ftp user has been entered successfully and or the ftp user is already in the database.
#!/usr/bin/perl -wT
use DBI;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
#### main program
### DB Connect
my $dbpath = "dbi:mysql:database=pureftpd;host=localhost:3306";
my $dbh = DBI->connect($dbpath, "user", "pass")
or die "Can't open database: $DBI::errstr";
my $method = "Post";
my $action = "addftpuser.pl";
###Any fileds may be used in the form as long as you define them below ex.($cgi->textfield('$whatever','value'); define below$
###as my $whatever = $cgi->param('$Whatever');
my $cgi = CGI->new;
print $cgi->header;
&check_empty($cgi);
print $cgi->start_html("Add FTP User");
print $cgi->startform($method,$action);
print "<center><table border='0' cellpadding='0' cellspacing='0' width='100%' id='AutoNumber2'>\n";
print "<tr><td width='33%'>Enter a New FTP User Name:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$User','');
print "</td></tr>\n";
print "<br>\n";
print $cgi->hidden('$Status','1');
print "<tr><td width='33%'>Enter a Password For FTP User, The Password will be stared out:</td>\n";
print "<td width='67%'>\n";
print $cgi->password_field('$Password','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter FTP Home Dir ex.(/home/domainname):</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$Dir','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter FTP Users Bandwidth for Uploading:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$ULbandwidth','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter FTP Users Bandwidth for Downloading:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$DLbandwidth','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter any Comments for FTP Account:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$Comment','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter the Quota Size for FTP Storage Used:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$QuotaSize','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'>Enter the Quota For Files Amount of Files Allowed:</td>\n";
print "<td width='67%'>\n";
print $cgi->textfield('$QuotaFiles','');
print "</td></tr>\n";
print "<br>\n";
print "<tr><td width='33%'></td><td>\n";
print $cgi->submit('submit','Add Ftp User');
print "</td></tr>\n";
print "</table></center>\n";
print $cgi->endform;
###Colleting Configurable variables from the form.
my $user = $cgi->param('$User');
my $password = $cgi->param('$Password');
my $status = $cgi->param('$Status');
my $dir = $cgi->param('$Dir');
my $ulband = $cgi->param('$ULbandwidth');
my $dlband = $cgi->param('$DLbandwidth');
my $comment = $cgi->param('$Comment');
my $size = $cgi->param('$QuotaSize');
my $files = $cgi->param('$QuotaFiles');
###Define an array for checking empty fields
my @field_list = ('$User','$Password','$Dir');
###sub process_form {
###Define Mysql Query
my $query = "INSERT INTO ftpd (User, Status, Password, Dir, ULBandwidth, DLBandwidth, Comment, QuotaSize, QuotaFiles) VALUES $
'$status',MD5('$password'),'$dir','$ulband','$dlband','$comment','$size','files')";
###insert values into database
$dbh->do($query) or die "$DBI::errstr";
###Can't have empty Fields for User and Password
###Checking to see if they are empty
sub check_empty {
if ($cgi->param('$User') eq "" or $cgi->param('$Password') eq "" or $cgi->param('$Dir') eq ""){
&dienice ("Please Fill Out the Required Fields for FTP User, Ftp Password, and/or FTP Home Dir. The Other Fields are Option$
}
}
###Die with error message.
sub dienice {
my($errmsg) = @_;
print "<h2>Error</h2>\n";
print "<p>$errmsg</p>\n";
print $cgi->end_html;
return;
}
exit 0;
Can anyone help me with this perl program this is about my 5 perl program and is a bit more complex then just a simple "Hello World" script?
25 Aug, 2007 - 09:06 AM
| 