/[vz-tools]/trunk/vz-create.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/vz-create.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 40 by dpavlin, Fri Feb 8 23:02:25 2008 UTC revision 45 by dpavlin, Wed Mar 12 00:43:49 2008 UTC
# Line 8  use IO::Prompt; Line 8  use IO::Prompt;
8  use Regexp::Common qw/net/;  use Regexp::Common qw/net/;
9  use lib 'lib';  use lib 'lib';
10  use VZ;  use VZ;
11    use Getopt::Long;
12    
13  # default debian distribution  # default debian distribution
14  my $dist = 'etch';  my $dist = 'etch';
# Line 15  my $dist = 'etch'; Line 16  my $dist = 'etch';
16  my $debian_mirror_uri = 'http://www.debian.org/debian';  my $debian_mirror_uri = 'http://www.debian.org/debian';
17  my $arh = 'i386';  my $arh = 'i386';
18  # split physicial machine in how meny virtual ones?  # split physicial machine in how meny virtual ones?
19  my $ve_total = 4;  my $split = 4;
20  # swap size (Mb)  # swap size (Mb)
21  my $swap_size = 512;  my $swap_size = 512;
22  # diskspace  # diskspace
23  my $diskspace = '2G:4G';  my $diskspace = '2G:4G';
24    
25  $dist = 'testing';  $dist = 'lenny';
26  $arh = 'amd64';  $arh = 'amd64';
27    
28    GetOptions(
29            'dist=s'        => \$dist,
30            'arh=s'         => \$arh,
31            'mirror=s'      => \$debian_mirror_uri,
32            'split=i'       => \$split,
33    );
34    
35  check_root;  check_root;
36    
37  my $config_file = $0;  my $config_file = $0;
# Line 54  foreach my $arg ( @ARGV ) { Line 62  foreach my $arg ( @ARGV ) {
62                          $hostname = $arg;                          $hostname = $arg;
63                  }                  }
64          }          }
65    
66  }  }
67    
68    # nuke arguments so that prompt doesn't get confused
69    @ARGV = ();
70    
71  $ip ||= prompt('Enter IP: ', -require => {  $ip ||= prompt('Enter IP: ', -require => {
72          'Must be IP (e.g. 192.168.0.1): ' => qr/$RE{net}{IPv4}/,          'Must be IP (e.g. 192.168.0.1): ' => qr/$RE{net}{IPv4}/,
73  }) unless ($ip =~ /$RE{net}{IPv4}/);  }) unless ($ip =~ /$RE{net}{IPv4}/);
# Line 90  warn ">> creating configuration file $co Line 102  warn ">> creating configuration file $co
102  if (-e $conf_path) {  if (-e $conf_path) {
103          warn "$conf_path allready exists, not touching it\n";          warn "$conf_path allready exists, not touching it\n";
104  } else {  } else {
105          vzsplit('-n', $ve_total, '-s', $swap_size * 1024, '>', $conf_path);          vzsplit('-n', $split, '-s', $swap_size * 1024, '>', $conf_path);
106    
107          die "configuration file not created" unless -e $conf_path;          die "configuration file not created" unless -e $conf_path;
108    
# Line 121  create_file( Line 133  create_file(
133    
134  vzctl('start', $ve_id);  vzctl('start', $ve_id);
135    
136  my $customize_sh = <<'__END_OF_SH__';  runscript( $ve_id, 'custom/00-all.sh' );
   
 # use shadow passwords  
 pwconv  
   
 # upgrade to lastest version  
 apt-get -y update  
 apt-get -y upgrade  
   
 # install additional packages  
 apt-get -y --force-yes install vim less ssh sudo screen telnet finger  
   
 # remove unwanted packages  
 apt-get -y remove nano  
   
 # apt-iselect helper  
 wget -t 1 -T 5 -O /usr/local/bin/apt-iselect http://www.rot13.org/~dpavlin/projects/scripts/apt-iselect  
 chmod 755 /usr/local/bin/apt-iselect  
   
 # lock root user  
 usermod -L root  
   
 # disable getty  
 sed -i -e '/getty/d' /etc/inittab  
   
 # sane permissions for /root directory  
 chmod 700 /root  
   
 # disable sync() for syslog  
 sed -i -e 's@\([[:space:]]\)\(/var/log/\)@\1-\2@' /etc/syslog.conf  
   
 # fix /etc/mtab  
 rm -f /etc/mtab  
 ln -s /proc/mounts /etc/mtab  
   
 # remove unneeded packages  
 dpkg --purge modutils  
 dpkg --purge ppp pppoeconf pppoe pppconfig  
   
 # disable services  
 update-rc.d -f klogd remove  
 update-rc.d -f quotarpc remove  
 update-rc.d -f exim4 remove  
 update-rc.d -f inetd remove  
   
 # clean packages  
 apt-get clean  
   
 __END_OF_SH__  
   
 foreach my $l (split(/\n/, $customize_sh)) {  
         next if ($l =~ /^\s*$/);  
         if ($l =~ /^#\s+(.+)$/) {  
                 warn ">> $1\n";  
         } else {  
                 vzctl('exec', $ve_id, $l);  
         }  
 }  
137    
138  #vzctl('stop', $ve_id);  #vzctl('stop', $ve_id);
139    
140  my $passwd = prompt('root passwd: ', -echo=>'*');  my $passwd = prompt( -prompt => 'root passwd: ', -echo=>'*' );
141  vzctl('set', $ve_id, '--userpasswd', 'root:' . $passwd ) if ($passwd);  vzctl('set', $ve_id, '--userpasswd', 'root:' . $passwd ) if $passwd;
142    
143  my $login = prompt('create login: ');  my $login = prompt('create login: ');
144  if ($login) {  if ($login) {
145          $passwd = prompt("$login passwd: ", -echo=>'*');          $passwd = prompt( -prompt => "$login passwd: ", -echo=>'*');
146          vzctl('exec', $ve_id, "useradd --create-home $login");          vzctl('exec', $ve_id, "useradd --create-home $login");
147          vzctl('set', $ve_id, '--userpasswd', "$login:$passwd" );          vzctl('set', $ve_id, '--userpasswd', "$login:$passwd" );
148  }  }
149    
150    runscript( $ve_id, 'custom/50-hypertable.sh' );
151  print "OK: $ve_id created\n";  print "OK: $ve_id created\n";
Legend:
Removed from v.40  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26