--- trunk/vz-create.pl	2007/01/07 12:54:14	7
+++ trunk/vz-create.pl	2007/12/13 23:50:47	35
@@ -10,28 +10,40 @@
 # default debian distribution
 my $dist = 'etch';
 # debian mirror to use
-my $debian_mirror_uri = 'http://debian.carnet.hr/debian';
+my $debian_mirror_uri = 'http://www.debian.org/debian';
 # split physicial machine in how meny virtual ones?
-my $ve_total = 2;
+my $ve_total = 4;
 # swap size (Mb)
 my $swap_size = 512;
+# diskspace
+my $diskspace = '2G:4G';
+
+my $config_file = $0;
+$config_file =~ s!-create.pl!-tools.conf!;
+warn "## $config_file\n";
+if (-e $config_file) {
+	open(my $fh, '<', $config_file) || die "can't open $config_file: $!";
+	eval join("\n", <$fh>);
+	close($fh);
+	die "Error in $config_file: $@" if ($@);
+}
 
 print "Creating new OpenVZ instance...\n";
 
-my $arg = shift @ARGV;
+my $arg = shift @ARGV || '';
 
-my ($hostname, $ip);
+my ($hostname, $ip) = ('localhost','');
 
 if ($arg =~ m/$RE{net}{IPv4}/) {
 	$ip = $arg;
 	chomp($hostname);
 	$hostname = host($arg);
 	$hostname =~ s/^.*\s(\S+)$/$1/;
-} else {
+} elsif ($arg) {
 	$hostname = $arg;
 	$ip = host($arg);
 	chomp($ip);
-	$ip =~ s/^.*\s(\S+)$/$1/;
+	$ip =~ s/^.*?$RE{net}{IPv4}{-keep}.*$/$1/s;
 }
 
 $ip ||= prompt('Enter IP: ', -require => {
@@ -42,7 +54,7 @@
 
 my @ip_split = split(/\./,$ip);
 
-my $ve_id = sprintf('%03d%03d', $ip_split[2], $ip_split[3]);
+my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]);
 
 my $vz_root = '/vz';
 
@@ -54,7 +66,7 @@
 
 mkdir('-p', "$vz_root/root/$ve_id", "$vz_root/private/$ve_id");
 
-warn ">> installing debian\n";
+warn ">> installing debian $dist from $debian_mirror_uri\n";
 
 if (! -e "$vz_root/private/$ve_id/etc/debian_version") {
 
@@ -84,9 +96,10 @@
 	print $tmp "OSTEMPLATE=debian-3.1\n";
 	close($tmp);
 
-	vzctl('set', $ve_id, '--applyconfig', 'vps.basic', '--save');
+#	vzctl('set', $ve_id, '--applyconfig', 'vps.basic', '--save');
 	vzctl('set', $ve_id, '--ipadd', $ip, '--save');
 	vzctl('set', $ve_id, '--hostname', $hostname, '--save');
+	vzctl('set', $ve_id, '--diskspace', $diskspace, '--save');
 }
 
 sub create_file {
@@ -104,7 +117,7 @@
 	"deb $debian_mirror_uri $dist main contrib non-free\n"
 );
 
-vzctl('start', $ve_id, '--wait');
+vzctl('start', $ve_id);
 
 my $customize_sh = <<'__END_OF_SH__';
 
@@ -112,15 +125,19 @@
 pwconv
 
 # upgrade to lastest version
-apt-get update
-apt-get upgrade
+apt-get -y update
+apt-get -y upgrade
 
 # install additional packages
-apt-get -y install vim less ssh sudo screen
+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
 
@@ -163,3 +180,12 @@
 
 #vzctl('stop', $ve_id);
 
+my $passwd = prompt('root passwd: ', -echo=>'*');
+vzctl('set', $ve_id, '--userpasswd', 'root:' . $passwd ) if ($passwd);
+
+my $login = prompt('create login: ');
+if ($login) {
+	$passwd = prompt("$login passwd: ", -echo=>'*');
+	vzctl('exec', $ve_id, "useradd --create-home $login");
+	vzctl('set', $ve_id, '--userpasswd', "$login:$passwd" );
+}