#!/usr/bin/perl
#
#
# Create New Domains and corresponding IP#
# ----------------------------------------
#	1. create DNS entry ( /etc/dns/named.boot.new ) to append to /etc/named.boot
#	2. create DNS file in /usr/local/etc/dns/tables/*
#	3. create file to append to /usr/local/etc/httpd/conf/httpd.conf
#
#
######################################
#
# WARNING: use "correct starting IP#" in while loop below
#
######################################
#
# 16-Feb-99 amo Date of Birth
#
#
#
# Linux Slackware to be installed on both servers:
#	165.90.52.2	ns1.playmate.nu (jremote machine)
#	165.90.48.2	ns1.playtex.net (juggernaut2 machine)
#
# ns1.playtex.net is the primary   name server for 165.90.48.2 (juggernaut2)
# ns2.playtex.net is the secondary name server for 165.90.48.3 (juggernaut2)
#
# ns1.playmate.nu is the primary name server for 165.90.52.2 (jremote)
# ns2.playmate.nu is the primary name server for 165.90.52.3 (jremote)
#
#
# Remove .Test when ready
# =======================
#
my ( $Named_Boot_New ) = "/etc/named.boot.new";	# append new domains
unlink ( $Named_Boot_New );
#
my ( $DNS_Dir ) = "/usr/local/dns/tables";
#
my ( $DNS_Res ) = "$DNS_Dir/.Test";	# temporary DNS  results
my ( $DNS_New_Template ) = "$DNS_Dir/.DNS_New.txt";
#
#
# -->> Make a similar one for the other domain...
#
my ( $DNS_Host_Template ) = "$DNS_Dir/.db.165.90.52.txt";
my ( $DNS_Host_New ) = "$DNS_Dir/db.165.90.52.new";
unlink ( $DNS_Host_New );
#
my ( $Httpd_Conf_Dir ) = "/usr/local/etc/httpd/conf";
#
my ( $Httpd_Conf_Template ) = "$Httpd_Conf_Dir/.httpd.conf.txt";
my ( $Httpd_Conf_New ) = "$Httpd_Conf_Dir/http.conf.New";	# append new domains
unlink ( $Httpd_Conf_New );
#
#
my ( @New_Dom_52 ) = ( 
	"adult-porn-pictures-free-porn-adult-porn-video.nu",
	"porn-photos-porn-pictures-porn-video.nu",
	"free-adult-sex-adult-porn-adult-teens.nu",
	"free-amateur-cheerleaders-amateur-teens-amateur-video.nu",
	"xxx-adult-pictures-xxx-porn-xxx-sex.nu",
	"xxx-sodomy-xxx-bondage-xxx-masochism.nu",
	"xxx-interacial-xxx-black-video-xxx-latino-women.nu",
	"xxx-Swedish-adult-pics-Swedish-porn-video.nu",
	"free-Swedish-computer-porn-free-xxx-Swedish-video.nu",
	"xxx-free-Asian-porn-video-free-xxx-asian-pics.nu",
	"free-asian-bondage-asian-computer-porn.nu",
	"hardcore-sex-exotic-porn-sex-exotic-sex-pictures.nu",
	"xxx-sex-porn-hardcore-fucking-amateurs-blowjobs.nu",
	"amateur-porn-pictures-free-amateur-porn-amateur.nu",
	"porn-hardcore-amateur-porn-adult-porn-amateur-porn-sex.nu",
	"porn-sex-hardcore-xxx-adult-amateur-teens.nu",
	"teen-porn-xxx-teens-teen-video-free-teens-adult-teens.nu",
	"amateur-cheerleaders-amateur-teens-amateur-bondage.nu",
	"porn-cheerleader-video-porn-cheerleader-pics.nu",
	"amateur-porn-amateur-sex-video-sex-pictures-porno.nu",
	"xxx-computer-porn-adult-computer-porn-sexy-computer-porn.nu",
	"xxx-hardcore-xxx-blowjobs-xxx-ass-xxx-pussy.nu",
	"xxx-legs-xxx-tits-xxx-playmates-xxx-centerfolds.nu",
	"lewinski-sex-impeachment-porn-links.nu",
	"xxx-amateur-xxx-legs-xxx-babes.nu",
	"xxx-sexualnen-bilder-erotik-madchen.nu",
	"hardcore-erotica-hardcore-sex-hardcore-porn.nu",
	"hardcore-ass-hardcore-blowjobs-hardcore-black-babes.nu",
	"hardcore-centerfolds-hardcore-playmates-hardcore-bondage.nu",
	"softcore-centerfolds-softcore-playmates-free-softcore-video.nu",
	"ibm-star-wars-intel-computer-search-engine-free-porn.nu",
	"xxx-sexy-search-engine-computer-porn-pics.nu",
	"porno-babes-pornographic-movies-free-porn.nu",
	"free-chat-free-strippers-free-hardcore-free-sex.nu",
	"free-xxx-free-centerfolds-free-playmates.nu",
	"free-cheerleaders-free-porn-cheerleader-video.nu",
	"free-chat-free-computer-porn-free-porn-pictures.nu",
	"free-voyeur-pics-free-spycam-pics-free-lockeroom-video.nu",
	"beautifull-xxx-nude-women-pictures-xxx-fetish-video.nu",
	"free-xxx-lolita-xxx-voyeur-xxx-spyic-xxx-bondage-video.nu",
	"free-xxx-chat-porn-chat-hardcore-sex-chat.nu",
	"free-phonesex-free-live-sex-conferencing-free-vivo.nu",
	"naked-girls-pussysex.nu", 
	"free-hardcore-erotic-porn-stories.nu", 
	"naked-cheerleaders-erotik-teen-cheerleaderporn.nu", 
	"adult-chat-amateurs-bondage-cybersex-erotic-stories.nu", 
	"adult-entertainment-xxx-sex-hardcore-pics-images-breasts.nu", 
	"free-hardcore-sex-hardcore-teen-porn-hardcore-teen-sex-xxx.nu", 
	"pervert-xxx-porn-deviant-sexual-behaviour-depraved-hardcore.nu", 
	"soft-wet-pussy-hardcore-porn-fetish-pics-oral-blowjob-cum.nu", 
	"sex-addict-sexy-blondes-teen-phonesex-hardcore-sex.nu", 
	"xxx-amateur-video-xxx-amateur-teens-xxx-amateur-video.nu", 
	"teen-sex-xxx-porn-sex-pictures.nu", 
	"gay-porn-gay-sex-gay-hardcore-xxx-gay-video.nu", 
	"lesbian-porn-lesbian-video-lesbian-sex-lesbian-hardcore.nu", 
	"amateurteens-analteens-hardcoreteens-sexyteens.nu", 
	"xxx-Swedish-teens-teen-cheerleaders-pornograhic-teen-video.nu", 
	"kinky-teens-teen-pussy-teenbondage-teen-porn.nu", 
	"youngest-sex-videos-youngest-centerfolds-youngest-playmates.nu", 
	"xrated-adult-videos-xrated-pictures-xrated-nude-women.nu",
	"high-quality-gay-video-gay-porn-gay-sex-pics.nu", 
	"mtv-porn-mtv-sex-mtv-porn-stars.nu", 
	"adult-links-teensex-links-adult-bondage-links.nu", 
	"hardcoresex-links-hardcoreporn-links-pussy-links.nu", 
	"gorgeous-legs-adult-upskirt-video-pantyhose-models.nu", 
	"free-live-nude-chat-playboy-models.nu", 
	"fetishbabes-xxx-fetish-links-teen-fetish-video.nu", 
	"leg-fetish-porn-fetish-fetish-sex-videos.nu", 
	"pussy-fetish-ass-fetish-bondage-fetish.nu", 
	"xxx-european-teens-xxx-asian-teens-asian-bondage.nu", 
	"free-interacial-asian-teen-computer-sex.nu", 
	"free-Barbie-centerfolds-Barbie-playmate-video.nu", 
	"xxx-spycam-interacial-blonde-rape-video.nu", 
	"cumshot-centerfolds-cumshot-playmates-blowjob-video.nu", 
	"teen-cumshot-video-top10-teen-links.nu", 
	"free-xxx-gay-rape-video.nu", 
	"free-amateurteen-blowjob-video.nu", 
	"free-xxx-lesbian-rape-video.nu", 
	"free-Internet-adult-entertainment-video.nu",
	"amateur-sex-pictures-free-amateur-sex-kinky-amateur-sex.nu", 
	"explicit-upclose-hardcore-photos-and-videos-displayed.nu", 
	"teensex-links-amateursex-links-hardcoresex-links.nu", 
	"adultsex-links-cheerleadersex-links-freevideosex-links.nu", 
	"pornsex-links-computersex-links-centerfoldsex-links.nu", 
	"swedishsex-links-xxxsex-links-cumsex-links-analsex-links.nu", 
	"hardcoresex-links-freesex-links-freechatsex-links.nu", 
	"gaysex-links-lesbiansex-links-gayvideo-links.nu", 
	"hardcorevideo-links-pornvideo-links-xxxvideo-links.nu", 
	"teenvideo-links-cheerleader-video-links.nu", 
	"over40-xxxvideo-links-european-video-links.nu", 
	"hardcoreasian-video-links-hardcoreasian-adult.nu", 
	"xxxasian-sexlinks-xxxasian-pornlinks-asian-video.nu", 
	"xxxasian-teens-asianhardcore-video-asian-amateurs.nu", 
	"asian-bondage-links-asian-interacial-hardcorelinks.nu", 
	"sexyasianhardcore-pussy-links-xrated-asian-sexlinks.nu", 
	"asianpussy-links-asian-spypic-links-asian-blowjobs.nu", 
	"hardcore-Korean-sexlinks-hardcore-Thai-pornlinks.nu", 
	"Japanese-porno-movies-xxx-Japan-sex-links.nu", 
	"xxx-phonesex-links-gay-phonesex-bondage-phonesex.nu", 
	"free-gay-computersex-links-and-free-gay-video.nu", 
	"xxxsoftcore-video-links-gorgeous-xxxcenterfolds.nu", 
	"free-quality-softcore-centerfold-adult-model-links.nu", 
	"free-adult-video-adultporn-teenporn-amateurporno.nu", 
	"adult-bondage-xxxadult-adultsex-adultpass-adultteens.nu", 
	"gay-adult-adultlesbian-video-adultasian-adultvivo.nu", 
	"hardcoreadult-adultporno-adult-phonesex-links.nu", 
	"free-adultplaymates-adultlinks-adult-newsgroups.nu", 
	"teenplaymates-teencenterfolds-teensex-teenporn.nu", 
	"amateurplaymates-amateurcenterfolds-amateurvideo.nu", 
	"amateurcumshots-amateurblowjobs-amateurass-links.nu", 
	"hardcorecumshots-hardcoreblowjobs-hardcore-sexlinks.nu", 
	"xxx-cumshots-xxxx-hardcoreblowjobs-xxxxx-sexlinks.nu", 
	"hardcoresmut-hardcoregay-hardcorelesbians.nu", 
	"xxxvivo-xxxxmpegs-free-xxxxx-video-links.nu", 
	"computerporn-computersmut-computersex.nu", 
	"freesex-chat-freeporn-chat-freeteen-chat.nu", 
	"freeamateur-chat-freehardcore-chat-freechat-links.nu", 
	"freecenterfold-video-freeplaymate-video-free-teens.nu", 
	"xxxvideo-xxxteens-xxxgay-xxxbondage-xxxlesbians.nu", 
	"asiangay-asianlesbians-free-xxxasianvideo.nu", 
	"asianpussy-asianspypics-softcore-asianvoyeur-pics.nu", 
	"asianspypics-asianbreasts-asianteens-asianpussy.nu", 
	"asiansmut-asianporn-asian-sexvideo-asianass.nu", 
	"oralbondage-oralsex-oralporn-xxxoral-video.nu", 
	"oralspypics-oralteens-oralamateurs-orallinks.nu", 
	"oralcumshots-oralblowjobs-oralcenterfolds.nu", 
	"free-oral-oralporn-oralsex-adult-oralsex.nu", 
	"oralvideo-oralporn-free-xxxoral-links.nu", 
	"anal-rape-oralrape-teenrape-video-links.nu", 
	"hardcorerape-movies-gayrape-video-lesbianrape.nu", 
	"xrated-computerporn-xxx-computersex.nu", 
	"free-sexy-hardcore-computerporn-movies.nu", 
	"free-gay-bondage-chat-video-conferencing.nu", 
	"Hollywood-centerfolds-Star-playmate-movies.nu", 
	"Search-engine-computerporn-bondage-video-links.nu", 
	"Lolita-spypic-fetish-voyeur-vivo-links.nu", 
	"Pam-Anderson-Baywatch-computerporn-links.nu", 
	"Free-lesbian-chat-free-pornstories-freesex-stories.nu", 
	"xxx-interacial-teencheerleader-bondage-movies.nu", 
	"xxxbondage-teenbondage-oralbondage-amateurbondage.nu", 
	"swedishbondage-asianbondage-computerbondage-movies.nu", 
	"hardcorebondage-bondageporn-sexybondage-video.nu", 
	"cyberbondage-xratedbondage-adultbondage-links.nu", 
	"pornrape-sexrape-secretaryrape-free-xxxrape-links.nu", 
	"free-xxxboygirl-rape-stories-freeteen-rape-chat.nu", 
	"rape-bondage-pornrape-sexyrape-teenvideo.nu", 
	"adultporn-searchengine-sexy-computerporn-movies.nu", 
	"xxxporn-xxxsex-pornsex-sexyporno-freeporn-links.nu", 
	"xxxcomputersex-adultcomputerporn-onlineporn.nu", 
	"harcoreporn-hardcoregay-hardcorebondage-video.nu"
	);
