[164] | 1 | #!/usr/bin/perl -w
|
---|
[153] | 2 |
|
---|
| 3 | # Script to be used as pbscript to create a potentialy
|
---|
| 4 | # missing pb account on the QEMU VM, and adds it to sudo
|
---|
[166] | 5 |
|
---|
| 6 | # Needs to be extented with the pb Distribution.pm module at the end externally
|
---|
[153] | 7 | #
|
---|
[163] | 8 | # Needs to use root account to connect to the VM
|
---|
[153] | 9 |
|
---|
| 10 | # You need to specify here your local public SSH key used to access
|
---|
| 11 | # the pb account in the VM later on
|
---|
| 12 |
|
---|
[164] | 13 | use strict;
|
---|
| 14 | use File::Basename;
|
---|
[153] | 15 |
|
---|
[164] | 16 | my $file = "/tmp/pbkey";
|
---|
[153] | 17 |
|
---|
[164] | 18 | open(PBFILE,"> $file") || die "Unable to open $file";
|
---|
| 19 | 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";
|
---|
| 20 | close(PBFILE);
|
---|
| 21 | chmod 0644,$file;
|
---|
| 22 |
|
---|
| 23 | $file="/etc/passwd";
|
---|
| 24 | open(PBFILE,$file) || die "Unable to open $file";
|
---|
| 25 | my $found = 0;
|
---|
| 26 | while (<PBFILE>) {
|
---|
| 27 | $found = 1 if (/^pb:/);
|
---|
| 28 | }
|
---|
| 29 | close(PBFILE);
|
---|
| 30 |
|
---|
| 31 | if ( $found == 0 ) {
|
---|
| 32 | if ( ! -d "/home" ) {
|
---|
| 33 | mkdir "/home";
|
---|
| 34 | }
|
---|
[176] | 35 | system "groupadd pb";
|
---|
[179] | 36 | system "useradd pb -g pb -m -d /home/pb";
|
---|
[164] | 37 | }
|
---|
| 38 |
|
---|
[171] | 39 | chdir "/home/pb";
|
---|
| 40 | mkdir ".ssh",0700;
|
---|
| 41 | system 'cp /tmp/pbkey .ssh/authorized_keys';
|
---|
| 42 | chmod 0600,".ssh/authorized_keys";
|
---|
| 43 | system 'chown -R pb:pb .ssh';
|
---|
| 44 |
|
---|
[153] | 45 | # No passwd for pb only keys
|
---|
[164] | 46 | $file="/etc/shadow";
|
---|
| 47 | open(PBFILE,$file) || die "Unable to open $file";
|
---|
[166] | 48 | open(PBOUT,"> $file.new") || die "Unable to open $file.new";
|
---|
[164] | 49 | while (<PBFILE>) {
|
---|
| 50 | s/^pb:\!\!:/pb:*:/;
|
---|
[186] | 51 | s/^pb:\!:/pb:*:/; #SLES 9 e.g.
|
---|
[166] | 52 | print PBOUT $_;
|
---|
[164] | 53 | }
|
---|
| 54 | close(PBFILE);
|
---|
[166] | 55 | close(PBOUT);
|
---|
| 56 | rename("$file.new",$file);
|
---|
[167] | 57 | chmod 0640,$file;
|
---|
[164] | 58 |
|
---|
[153] | 59 | # Adapt sudoers
|
---|
[164] | 60 | $file="/etc/sudoers";
|
---|
| 61 | $found = 0;
|
---|
| 62 | open(PBFILE,$file) || die "Unable to open $file";
|
---|
[166] | 63 | open(PBOUT,"> $file.new") || die "Unable to open $file.new";
|
---|
[164] | 64 | while (<PBFILE>) {
|
---|
| 65 | $found = 1 if (/^pb /);
|
---|
[166] | 66 | s/Defaults[ \t]+requiretty//;
|
---|
| 67 | print PBOUT $_;
|
---|
[164] | 68 | }
|
---|
| 69 | close(PBFILE);
|
---|
[169] | 70 | print PBOUT "pb ALL=(ALL) NOPASSWD:ALL\n" if ( $found == 0 );
|
---|
[166] | 71 | close(PBOUT);
|
---|
| 72 | rename("$file.new",$file);
|
---|
[167] | 73 | chmod 0440,$file;
|
---|
[153] | 74 |
|
---|
[164] | 75 | unlink "/tmp/pbkey";
|
---|
| 76 |
|
---|
| 77 | my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init();
|
---|
[176] | 78 | print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n";
|
---|
[164] | 79 |
|
---|
[158] | 80 | # Get and install pb
|
---|
[164] | 81 | if ( $ddir eq "fedora" ) {
|
---|
| 82 | system "yum clean all";
|
---|
[169] | 83 | system "yum update -y";
|
---|
| 84 | my $arch=`uname -m`;
|
---|
| 85 | my $opt = "";
|
---|
| 86 | chomp($arch);
|
---|
| 87 | if ($arch eq "x86_64") {
|
---|
| 88 | $opt="--exclude=*.i?86";
|
---|
| 89 | }
|
---|
[171] | 90 |
|
---|
| 91 | my $topbuilddir=`rpmquery --eval '%{_topdir}' 2> /dev/null`;
|
---|
| 92 | chomp($topbuilddir);
|
---|
| 93 |
|
---|
| 94 | my $p = `rpm -q afio`;
|
---|
| 95 | chomp($p);
|
---|
| 96 | if ($p !~ /^afio/) {
|
---|
| 97 | system "rm -f afio-* ; wget ftp://ftp.mondorescue.org/src/afio-2.4.7-1.src.rpm ; rpm -ivh afio-2.4.7-1.src.rpm ; rpmbuild -ba $topbuilddir/SPECS/afio.spec ; chmod 644 $topbuilddir/RPMS/*/*.rpm";
|
---|
| 98 | }
|
---|
| 99 | $p = `rpm -q buffer`;
|
---|
| 100 | chomp($p);
|
---|
| 101 | if ($p !~ /^buffer/) {
|
---|
| 102 | system "rm -f buffer-* ; wget ftp://ftp.mondorescue.org/src/buffer-1.19-1.src.rpm ; rpm -ivh buffer-1.19-1.src.rpm ; rpmbuild -ba $topbuilddir/SPECS/buffer.spec ; chmod 644 $topbuilddir/RPMS/*/*.rpm";
|
---|
| 103 | }
|
---|
[164] | 104 | if ( $dver <= 4 ) {
|
---|
[171] | 105 | # FC4 - AppConfig unavailable
|
---|
[169] | 106 | 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 ; 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 ..";
|
---|
[164] | 107 | } else {
|
---|
| 108 | # FC5/6/7
|
---|
[169] | 109 | 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 perl-AppConfig perl-DateManip";
|
---|
[164] | 110 | }
|
---|
[181] | 111 | } elsif (($ddir eq "suse") && (($dver eq "10.2") || ($dver eq "10.3"))) {
|
---|
| 112 | system "yast2 -i neon newt-devel slang-devel autoconf automake libtool gcc rpm-build wget gcc-c++ docbook-utils-pdf ImageMagick man patch cdrecord mkisofs ntp perl-AppConfig perl-DateManip";
|
---|
| 113 | } 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"))) {
|
---|
[175] | 114 | # Suppose pkg are installed already
|
---|
| 115 | 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 .. ";
|
---|
[164] | 116 | } elsif ( $dfam eq "md" ) {
|
---|
[175] | 117 | if (( $dver eq "2006.0" ) || ( $dver eq "10.2" )) {
|
---|
[171] | 118 | # mondo not available
|
---|
| 119 | 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 man patch mkisofs cdrecord ntp-client perl-AppConfig perl-DateManip";
|
---|
| 120 | } else {
|
---|
| 121 | 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 man patch mondo mkisofs cdrecord ntp-client perl-AppConfig perl-DateManip";
|
---|
| 122 | }
|
---|
[164] | 123 | } elsif ( $dfam eq "du" ) {
|
---|
[166] | 124 | system "apt-get install autoconf automake libtool g++ wget patch mondo groff imagemagick docbook-utils docbook2x docbook-to-man openssh-server dpkg-dev debian-builder dh-make fakeroot libnewt-dev ntp-client libncurses5-dev";
|
---|
[164] | 125 | } elsif ( $dfam eq "gen" ) {
|
---|
[166] | 126 | system "emerge neon newt slang autoconf automake subversion libtool gcc wget vim man groff lynx grub afio buffer mindi mondo-rescue cdrecord mkisofs ntp-client";
|
---|
[164] | 127 | } else {
|
---|
| 128 | print "No pkg to install\n";
|
---|
| 129 | }
|
---|
[158] | 130 |
|
---|
[171] | 131 | # Sync date
|
---|
| 132 | system "/usr/sbin/ntpdate ntp.home.musique-ancienne.org";
|
---|
| 133 |
|
---|
[158] | 134 | # Patch AppConfig
|
---|
[164] | 135 | my $module=`find /usr/lib/perl5 -type f -name File.pm | grep AppConfig/File.pm`;
|
---|
| 136 | chomp($module);
|
---|
| 137 | $found = 0;
|
---|
| 138 | open(PBFILE,$module) || die "Unable to open $module";
|
---|
| 139 | while (<PBFILE>) {
|
---|
| 140 | $found = 1 if (/Fix a bug if the variable is a hash/);
|
---|
| 141 | }
|
---|
| 142 | close(PBFILE);
|
---|
[158] | 143 |
|
---|
[164] | 144 | if ( $found == 0 ) {
|
---|
| 145 | chdir basename($module);
|
---|
| 146 | open(PBFILE,$module) || die "Unable to open $module";
|
---|
| 147 | my $module1 = $module."new";
|
---|
| 148 | open(PBOUT," > $module1") || die "Unable to open $module1";
|
---|
| 149 | while (<PBFILE>) {
|
---|
| 150 | s/^use AppConfig;/use AppConfig qw(:argcount);/;
|
---|
| 151 | if (/# variables prefixed '-' are reset to their default values/) {
|
---|
| 152 | print PBOUT << 'EOF';
|
---|
| 153 | # Fix a bug if the variable is a hash - 1 has been created as a key
|
---|
| 154 | if ($nargs eq AppConfig::ARGCOUNT_HASH) {
|
---|
| 155 | delete $state->{ VARIABLE }->{ $variable }{1};
|
---|
| 156 | }
|
---|
| 157 |
|
---|
| 158 | EOF
|
---|
| 159 | }
|
---|
| 160 | print PBOUT "$_";
|
---|
| 161 | }
|
---|
| 162 | close(PBFILE);
|
---|
| 163 | close(PBOUT);
|
---|
| 164 | rename($module1,$module);
|
---|
| 165 | }
|
---|
| 166 |
|
---|
| 167 | system "rm -rf project-builder-* ; wget 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 ..";
|
---|
[166] | 168 |
|
---|