#!/usr/bin/perl -w

# Script to be used as pbscript to create a potentialy 
# missing pb account on the QEMU VM, and adds it to sudo

# Needs to be extented with the pb Distribution.pm module at the end externally
# 
# Needs to use root account to connect to the VM

# You need to specify here your local public SSH key used to access
# the pb account in the VM later on

use strict;
use File::Basename;

my $file = "/tmp/pbkey";

open(PBFILE,"> $file") || die "Unable to open $file";
print PBFILE "ssh-dss AAAAB3NzaC1kc3MAAACBAMC06bNLMu8ZBJv3Hi77+fi+GUhtQScIbGKru86C/IP27EjrmYhPVccbu8kpX6SDHIouhpZ00gaefP3zHjLUmPKlXkMNUNjxx5JNLPoHhSIuUvoSTNoh9gsi31abAvzbW+RNer7rvBJO4ytNJRdsuNxBwqjxK04JEmatds+aKTQjAAAAFQDHaNmIuvYZ0RtNBVe+tzTzxxCQmQAAAIA4o89Xob2VBRtQKBjmWVAuTS14qiqnQUPNloaRkM+r2odI+NJDFc+WXOIG9QAPKKt1jvFOBOX9Mu3/xwiDLnAGhxud98FoyHevSpIWUld7rG4j1aww1WxolFWY/iPyAvDDMW3iysCoqQeSOlpRd9Mz/dq6/P/VcizhdGOKyc3JBgAAAIAA1eY+BoneiQ/tQ8j3GYbMTu6U7VzZ2OaoVeQn4NtZmPl+ZeQIj83nFpo99mYCbaBPqnZToERndl+ljp/JX5pamwj6RcLIDCyiB6MXLbQSWj0goegU1htp5aMd3NcyR2Jy8gCnf0QjDr7j23Q+CFGExtRb/nsDmaG5W9D6QSWQ/g== bruno\@victoria\n";
close(PBFILE);
chmod 0644,$file;

$file="/etc/passwd";
open(PBFILE,$file) || die "Unable to open $file";
my $found = 0;
while (<PBFILE>) {
	$found = 1 if (/^pb:/);
}
close(PBFILE);

if ( $found == 0 ) {
	if ( ! -d "/home" ) {
		mkdir "/home";
	}
	system "groupadd pb";
	system "useradd pb -g pb -m -d /home/pb";
}

# For root
mkdir ".ssh",0700;
system 'cp /tmp/pbkey .ssh/authorized_keys';
chmod 0600,".ssh/authorized_keys";

# For pb
chdir "/home/pb";
mkdir ".ssh",0700;
system 'cp /tmp/pbkey .ssh/authorized_keys';
chmod 0600,".ssh/authorized_keys";
system 'chown -R pb:pb .ssh';

# No passwd for pb only keys
$file="/etc/shadow";
open(PBFILE,$file) || die "Unable to open $file";
open(PBOUT,"> $file.new") || die "Unable to open $file.new";
while (<PBFILE>) {
	s/^pb:\!\!:/pb:*:/;
	s/^pb:\!:/pb:*:/;	#SLES 9 e.g.
	print PBOUT $_;
}
close(PBFILE);
close(PBOUT);
rename("$file.new",$file);
chmod 0640,$file;

unlink "/tmp/pbkey";

my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init(); 
print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n";

