Navigation

Changeset 19 for trunk/scripts

Timestamp:

12/09/07 22:39:01 (1 year ago)

Author:

bkuhn

Message:

# formatting changes

Files:

r17	r19
39	39	}
40	40
41		print "New password: ";
42		ReadMode 'noecho';
43		my $password = ReadLine(0);
44		chomp $password;
45		print "\n";
46		ReadMode 'normal';
47		print "Re-enter new password: ";
48		ReadMode 'noecho';
49		my $second = ReadLine(0);
50		chomp $second;
51		ReadMode 'normal';
52		print "\n";
53		if ($password ne $second) {
54		print "\nPasswords do not match. Aborting.\n";
55		exit 1;
56		}
57
	41	print "New password: ";
	42	ReadMode 'noecho';
	43	my $password = ReadLine(0);
	44	chomp $password;
	45	print "\n";
	46	ReadMode 'normal';
	47	print "Re-enter new password: ";
	48	ReadMode 'noecho';
	49	my $second = ReadLine(0);
	50	chomp $second;
	51	ReadMode 'normal';
	52	print "\n";
	53	if ($password ne $second) {
	54	print "\nPasswords do not match. Aborting.\n";
	55	exit 1;
	56	}
58	57	print GenerateLDAPPassword($password), "\n";