Change Password

["Frank Nørvig" <sslug@sslug>]

Jeg prøver lige denne newsgroup i stedet for "sslug.sikkerhed", da den nok
er mere relevant for mit problem:

På vores Samba server har vi brug for at synkronisere adgangskoder over
flere servere, og jeg har derfor lavet følgende script:

------------------------------------------------------
#!/usr/bin/perl -w

$bruger = $ARGV[0];

$svar = `/usr/bin/passwd $bruger`;
print "$svar";

$remotesvar = `ssh server2 '/usr/bin/passwd $bruger'`;
print "$remotesvar";

print "New SMB password:";
my $adgangskode = <STDIN>;
chomp($adgangskode);

$remotesvar = `ssh server2 '/opt/samba/bin/smbpasswd $bruger $adgangskode'`;
print "Password changed\n";
------------------------------------------------------

Samtidig har jeg lavet følgende i smb.conf :

------------------------------------------------------
passwd program          = /usr/bin/perl /opt/samba/sbin/chsmbpass.pl %u

passwd chat             = *New*password* %n\n *Retype*new*password* %n\n
*passwd:*all*authentication*tokens*update*successfully* \n *New*password*
%n\n *Retype*new*password* %n\n
*passwd:*all*authentication*tokens*update*successfully* \n
*New*SMB*password* %n\n *Password*changed* \n
------------------------------------------------------

Umiddelbart ser det meste ud til at virke, men på server2 ser det ud til at
passwordet bliver sat til ingenting.
Det virker som om at Samba ikke sender adgangskoden til scriptet!?
Jeg har naturligvis sørget for at man kan SSH'e fra den ene server til den
anden uden at skulle angive adgangskode...

Er det en fejl i mit lille script eller i smb.conf, eller kan slet ikke lade
sig gøre på denne måde?

Jeg har også prøvet at fange $adgangskode i scriptet og skrive det til en
fil, men det er også bare blankt.

Mvh Frank