Email signup script

[keliix06]

Does anyone know of a script in PHP (preferably) that will allow for users to signup for an email account? All the ones I'm finding are for CPanel.

Thanks

[thuskey]

If you find one your fond of, let me know and I'll see if I can modify it to work with the directadmin panel. If you don't have one in mind, I'm going to be writing one from scatch in perl here in the near future for my own customers.

[jeffery]

Originally posted by keliix06
Does anyone know of a script in PHP (preferably) that will allow for users to signup for an email account? All the ones I'm finding are for CPanel.

Thanks


You can do it using API call, search the forum you will find a solution!

[IPaddress]

Does anyone know of a script that will allow for users to signup for an email account for exim?

tks

[thuskey]

Here is the basics of the script I use. I created a signup.php page with a form containing the form fields of:

username
email
passwd
passwd2
domain

Then I used signup.pl as the form action and the perl script took care of the rest :) I hope this helps!






#!/usr/bin/perl -w

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

print "Content-type: text/html\n\n";

@QUERY_STRING = split (/\&/, $ENV{QUERY_STRING});
foreach $line (@QUERY_STRING) {
( $var, $val ) = split (/\=/,$line);
$val =~ s/(\@|\%40)/\\\@/g;
eval "\$" . $var . " = \"" . $val . "\"\n"; print "<br>";
}
$browser = LWP::UserAgent->new();
$browser->agent('Mozilla/4.76 [en] (Win98; U)');
$browser->cookie_jar({});
push @{ $browser->requests_redirectable }, 'POST';

# change the username, password and ip address to your server information.
$url = 'http://reselleraccount:resellerpassword@192.168.0.1:2222/CMD_ACCOUNT_USER';
$response = $browser->post( $url,
[
action => 'create',
add => 'Submit',
username => "$username",
email => "$email",
passwd => "$passwd",
passwd2 =>"$passwd2",
domain => "$domain",
package => 'webstore',
ip => '192.168.0.2',
notify => 'yes'
]
);

die "Can't access admin tool -- ", $response->status_line
unless $response->is_success;

print $response->content;

[Mitnick]

Can you send me the HTML for the form also ?.

Thank you in advance.

[jisri]

any updates or another solution for this?
I have made an html form and tried the perl script but it did not work.
thanks