# Get and install pb
if ( $ddir eq "fedora" ) {
	system "yum clean all";
	system "yum update -y";
	my $arch=`uname -m`;
	my $opt = "";
	chomp($arch);
	if ($arch eq "x86_64") {
		$opt="--exclude=*.i?86";
	}

	#my $topbuilddir=`rpmquery --eval '%{_topdir}' 2> /dev/null`;
	#chomp($topbuilddir);

	if ( $dver <= 4 ) {
		# FC4 - AppConfig unavailable
		system "yum -y $opt install neon newt-devel slang-devel autoconf automake libtool gcc rpm-build wget gcc-c++ docbook-utils-pdf ImageMagick man patch cdrecord mkisofs perl-DateManip ntp sudo ; rm -rf AppConfig-* ; rm -rf AppConfig* ; wget http://search.cpan.org/CPAN/authors/id/A/AB/ABW/AppConfig-1.66.tar.gz ; tar xvfz AppConfig-1.66.tar.gz ; cd AppConfig* ; perl Makefile.PL ; make ; make install ; cd ..";
	} else {
		# FC5/6/7
		system "yum -y $opt install neon newt-devel slang-devel autoconf automake libtool gcc rpm-build wget gcc-c++ docbook-utils-pdf ImageMagick man patch cdrecord mkisofs ntp sudo perl-AppConfig perl-DateManip";
	}
} elsif (( $dfam eq "rh" ) || ($ddir eq "sles") || (($ddir eq "suse") && (($dver eq "10.1") || ($dver eq "10.0"))) || (($ddir eq "mandrake") && ($dver eq "10.1"))) {
	# Suppose pkg are installed already
	system "rpm -e lsb 2>&1 > /dev/null";
	system "rm -rf AppConfig-* ; wget http://search.cpan.org/CPAN/authors/id/A/AB/ABW/AppConfig-1.66.tar.gz ; tar xvfz AppConfig-1.66.tar.gz ; cd AppConfig* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf DateManip* ; wget http://search.cpan.org/CPAN/authors/id/S/SB/SBECK/Date-Manip-5.46.tar.gz ; tar xvfz Date-Manip-5.46.tar.gz ; cd Date-Manip* ; perl Makefile.PL ; make ; make install ; cd .. ";
} elsif ($ddir eq "suse") { 
	# New OpenSuSE
	system "export TERM=linux ; liste=\"\" ; for i in neon newt-devel slang-devel autoconf automake libtool make gcc wget gcc-c++ docbook-utils ImageMagick man patch mkisofs sudo perl-DateManip perl-AppConfig perl-File-HomeDir xntp; do rpm -q \$i 1> /dev/null 2> /dev/null ; if [ \$\? != 0 ]; then liste=\"\$liste \$i\"; fi; done; echo \"Liste: \$liste\" ; if [ \"\$liste\" != \"\" ]; then yast2 -i \$liste ; fi";
} elsif ( $dfam eq "md" ) {
	if (( $dver eq "2006.0" ) || ( $dver eq "10.2" )) {
		# mondo not available
		system "urpmi.update -a ; urpmi --auto neon newt-devel slang-devel glibc-static-devel autoconf automake libtool gcc rpm-build wget gcc-c++ docbook-utils-pdf ImageMagick sudo man patch mkisofs cdrecord ntp-client perl-AppConfig perl-DateManip";
	} else {
		system "urpmi.update -a ; urpmi --auto neon newt-devel slang-devel glibc-static-devel autoconf automake libtool gcc rpm-build wget gcc-c++ sudo docbook-utils-pdf ImageMagick man patch mondo mkisofs cdrecord ntp-client perl-AppConfig perl-DateManip";
	}
} elsif ( $dfam eq "du" ) {
	if (( $dver eq "3.1" ) && ($ddir eq "debian")) {
		system "apt-get update; apt-get -y install autoconf automake libtool g++ wget patch mondo groff imagemagick docbook-utils docbook2x docbook-to-man ssh dpkg-dev sudo debian-builder dh-make fakeroot libnewt-dev ntpdate libncurses5-dev libdate-manip-perl libappconfig-perl";
	} else {
		system "apt-get update; apt-get -y install autoconf automake libtool g++ wget patch mondo groff imagemagick docbook-utils docbook2x docbook-to-man openssh-server dpkg-dev sudo debian-builder dh-make fakeroot libnewt-dev ntpdate libncurses5-dev libdate-manip-perl libappconfig-perl";
	}
} elsif ( $dfam eq "gen" ) {
		#system "emerge -u system ; emerge neon newt slang autoconf automake subversion libtool gcc wget vim man groff lynx grub afio buffer sudo ntp AppConfig DateManip";
} else {
	print "No pkg to install\n";
}

# Adapt sudoers
$file="/etc/sudoers";
open(PBFILE,$file) || die "Unable to open $file";
open(PBOUT,"> $file.new") || die "Unable to open $file.new";
while (<PBFILE>) {
	next if (/^pb   /);
	s/Defaults[ \t]+requiretty//;
	print PBOUT $_;
}
close(PBFILE);
print PBOUT "pb   ALL=(ALL) NOPASSWD:ALL\n";
close(PBOUT);
rename("$file.new",$file);
chmod 0440,$file;

# Suse wants sudoers as 640
if (($ddir eq "sles") || ($ddir eq "suse")) {
	chmod 0640,$file;
}

# Sync date
system "/usr/sbin/ntpdate ntp.home.musique-ancienne.org";

# Patch AppConfig 
my $module=`find /usr/*/perl5 -type f -name File.pm | grep AppConfig/File.pm`;
chomp($module);
$found = 0;
open(PBFILE,$module) || die "Unable to open $module";
while (<PBFILE>) {
	$found = 1 if (/Fix a bug if the variable is a hash/);
}
close(PBFILE);

if ( $found == 0 ) {
	chdir basename($module);
	open(PBFILE,$module) || die "Unable to open $module";
	my $module1 = $module."new";
	open(PBOUT," > $module1") || die "Unable to open $module1";
	while (<PBFILE>) {
			s/^use AppConfig;/use AppConfig qw(:argcount);/;
			if (/# variables prefixed '-' are reset to their default values/) {
print PBOUT << 'EOF';
                 # Fix a bug if the variable is a hash - 1 has been created as a key
                 if ($nargs eq AppConfig::ARGCOUNT_HASH) {
                     delete $state->{ VARIABLE }->{ $variable }{1};
                 }

EOF
			}
			print PBOUT "$_";
	}
	close(PBFILE);
	close(PBOUT);
	rename($module1,$module);
}

system "rm -rf project-builder-* ; wget --passive-ftp ftp://ftp.mondorescue.org/src/project-builder-latest.tar.gz ; tar xvfz project-builder-latest.tar.gz ; cd project-builder-* ; perl Makefile.PL ; make ; make install ; cd ..";