curl -s http://wLeiden.NET/genesis/ | perl --
#
#! /usr/bin/perl
#
# aug 2002 jasper@WirelessLeiden.NL
$version='0.3';
#$DEBUG=1;
$start=localtime();
$home='/etc/wl';
$url='http://wLeiden.NET/genesis';
#$rpmurl='ftp://dl.xs4all.nl/pub/mirror/redhat/redhat-7.3-en/os/i386/RedHat/RPMS';
$rpmurl='ftp://dl.xs4all.nl/pub/mirror/redhat/linux/7.3/en/os/i386/RedHat/RPMS/';
@Packages=(
'wget-1.8.1','curl-7.9.5','openssh-server-3.1p1','openssh-clients-3.1p1',
'joe-2.9.7','zebra-0.92a-3','mrtg-2.9.17',
'tcpdump-3.6.2','squid-2.4.STABLE6-1.7.2',
'bind-9.2.0','apache-1.3.23','rdate-1.2-1',
'dhcp-2.0pl5'
);
@MRTGJUNK=('cfgmaker.html','contrib.html','faq.html','forum.html','index.html',
'indexmaker.html','logfile.html','mibhelp.html','mrtg-rrd.html','mrtg.html',
'mrtglib.html','nt-guide.html','reference.html','squid.html','unix-guide.html',
'webserver.html');
@MRTGIMG=('mrtg-l.gif','mrtg-l.png','mrtg-m.gif','mrtg-m.png','mrtg-r.gif',
'mrtg-r.png','mrtg-ti.gif','mrtg-ti.png');
$curl='/usr/bin/curl';
$inittab='/etc/inittab';
$sshd_config='/etc/ssh/sshd_config';
$authorized_keys='/root/.ssh/authorized_keys';
$syslogd_conf='/etc/syslog.conf';
$rclocal='/etc/rc.d/rc.local';
$sc_network='/etc/sysconfig/network';
$crontab='/etc/crontab';
$liloconf='/etc/lilo.conf.anaconda';
$mrtgdir='/var/www/html/mrtg';
$passwd='/etc/passwd';
$shadow='/etc/shadow';
$var_named='/var/named';
$var_named_slave="$var_named/slave";
$hostname=`/bin/hostname`;chomp($hostname);$hostname=~s/\..*//;
#select(STDOUT); $| = 1;
printc( "\n\n===== Wireless Leiden Genesis $version for $hostname =====\n\n");
printc("In the beginning there was /etc/wl");
my_mkdir ($home,0750);
###################### DIVERSEN #########################
if ($ARGV[0])
{
$hostname=$ARGV[0];
changeline($sc_network,"HOSTNAME","HOSTNAME=$hostname");
system("/bin/hostname $hostname.wleiden.net");
prints ("New hostname: $hostname");
}
$node=`$curl -s $url/nodes/$hostname/`;
#print "NODE: [$node]\n";
if (($node=~/found on this server/) || ($hostname eq ''))
{
print "\n\nHostname \"$hostname\" unknown on genesis system.\n";
print "Please restart with hostname as agument:\n\n";
print "curl -s http://wLeiden.NET/genesis/ | perl -- - [hostname] \n\n";
die;
}
#goto skip;
##################### PACKAGES ####################################
foreach $package (@Packages) {InstallIfNotThere($package);}
InstallIfNotThere("bing-1.0.4","ftp://rpmfind.net/linux/contrib/libc6/i386");
InstallIfNotThere("fping-2.4b2","ftp://rpmfind.net/linux/PLD/current/dists/ra/PLD/i386/PLD/RPMS");
#InstallIfNotThere("ntop-2.1-1","http://belnet.dl.sourceforge.net/sourceforge/ntop/");
InstallIfNotThere("wavemon-0.3.3-1","ftp://rpmfind.net/linux/contrib/libc6/i386/");
#InstallIfNotThere("idled-1.16-3","ftp://rpmfind.net/linux/PLD/current/dists/ra/PLD/i386/PLD/RPMS/");
AddIfNotThere($inittab,'S0:123:respawn:/sbin/agetty -L 9600 ttyS0');
AddIfNotThere($sshd_config,'PermitRootLogin yes');
AddIfNotThere($syslogd_conf,'*.* /dev/tty9');
AddIfNotThere($rclocal,'echo 60 > /proc/sys/kernel/panic');
$doit='/usr/bin/rdate -s ntp.xs4all.nl;/sbin/clock --systohc --utc';
system($doit);
printc ("Checking /etc/crontab");
if (! filegrep('rdate',$crontab))
{
AddIfNotThere($crontab,"13 6 * * * root $doit");
}
printc ("Checking $liloconf"); if (! filegrep('timeout=15',$liloconf)) {
changeline($liloconf,'timeout','timeout=15'); system("/sbin/lilo -C
$liloconf");
}
# Jasper:
#
AddIfNotThere($authorized_keys,'1024 35
112316178287877254070956100425865829142003519260838089408287428288025179160927766087063935502299240797274832024419201965494823824334871043373834738280496449985305215259303428888378450891325700353005777564637335420689043600277656759878355825032152723795185677246322116557728089284732770412581611008730473076369
jasper@Foxtrot',0600); AddIfNotThere($authorized_keys,'1024 35
118239913251009869865766536315021393707936886074250129280418473820786192419898669632268750479860782257598739847197103203348900588986714533679311193658890557424225585046131153077993767644932126481282093252667491668462126364793663058473958394234134729276158925678092948983706464884277485578826546212336317771647
jasper@Rumba'); AddIfNotThere($authorized_keys,'1024 35
131115877365044889919364159918102221501007851129140588698864391358409700706033130394488227521530533168939153736569754398766671594746877715705568124401657833947746079021505059669681909865480458530856596287241882611975228914550983484838927508168402688375217383947586789572836291240495264780490011259940976676783
jasper@Tango');
# Rudi:
#
AddIfNotThere($authorized_keys,'1024 35
175064508659828994627143321524163097781640785788870666512791607844470773231705101704418403768320192803174740066957164497121494748184227124076884950318600937518771055598445142736335521690474047053323012366268793076855215471573920191862419906922134514121969462360529797078932635823683742743592103014922572913173
rudi@flupke'); AddIfNotThere($authorized_keys,'1024 35
143166375720170866349619197277385566768069875485196362699778322322352272754425517150081365776757054647703778864422036993461721791436126915970412582719415351906955315394823309461075762059061244401928288023541130196242097703041933109276811888686865551081981845265381340343445264057143590813968740962614380418301
rudi@quick'); AddIfNotThere($authorized_keys,'1024 35
124752035168971877893059147471720282336429451383717387223954769248711511091174717193477105333864864131448165452070009395515515659396169159755357937833999410182494957674293616658655374538654124880362749453138940491080015307589195673993882335454433811025091710719877693183773703706788265932234293023384253606179
rudi@Classic');
AddIfNotThere($passwd,'croot:x:0:0:root:/root:/bin/bash',0,'croot',1);
AddIfNotThere($passwd,'rudi:x:1500:100::/home/rudi:/bin/bash',0,'rudi',1);
AddIfNotThere($passwd,'jasper:x:1501:100::/home/jasper:/bin/bash',0,'jasper',1);
AddIfNotThere($shadow,'croot:$1$0ngjFP1K$NFBRKYS5Ltdd6ohgf67i31:11918:0:99999:7:::',0,'croot',1);
AddIfNotThere($shadow,'rudi:$1$Ni3ÁëñÍß$OnUTJgV3k.394Z1qDY.Vz0:11910:0:99999:7:::',0,'rudi',1);
AddIfNotThere($shadow,'jasper:$1$hZdZY2yU$5MsprMarQcBE42NicTxib.:11881:0:99999:7:::',0,'jasper',1);
########################## MRTG #############################3
my_mkdir ($mrtgdir,0750); chdir($mrtgdir); unlink(@MRTGJUNK); foreach $file
(@MRTGIMG) {
if (! -e "$mrtgdir/$file") {copyfile2("mrtg/$file",$mrtgdir,644);}
}
copyfile2("mrtg/cpuload.pl","/usr/local/sbin",755);
copyfile2("mrtg/uptime.pl","/usr/local/sbin",755);
copyfile2("mrtg/ipchains_traf.pl","/usr/local/sbin",755);
copyfile2("mrtg/latency.pl","/usr/local/sbin",755);
copyfile2("mrtg/memusage.pl","/usr/local/sbin",755);
copyfile2("mrtg/throughput.pl","/usr/local/sbin",755);
copyfile2("mrtg/uptime.pl","/usr/local/sbin",755);
copyfile2("mrtg/wlan_bitrate.pl","/usr/local/sbin",755);
copyfile2("mrtg/wlan_quality.pl","/usr/local/sbin",755);
copyfile2("mrtg/wlan_snr.pl","/usr/local/sbin",755);
copyfile2("mrtg/wlan_users.pl","/usr/local/sbin",755);
AddIfNotThere($crontab,"*/5 * * * * root /usr/bin/mrtg /etc/mrtg/mrtg.cfg",0,'mrtg');
###################### NAMED #########################
my_mkdir ($var_named,0750);
my_mkdir ($var_named_slave,0750);
($login,$pass,$uid,$gid) = getpwnam('named');
chown($uid,$gid,$var_named_slave) ||
die "Could not change perms $var_named_slave to $uid/$gid";
copyfile2('named/named.conf','/etc/',0644);
copyfile2('named/localhost.zone','/var/named/',0644);
copyfile2('named/127.0.0.zone','/var/named/',0644);
copyfile2('named/root.hint','/var/named/',0644);
copyfile2('named/resolv.conf','/root/',0644);
if (! -e '/etc/rc3.d/S55named')
{symlink('../init.d/named','/etc/rc3.d/S55named') ||
die "Could not symlink named.";}
system("/etc/init.d/named restart"); # Direct zones gaan laden. --> cache
###################### APACHE #########################
copyfile2('apache/httpd.conf','/etc/httpd/conf/');
###################### SQUID #########################
copyfile2('squid/squid.conf','/etc/squid/');
###################### NETWERK #########################
copyfile2("nodes/$hostname/ifcfg-eth0","/etc/sysconfig/network-scripts/");
copyfile2("tools/netmask","/usr/local/bin",0750);
skip: copyfile2("areas.conf","/etc/wl/",0644);
copyfile2("nodes/$hostname/wleiden.conf","/etc/wl/",0644);
copyfile2("tools/wleiden.pl","/etc/wl/",0750);
copyfile2("tools/firewall","/etc/wl/",0750);
copyfile2("tools/nofirewall","/etc/wl/",0750);
copyfile2("tools/wl-runlvl","/etc/init.d/wireless",0750);
if (! -e '/etc/rc3.d/S30wireless')
{symlink('../init.d/wireless','/etc/rc3.d/S30wireless') ||
die "Could not symlink wireless.";}
printc("Starting /etc/wl/wleiden.pl\n");
system("/etc/wl/wleiden.pl startall");
###################### #########################
# TODO:
#
# httpd
# mrtg
# eth0, wlan*
# zebra
# firewall
exit;
##########################################################################
sub printc
{
prints(@_);
$counter++;
}
sub prints
{
local($line,$nlf)=@_;
local($time)=localtime();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
printf ("[%02d %02d:%02d:%02d] $line",$counter,$hour,$min,$sec);
if ($nlf eq '') {print"\n";}
}
sub filegrep
{
local($grep,$file)=@_;
local($found)=0;
open(FILE,$file) || die"Could not grep in file: $file\n";
while()
{
if (/$grep/) {$found=1;last;}
}
close(FILE);
return($found);
}
sub add2file
{
local($file,$line,$nocr)=@_;
open (FILE,">>$file") || die "Coult not open $file\n";
if (! $nocr) {print FILE "\n";}
print FILE "$line\n";
close(FILE);
}
sub AddIfNotThere
{
local($file,$line,$mode,$search,$nocr)=@_;
if (! $search) {$search="^$line";}
if (($mode) && (! -e $file)) # Create file?
{
print("Creating file with $line\n");
add2file($file,$line);
chmod($mode,$file);
} else
{
printc("Checking $file: ",1);
if (! filegrep("$search",$file))
{
print("Adding $line\n");
add2file($file,$line,$nocr);
} else {print "OK!\n";}
}
}
sub InstallIfNotThere
{
local($package,$ru)=@_;if (! $ru) {$ru=$rpmurl;}
local($rpm);
printc("Checking for rpm $package: ",1);
$rpm=`rpm -q $package`;
if ($rpm=~/not installed/)
{
print "installing now.\n";
system("rpm -i $ru/${package}*-i386.rpm");
} else {print "OK: $rpm";}
}
sub copyfile2
{
local($src,$dst,$perm)=@_;if (! $perm) {$perm=0640;}
local($fn,$ztime);
if (-d $dst)
{
$dst=~s/\/$//;
if ($src=~/\/([^\/]+)$/) {$dst.="/$1";} else {$dst.="/$src";}
}
printc("Copying $src to $dst");
if (-e $dst) {$ztime="-z $dst";}
if ($DEBUG) {print("DEBUG: $curl $ztime $url/$src -o $dst\n");}
system("$curl -s -f $ztime $url/$src -o $dst");
if (! -f $dst) {die "Error copying file $src to $dst.\n";}
chmod($perm,$dst) || die "Could not change permission for $dst to $perm.\n";
}
sub my_mkdir
{
local($dir,$perm)=@_;if (! $perm) {$perm=0755;}
prints ("Checking dir: $dir: ",1);
if (! -d $dir) {mkdir ($dir,$perm) || die "Could not make dir: $dir\n";print "created.\n";}
else {print "OK!\n";}
}
sub changeline
{
local($file,$old,$new)=@_;
open(OLD,$file) || die "Could not open old file: $file\n";
open(NEW,">$file.genesis.$$") || die "Could not create new file: $file.genesis.$$\n";
while()
{
if (/$old/) {print NEW "$new\n";}
else {print NEW $_;}
}
close(NEW);
close(OLD);
rename("$file.genesis.$$",$file) || die "Coult not overwrite old file: $file\n";
}
#