InspIRCd 1.2 Configuration File Generator

#!/usr/bin/perl
# InspIRCd 1.2 Config File Generator
# Email bugs/suggestions to miniCruzer@live.com
use Term::ANSIColor;
print color 'bold';
print "This will generate an InspIRCd 1.2 config file for you.\n";
print "Do not make up any information, other wise you may find\n";
print "that you have a broken IRCd.\n";
print "*******************************************************\n";
print "Please input the IP your IRCd will run on. [Required]\n";
$BindIP = <STDIN>;
chomp($BindIP);
print "Please input the name of your IRC Network. [Required]\n";
$NetName = <STDIN>;
chomp($NetName);
print "Please input your network address. ($NetName.com/.org/.net) [Required]\n";
$NetAddress = <STDIN>;
chomp($NetAddress);
print "Please input your server name. [Required]\n";
$ServName = <STDIN>;
chomp($ServName);
print "Please input YOUR resolved hostname. (Example: *@*.dhcp.insightbb.com). [Recommended]\n";
$MyHost = <STDIN>;
chomp($MyHost);
print "Please input your email address. [Optional]\n";
$MyEmail = <STDIN>;
chomp($MyEmail);
print "Please input your full name. [Optional]\n";
$MyName = <STDIN>;
chomp($MyName);
print "Please input your IRC Nickname. [Recommended]\n";
$MyNick = <STDIN>;
chomp($MyNick);
print "Please input a password to use (this will be used to oper up, and restart\/kill the IRCd.) [REQUIRED]\n";
$MyPass = <STDIN>;
chomp($MyPass);
@ConfFiles = ('inspircd.conf','opers.conf','modules.conf');
unlink @ConfFiles;
system ('rm -rf *.example');
my $inspircdconf = qq(
<server name="$ServName" description="$NetName Client Server" network="$NetName">
<admin name="$MyName" nick="$MyNick" email="$MyEmail">
<bind address="$BindIP" port="6660-6669" type="clients">
<bind address="$BindIP" port="7000,7001" type="servers">
<bind address="$BindIP" port="7005" type="servers" transport="openssl">
<power diepass="$MyPass" restartpass="$MyPass">
<connect
         name="main"
         allow="*"
         timeout="10"
         pingfreq="120"
         sendq="262144"
         recvq="8192"
         localmax="3"
         globalmax="3"
         useident="no"
         limit="5000"
         modes="+iwx">
<cidr ipv4clone="32" ipv6clone="128">
<include file="opers.conf">
<include file="links.conf">
<files motd="inspircd.motd" rules="inspircd.rules">
<channels users="20" opers="60">
<dns timeout="5">
<banlist chan="*" limit="20">
<disabled commands="GLINE KLINE ZLINE KILL TLINE QLINE FILTER" usermodes="gW" chanmodes="O" fakenonexistant="yes">
<options
         prefixquit="Quit: "
         suffixquit=""
         prefixpart=""
         suffixpart=""
         syntaxhints="yes"
         cyclehosts="yes"
         ircumsgprefix="no"
         announcets="yes"
         hostintopic="yes"
         pingwarning="15"
         serverpingfreq="60"
         allowhalfop="yes"
         defaultmodes="nt"
         moronbanner="You're banned! Email $MyEmail with the ERROR line below for help."
         exemptchanops="*"
         invitebypassmodes="yes">
<performance
             netbuffersize="10240"
             maxwho="128"
             somaxconn="128"
             softlimit="12800"
             quietbursts="yes"
             nouserdns="no">
<security
          announceinvites="dynamic"
          hidemodes="eI"
          hideulines="yes"
          flatlinks="no"
          hidebans="yes"
          hidesplits="yes"
          maxtargets="20"
          customversion=""
          operspywhois="yes"
          restrictbannedusers="yes"
          genericoper="no"
          userstats="">
<limits
        maxnick="31"
        maxchan="64"
        maxmodes="20"
        maxident="11"
        maxquit="255"
        maxtopic="307"
        maxkick="255"
        maxgecos="128"
        maxaway="200">
<log method="file" type="* -USERINPUT -USEROUTPUT -m_spanningtree" level="default" target="ircd.log">
<whowas groupsize="10" maxgroups="100000" maxkeep="3d">
<badnick nick="ChanServ" reason="Reserved For Services">
<badnick nick="NickServ" reason="Reserved For Services">
<badnick nick="OperServ" reason="Reserved For Services">
<badnick nick="MemoServ" reason="Reserved For Services">
<exception host="$MyHost" reason="$MyNick">
<insane
        hostmasks="no"
        ipmasks="no"
        nickmasks="no"
        trigger="95.5">
<include file="modules.conf">
);
open (INSPIRCDCONF, '>>inspircd.conf');
print INSPIRCDCONF $inspircdconf;
close INSPIRCDCONF;
my $opersconf = qq(
<class name="Everything" commands="*" privs="*" usermodes="*" chanmodes="*">
<class name="Shutdown"
     commands="DIE RESTART REHASH LOADMODULE UNLOADMODULE RELOAD GUNLOADMODULE GRELOADMODULE SAJOIN SAPART SANICK SAQUIT SATOPIC"
     privs="users/auspex channels/auspex servers/auspex users/mass-message channels/high-join-limit channels/set-permanent users/flood/no-throttle users/flood/increased-buffers"
     usermodes="*"
     chanmodes="*">
<class name="ServerLink" commands="CONNECT SQUIT CONNECT MKPASSWD ALLTIME SWHOIS CLOSE JUMPSERVER LOCKSERV" usermodes="*" chanmodes="*" privs="servers/auspex">
<class name="BanControl" commands="KILL GLINE KLINE ZLINE QLINE ELINE TLINE RLINE CHECK NICKLOCK SHUN CLONES CBAN" usermodes="*" chanmodes="*">
<class name="OperChat" commands="WALLOPS GLOBOPS SETIDLE" usermodes="*" chanmodes="*" privs="users/mass-message">
<class name="HostCloak" commands="SETHOST SETIDENT SETNAME CHGHOST CHGIDENT TAXONOMY" usermodes="*" chanmodes="*" privs="users/auspex">


######################
#     OPER TYPES     #
######################
<type name="NetAdmin" classes="Everything" vhost="netadmin.$NetAddress" modes="+Wgs +AaCcQqkKLlOodXxtf" override="*" level="2" >
<type name="GlobalOp" classes="OperChat BanControl HostCloak ServerLink" vhost="globalop.$NetAddress" level="1" override="*">
<type name="Helper" classes="HostCloak" vhost="helper.$NetAddress">


######################
#       OPERS        #
######################
<oper
      name="$MyNick"
      password="$MyPass"
      host="$MyHost"
      type="NetAdmin">
);
open (OPERSCONF, '>>opers.conf');
print OPERSCONF $opersconf;
close (OPERSCONF);
print "Your inspircd.conf has been written. Review it to make sure there\n";
print "were no errors. Your modules.conf, and links.conf still\n";
print "need to be done. Email bugs/suggestions to miniCruzer\@insaneirc.com\n";