#
#
# PSZ NETWORK domains to go on 165.90.48.2
#
my ( @New_Dom_48 ) = ( 
	"amateur-cheerleaders.nu",
	"xxx-sexysmut.nu",
	"xxx-cocaine.nu",
	"xxx-sexy-blowjob.nu",
	"xxx-sexy-bikini-babes.nu",
	"xxx-sessuali-sexualnen--sexuelle.nu",
	"xxx-erotik-sexy-free-porn.nu",
	"free-xxx-sexy-erotic-smut-video.nu",
	"free-xxx-bondage-video.nu",
	"gay-xxx-lesbian-xxx-bondage.nu",
	"xxx-free-sex-pictures.nu",
	"xxx-sexy-free-hooker.nu",
	"free-stripper-sexy-leg-video.nu",
	"swimsuitillustrated.nu",
	"stripper-sexuelle-porn-erotika.nu",
	"pussy-sexy-centerfold-playmate-porn.nu",
	"lolita-voyeur-free-sex-free-porn-free-video.nu",
	"ass-clit-boob-escort-hookers.nu",
	"sexy-hard-up-hookers.nu",
	"sexy-prostitutes-barbie-escorts.nu",
	"free-swedish-barbie-porn-video.nu",
	"sexy-porn-sexiest-rape-porn-video.nu",
	"free-xxx-blowjob-search.nu",
	"free-search-engine-rape-video-search.nu",
	"barbie-porn-anal-barbie-sexy-video.nu",
	"computer-pornographic-porn-porniest-porno.nu",
	"xxx-sex-erotica-barbie-pussy.nu",
	"free-hardcore-free-sex-free-porn.nu",
	"free-erotika-fetish-pussy-anal-tits.nu",
	"barbie-centerfolds-barbie-playmates.nu",
	"free-teen-porn-sexiest-teens.nu",
	"free-teen-spypics.nu",
	"sexiest-cheerleader-porn-video.nu",
	"free-live-porn-video-conferencing.nu",
	"free-cheerleader-hardcore-sex-video.nu",
	"free-swedish-erotika-cheerleader-video.nu",
	"porno-pussy-teen-tit-links.nu",
	"free-gay-video-search-engine-porn-links.nu",
	"free-cheerleader-rape-video-search-engine-links.nu",
	"anal-barbie-slut-porn-filth-centerfolds.nu",
	"naked-teen-cheerleader-video.nu",
	"lesbian-prostitute-slut-mistress.nu",
	"hardcore-gay-escort-prostitute.nu",
	"naked-gay-bondage-nymphomania.nu",
	"search-engine-hardcore-fetish-pornographic-video.nu",
	"free-gay-lesbian-escorts.nu",
	"microsoftiest-sex-slut-links.nu",
	"microsofty-porno-links.nu",
	"pornzone-sex-xxx-porn-tits-breasts-big-boobs.nu",
	"tits-breasts-big-boobs-nasty-teens-naked-women.nu",
	"black-lesbian-gay-free-xxx-video.nu",
	"xxx-hardcore-xxx-anal-gay-interacial-video-conferencing.nu",
	"swedish-bunny-black-rape-live-video-conferencing.nu",
	"xxx-swedish-barbie-ass-black-dick-video.nu",
	"norwegian-teen-playmate-video.nu",
	"free-black-teen-rape-barbie-cheerleaders.nu",
	"smut-smutiest-smutland-porn.nu",
	"sexy-tit-sexiest-breasts-boob-playmates.nu",
	"sexy-orgasm-sexiest-ass-babesex-porn.nu",
	"pornographic-sexy-hardcore-gay-lolita-spypics.nu",
	"free-gay-cumshot-filth-video-conferencing.nu",
	"free-bondage-transvestite-dominatrix-fetish-video-chat.nu",
	"gay-transvestite-fetish-spypic-video.nu",
	"xxx-transvestite-xxx-lesbian-xxx-ass-xxx-spypics.nu",
	"xxx-brunettes-xxxx-blondes-xxxxx-redheads.nu",
	"xrated-porn-xxxrated-sex-hardcore-erotika.nu",
	"hotbot-ass-video-hotbot-sex-links-hotbot-porno-links.nu",
	"sexy-pornographic-ass-cunt-vagina-tit-bondage.nu",
	"huge-dick-bondage-gay-ass-cumshots.nu",
	"free-xxx-blowjob-links.nu",
	"free-xxx-cumshot-links.nu",
	"free-dominatrix-bondage-video-links.nu",
	"free-passwords-free-stories-free-pornography.nu",
	"xxx-bondage-xxx-boys-xxx-girls.nu",
	"xxx-hardcore-xxx-lolita-xxx-sado-masochism.nu",
	"xxx-sado-bondage-sodomization-porn-sex-video.nu",
	"xxx-masochistic-sado-bondage-transvestite-porn.nu",
	"xxx-masochistic-xxxx-sodomy-xxxxx-rape.nu",
	"free-xxxx-oral-filth-sodomization.nu",
	"xxx-search-engine-xxxx-intel-women.nu",
	"Adult-playmate-centerfold-bondage-stories.nu",
	"xxx-teen-sado-masochistic-cheerleader-video.nu",
	"xxx-swedish-teen-hardcore-streaming-sex-video.nu",
	"xxx-links-hardcore-links-adult-1000-links.nu",
	"free-xxx-free-teens-free-hardcore-free-sex.nu",
	"free-sodomy-free-hardcore-free-porn.nu",
	"free-SM-escorts-dancers-blowjobs.nu",
	"free-xxx-adult-teen-picture-posts.nu",
	"free-chat-free-centerfolds-free-playmates.nu",
	"free-chat-free-phonesex-free-video.nu",
	"free-teen-playmate-phonesex.nu",
	"free-xxx-asian-xxx-bondage-video.nu",
	"xxx-smut-sex-barbie-links.nu",
	"xxx-swedish-cheerleader-sex-links.nu",
	"xxx-amateur-teen-cheerleaders.nu",
	"free-xxx-live-cheerleader-video.nu",
	"xxx-free-xxx-porn-xxx-sex.nu",
	"xxx-lingerie-video-xxx-affair-mistress-scandal.nu",
	"iraq-bombshell-women-import-video-links.nu",
	"xxx-impeachment-lewinski-bondage-dominatrix.nu"
	);
