🚀 go-pugleaf

<me@ieo.ch> ecrivait/schrieb/wrote:
>Hi ...
>
>gibts beim passwd ein parm mit dem ich aus einem script .. z.b. perl das 
>passwort fuer user aendern kann .. man passwd hat nichts gezeigt .. und 
>das normale pw ist ned so gut ... in nem batch muesste ich das pw einfach 
>einmal eingeben koennen und gut ist ...

try something like this :

use Expect;
$Expect::Log_Stdout=0; # On by default.

($chpw = Expect->spawn("/usr/bin/passwd")) || &error("passwd pb 0 ?");
$chpw->expect(10, "ssword:") ||  &error("passwd problem ?\n");
print $chpw $password . "\n";
$chpw->expect(10, "ssword:") ||  &error("passwd problem2 ?\n");
print $chpw $newpass1 . "\n";
$chpw->expect(10, "ssword:") ||  &error("passwd problem3 ?\n");
print $chpw $newpass2 . "\n\n\n";
#$msg = $chpw->exp_before();
$chpw->soft_close();

Kann sicher schoener geschrieben werden, aber bei mir lauft es, also... :)

Olivier


-- 
____________________________________________________________
 ... Please replace "XW*SXD" by "olm" to answer by e-mail...
    --- .-.. .. ...- .. . .-.    -- ..- .-.. .-.. . .-.