#!/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 $_");
	}
}