#
#
# Create new DNS entries for new Domains
#
&Proc_New_Domain ( 52, @New_Dom_52 );	 # 165.90.52.*
&Proc_New_Domain ( 48, @New_Dom_48 );
#
#
#
printf "-- please see $DNS_Res/$dom_str for DNS File for each new domain..\n";
printf "-- please see/append $Named_Boot_New to /etc/named.boot\n";
printf "-- please see/append $Httpd_Conf_New to $Httpd_Conf_Dir/httpd.conf\n";
#
exit ( 0 );


# -------------------------------------------------------------------------
#
# Create new DNS entries for new Domains
# --------------------------------------
#
sub Proc_New_Domain
{
  my ( $ip1 ) = @_[0];	# 165.90.48.2
  my ( @dom ) = @_;
  #
  my ( $id ) = 1;	# skip over $ip variable at zero
  my ( $ip0 ) = 256;
  my ( $status ) = 0;
  #
  #
  # Create new DNS Entry
  # --------------------
  #
  while  ( $id <= $#dom ) {
    #
    $dom_str = $dom[$id];
    #
    printf "Creating $id: 165.90.$ip1.$ip0 $dom_str..\n";
    #
    #
    # Red from the Template and generate new DNS file
    #
    ` sed -e "s/NEW_DOMAIN/$dom_str/g" -e "s/IP1/$ip1/" -e "s/IP0/$ip0/" < $DNS_New_Template > $DNS_Res/$dom_str `;
    #
    # Now append the New Domain to the db.165.90.52 host file
    #
    ` sed -e "s/NEW_DOMAIN/$dom_str/g" -e "s/IP0/$ip0/" < $DNS_Host_Template >> $DNS_Host_New `;
    #
    #
    # Now append domain to new HTTPD conf file to be appended to httpd.conf
    #
    ` sed -e "s/NEW_DOMAIN/$dom_str/g" -e "s/IP1/$ip1/" -e "s/IP0/$ip0/" < $Httpd_Conf_Template >> $Httpd_Conf_New `;
    #
    # Now append the New Domain to the named.boot file
    #
    ` echo "primary  $dom_str  tables/$dom_str" >> $Named_Boot_New` ;
    #
    #
    $ip0 += 1;
    $id += 1;
  }
  #
  printf "\n";
  #
} # Proc_New_Domain
#
#
# end of file