[<prev] [next>] [day] [month] [year] [list]
Message-ID: <200211291705.gATH5Ug1051266@mailserver3.hushmail.com>
From: es at hush.com (es@...h.com)
Subject: [ElectronicSouls] - Domain Setup Tool
-----BEGIN PGP SIGNED MESSAGE-----
Dear List,
Often you will run into the immensely complex chore of setting up
domains on a system. We suggest you use our tool.
# cat autodomain.pl
#!/usr/bin/perl
if ($ARGV[3] eq "hso") {
print "Content-type: text/html\n\n";
}
print "\n";
print "Automated Domain Setup Tool\n";
print "coded by BuRn-X - [Electronicsouls]\n";
print "Greetz to: ElectronicSouls, tty64, hwa, darknet, dexa, sk, servant, izik, etc..\n";
print "\n";
if ($ARGV[0] eq "") {
print "Usage: domainadd <domain>\n";
exit(0);
}
$gotdom = $ARGV[0];
print "\n\n";
print " [*] Preparing to setup $gotdom\n";
print " [*] Getting IP Addresss to use";
open(fi, "</etc/namedb/freeips");
@currips = <fi>;
close(fi);
open(fn, ">/etc/namedb/newfreeips"); # make a file called newfreeips with free ip's in /etc/namedb
$gotip = $currips[0];
$curr = $gotip;
chomp($gotip);
foreach (@currips) {
if ($_ ne $curr) {
print fn $_;
}
}
close(fn);
system("mv /etc/namedb/newfreeips /etc/namedb/freeips");
print "\n [*] Using $gotip";
print "\n [*] Making Backups of Configuration Files";
system("cp /etc/namedb/named.conf /etc/namedb/named.conf.before"); # If path is diff please change
system("cp /var/apache/conf/httpd.conf /var/apache/conf/httpd.conf.before"); # If path is diff please change
print "\n [*] Setting up $gotdom";
print "\n [+] Name Server Configuration";
open(nc, ">>/etc/namedb/named.conf");
open(nz, ">/etc/namedb/db.$gotdom");
print nc "\n";
print nc "zone \"$gotdom\" {\n";
print nc "\ttype master;\n";
print nc "\tfile \"db.$gotdom\"\;\n";
print nc "};\n";
$date = qx(date);
$serial = rand();
substr($serial, 0, 4, "");
print nz "
\$TTL 600 # nameserver ifo goes below here
@ IN SOA $gotdom. hostmaster.mydoamin.com. (
$serial ; Serial
3600 ; Refresh
900 ; Retry
3600000 ; Expire
3600 ) ; Minimum
IN NS ns1.mydomain.com.
IN A $gotip
www IN CNAME $gotdom.
ftp IN CNAME $gotdom.
ns IN CNAME ns1.mydomain.com.
mail IN A 123.456.78.910 ; mymailbox
\n";
close(nc);
close(nz);
print "\n [+] Apache Configuration";
# your apache conf ex. httpd.conf path should be eneter below
open(ht, ">>/var/apache/conf/httpd.conf");
print ht "\n";
print ht "#$gotdom -- $date\n";
print ht "<VirtualHost $gotip>\n";
print ht "ServerAdmin\twebmaster\@$gotdom\n";
print ht "ServerName\t$gotdom\n";
print ht "ServerAlias\twww.$gotdom\n";
print ht "DocumentRoot\t/home/www/$gotdom\n";
print ht "ScriptAlias\t/cgi-bin /home/www/$gotdom/cgi-bin\n";
print ht "</VirtualHost>\n";
close(ht);
print "\n [+] Adding to domain list";
system("echo $gotdom >> /etc/namedb/hosted.txt"); # file with sites created
print "\n [+] Creating Folders";
system("mkdir -p /home/www/$gotdom/cgi-bin");
if ($ARGV[1] eq "abqlocal") {
print "\n [+] Creating Link for abqlocal";
system("ln -s /home/www/$gotdom /home/abqlocal/$gotdom");
system("chown -R abqlocal.abqlocal /home/www/$gotdom");
}
print "\n [*] Configuration complete";
print "\n [*] Restarting Name Server";
system("killall -9 named >/dev/null 2>&1");
system("/usr/sbin/named -u bind -g bind");
print "\n [*] Restarting Apache Server";
system("killall -9 httpd >/dev/null 2>&1");
system("httpd");
print "\n [*] Done\n\n";
print ">> http://www.$gotdom, is ready togo \;\)\n\n";
#
If you have any suggestions on how to make this better, please to let
us know!
The Electronic Souls Crew
[ElectronicSouls] (c) 2002
"M R DUCKS..."
-----BEGIN PGP SIGNATURE-----
Version: Hush 2.2 (Java)
Note: This signature can be verified at https://www.hushtools.com/verify
wlMEARECABMFAj3nnmwMHGVzQGh1c2guY29tAAoJEN5nGqhGcjltBtwAoLY9VUrNSUHN
tnYn4247VwNPDDRsAJwL5cFvaBjHDuydZUaKHarVOu9fqg==
=d84z
-----END PGP SIGNATURE-----
Concerned about your privacy? Follow this link to get
FREE encrypted email: https://www.hushmail.com/?l=2
Big $$$ to be made with the HushMail Affiliate Program:
https://www.hushmail.com/about.php?subloc=affiliate&l=427
Powered by blists - more mailing lists