source: devel/pb/contrib/pbsetupqemu @ 179

Last change on this file since 179 was 179, checked in by Bruno Cornec, 13 years ago

Fix a bug for launchvm where -P option wasn't taken in account

  • Property svn:executable set to *
File size: 6.7 KB
Line 
1#!/usr/bin/perl -w
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
5
6# Needs to be extented with the pb Distribution.pm module at the end externally
7#
8# Needs to use root account to connect to the VM
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
13use strict;
14use File::Basename;
15
16my $file = "/tmp/pbkey";
17
18open(PBFILE,"> $file") || die "Unable to open $file";
19print 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";
20close(PBFILE);
21chmod 0644,$file;
22
23    system "userdel pb";
24$file="/etc/passwd";
25open(PBFILE,$file) || die "Unable to open $file";
26my $found = 0;
27while (<PBFILE>) {
28    $found = 1 if (/^pb:/);
29}
30close(PBFILE);
31
32if ( $found == 0 ) {
33    if ( ! -d "/home" ) {
34        mkdir "/home";
35    }
36    system "groupadd pb";
37    system "useradd pb -g pb -m -d /home/pb";
38}
39
40chdir "/home/pb";
41mkdir ".ssh",0700;
42system 'cp /tmp/pbkey .ssh/authorized_keys';
43chmod 0600,".ssh/authorized_keys";
44system 'chown -R pb:pb .ssh';
45
46# No passwd for pb only keys
47$file="/etc/shadow";
48open(PBFILE,$file) || die "Unable to open $file";
49open(PBOUT,"> $file.new") || die "Unable to open $file.new";
50while (<PBFILE>) {
51    s/^pb:\!\!:/pb:*:/;
52    print PBOUT $_;
53}
54close(PBFILE);
55close(PBOUT);
56rename("$file.new",$file);
57chmod 0640,$file;
58
59# Adapt sudoers
60$file="/etc/sudoers";
61$found = 0;
62open(PBFILE,$file) || die "Unable to open $file";
63open(PBOUT,"> $file.new") || die "Unable to open $file.new";
64while (<PBFILE>) {
65    $found = 1 if (/^pb   /);
66    s/Defaults[ \t]+requiretty//;
67    print PBOUT $_;
68}
69close(PBFILE);
70print PBOUT "pb   ALL=(ALL) NOPASSWD:ALL\n" if ( $found == 0 );
71close(PBOUT);
72rename("$file.new",$file);
73chmod 0440,$file;
74
75unlink "/tmp/pbkey";
76
77my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init(); 
78print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n";
79
80# Get and install pb
81if ( $ddir eq "fedora" ) {
82    system "yum clean all";
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    }
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    }
104    if ( $dver <= 4 ) {
105        # FC4 - AppConfig unavailable
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 ..";
107    } else {
108        # FC5/6/7
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";
110    }
111} elsif (( $dfam eq "rh" ) || ($ddir eq "sles") || (($ddir eq "suse") && (($dver eq "10.1") || ($dver eq "10.2") || ($dver eq "10.0"))) || (($ddir eq "mandrake") && ($dver eq "10.1"))) {
112    # Suppose pkg are installed already
113    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 .. ";
114} elsif ( $dfam eq "md" ) {
115    if (( $dver eq "2006.0" ) || ( $dver eq "10.2" )) {
116        # mondo not available
117        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";
118    } else {
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 mondo mkisofs cdrecord ntp-client perl-AppConfig perl-DateManip";
120    }
121} elsif ( $dfam eq "du" ) {
122    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";
123} elsif ( $dfam eq "gen" ) {
124    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";
125} else {
126    print "No pkg to install\n";
127}
128
129# Sync date
130system "/usr/sbin/ntpdate ntp.home.musique-ancienne.org";
131
132# Patch AppConfig
133my $module=`find /usr/lib/perl5 -type f -name File.pm | grep AppConfig/File.pm`;
134chomp($module);
135$found = 0;
136open(PBFILE,$module) || die "Unable to open $module";
137while (<PBFILE>) {
138    $found = 1 if (/Fix a bug if the variable is a hash/);
139}
140close(PBFILE);
141
142if ( $found == 0 ) {
143    chdir basename($module);
144    open(PBFILE,$module) || die "Unable to open $module";
145    my $module1 = $module."new";
146    open(PBOUT," > $module1") || die "Unable to open $module1";
147    while (<PBFILE>) {
148            s/^use AppConfig;/use AppConfig qw(:argcount);/;
149            if (/# variables prefixed '-' are reset to their default values/) {
150print PBOUT << 'EOF';
151                 # Fix a bug if the variable is a hash - 1 has been created as a key
152                 if ($nargs eq AppConfig::ARGCOUNT_HASH) {
153                     delete $state->{ VARIABLE }->{ $variable }{1};
154                 }
155
156EOF
157            }
158            print PBOUT "$_";
159    }
160    close(PBFILE);
161    close(PBOUT);
162    rename($module1,$module);
163}
164
165system "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
Note: See TracBrowser for help on using the repository browser.