Using Perl to clear policy

[Digant C Kasundra]

Does anyone have a code snippet on how to use Perl to clear someone's
policy?  I'm using Authen::Krb5::Admin and I'm trying the following to
no avail:

my $krb5_princ = Authen::Krb5::parse_name( $principal )
        or 
        dienice( $eventid, $ERROR_TAG, 
                "kadmin_reset_password: (parse_name)" . Authen::Krb5::error );

my $kadm5_princ = $kadm5->get_principal( $krb5_princ )
        or
        dienice( $eventid, $ERROR_TAG, 
                "kadmin_reset_password: (get_princ)" . Authen::Krb5::error );

$kadm5_princ->policy_clear()
        or dienice( $eventid, $ERROR_TAG, 
                "kadmin_reset_password: (policy none)"
            . Authen::Krb5::Admin::error );

$kadm5->modify_principal($kadm5_princ)
        or dienice( $eventid, $ERROR_TAG, 
                "kadmin_reset_password: (modify_principal)"
            . Authen::Krb5::Admin::error );

I also tried $kadm5_princ->policy_clear, and  $kadm5_princ->policy("");

________________________________________________
Kerberos mailing list           [EMAIL PROTECTED]
https://mailman.mit.edu/mailman/listinfo/kerberos