I'm trying to get the KAM_Setfields call to work in AFSPerl... So far, no luck. Most of the other fuction calls have example code, or at least a 'usage' type statement in the pod files, but KAM_Setfields doesn't. I figured out the syntax and thought the following code should work. The perl call comes back with a 0 status, and no printed errors, but nothing happens... not even the 'mod time' of the kas entry gets updated. kas creates with AFSPerl work fine. Anyone have any advice? Thanks in advance Jason Sonnenschein ANS Communications $flags=1;#normal (1=normal,4=admin) $expire=988515984; $maxassoc=-1; $lifetime=24*60*60;#24 hrs $pwexpire=0;#infinite $pw_reuse=1;#allowed $nfail=20; $locktime=0;#infinite $pwexpire++; $nfail++; $locktime++; $packed= (($pwexpire << 24) | ($pw_reuse << 16) | ($nfail << 8) | $locktime ); $ok = $kas -> KAM_SetFields ($login,'',$flags,$expire,$lifetime,$maxassoc,$packed,0); print "status: $ok\n";
