/[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 39 by dpavlin, Fri Feb 8 21:45:37 2008 UTC revision 40 by dpavlin, Fri Feb 8 23:02:25 2008 UTC
# Line 44  foreach my $arg ( @ARGV ) { Line 44  foreach my $arg ( @ARGV ) {
44    
45          if ($arg =~ m/$RE{net}{IPv4}/) {          if ($arg =~ m/$RE{net}{IPv4}/) {
46                  $ip = $arg;                  $ip = $arg;
47                  if ( my $h = hostname2ip($arg) ) {                  if ( my $h = ip2hostname($ip) ) {
48                          $hostname = $h;                          $hostname = $h;
49                  }                  }
50          } elsif ($arg) {          } elsif ($arg) {
# Line 66  my @ip_split = split(/\./,$ip); Line 66  my @ip_split = split(/\./,$ip);
66    
67  my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]);  my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]);
68    
 my $vz_root = '/vz';  
   
 die "need to know vz_root, and $vz_root doesn't exist: $!\n" unless (-e $vz_root);  
   
69  print "VEID: $ve_id hostname: $hostname ip: $ip\n";  print "VEID: $ve_id hostname: $hostname ip: $ip\n";
70    
71  warn ">> creating directories\n";  warn ">> creating directories\n";
# Line 88  if (! -e "$vz_root/private/$ve_id/etc/de Line 84  if (! -e "$vz_root/private/$ve_id/etc/de
84          warn "Debian allready installed in $vz_root/private/$ve_id\n";          warn "Debian allready installed in $vz_root/private/$ve_id\n";
85  }  }
86    
87  sub vzctl {  my $conf_path = "$vz_conf/${ve_id}.conf";
         my @args = @_;  
         warn "## vzctl ", join(" ",@args), "\n";  
         system "vzctl", @args;  
 }  
   
 my $conf_path = "/etc/vz/conf/${ve_id}.conf";  
88  warn ">> creating configuration file $conf_path\n";  warn ">> creating configuration file $conf_path\n";
89    
90  if (-e $conf_path) {  if (-e $conf_path) {
# Line 201  if ($login) { Line 191  if ($login) {
191          vzctl('exec', $ve_id, "useradd --create-home $login");          vzctl('exec', $ve_id, "useradd --create-home $login");
192          vzctl('set', $ve_id, '--userpasswd', "$login:$passwd" );          vzctl('set', $ve_id, '--userpasswd', "$login:$passwd" );
193  }  }
194    
195    print "OK: $ve_id created\n";

Legend:
Removed from v.39  
changed lines
  Added in v.40

  ViewVC Help
Powered by ViewVC 1.1.26