Michael Wesemann
59 lines
1.6 KiB
Perl
Executable File
59 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
system("userdel ppb; rm -rf /home/ppb") if (-d "/home/ppb");
|
|
system("userdel mike; rm -rf /home/mike") if (-d "/home/mike");
|
|
|
|
&ai('net-tools','zsh','joe','fuse','libwww-perl','bzip2','jq',
|
|
'libterm-readline-perl-perl','libterm-readpassword-perl','libdbd-mysql-perl','ntp');
|
|
|
|
system("chsh root -s /usr/bin/zsh");
|
|
|
|
system("mkdir /db");
|
|
system("mkdir /db/bin");
|
|
system("mkdir /db/backup");
|
|
system("mkdir /db/backup/mysql");
|
|
system("mkdir /db/tmp");
|
|
system("mkdir /db/log");
|
|
system("mkdir /db/lib");
|
|
system("mkdir /db/data");
|
|
system("mkdir /db/etc");
|
|
system("mkdir /db/src");
|
|
system("mkdir /db/upload");
|
|
system("chmod 777 /db/tmp");
|
|
system("chmod 777 /db/log");
|
|
system("chmod 777 /db/upload");
|
|
|
|
system("cp ./files/joerc4 /root/.joerc");
|
|
system("cp ./files/csh.cshrc /etc");
|
|
system("cp ./files/rc.local.ubuntu /etc/rc.local");
|
|
system("chmod 755 /etc/rc.local");
|
|
system("cp ./files/myuser /db/bin");
|
|
system("cp ./files/mybackup /db/bin");
|
|
system("cp ./files/dx /db/bin");
|
|
system("cp ./files/gx /db/bin");
|
|
system("cp ./files/gy /db/bin");
|
|
system("cp ./files/telemetry /db/bin");
|
|
system("cp ./files/rt /db/bin");
|
|
system("cp ./files/mgsh /db/bin");
|
|
|
|
system("cp ./files/zshrc /etc/zsh/zshrc");
|
|
|
|
system("mkdir /root/.ssh") if (!-d "/root/.ssh");
|
|
system("cp ./files/authorized_keys /root/.ssh");
|
|
system("chmod 700 /root/.ssh");
|
|
system("chmod 600 /root/.ssh/authorized_keys");
|
|
|
|
system("/usr/bin/apt update");
|
|
system("/usr/bin/apt upgrade");
|
|
|
|
system("service ntp stop");
|
|
system("/usr/sbin/ntpd -gq");
|
|
system("service ntp start");
|
|
|
|
sub ai {
|
|
my @pkgs=@_;
|
|
for (@pkgs) {
|
|
system("/usr/bin/apt -qq -y install $_");
|
|
}
|
|
}
|