Michael Wesemann
35 lines
840 B
Perl
Executable File
35 lines
840 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
&ai('tcsh','joe','libterm-readpassword-perl','libterm-readline-perl-perl','resolvconf');
|
|
|
|
system("/usr/bin/chsh -s /usr/bin/tcsh root");
|
|
|
|
system("mkdir /db");
|
|
system("mkdir /db/bin");
|
|
system("mkdir /db/tmp");
|
|
system("chmod 777 /db/tmp");
|
|
|
|
system("cp ./files/joerc4 /etc/joe/joerc");
|
|
system("cp ./files/csh.cshrc /etc");
|
|
system("cp ./files/dx /db/bin");
|
|
system("cp ./files/gx /db/bin");
|
|
system("cp ./files/gy /db/bin");
|
|
system("cp ./restic/restic_0.9.5_linux_arm /db/bin/restic");
|
|
|
|
system("rm /etc/motd");
|
|
|
|
system("mkdir /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-get update");
|
|
system("/usr/bin/apt-get upgrade");
|
|
|
|
sub ai {
|
|
my @pkgs=@_;
|
|
for (@pkgs) {
|
|
system("/usr/bin/apt-get -y install $_");
|
|
}
|
|
}
|