diff options
| author | ivan <ivan> | 1998-10-13 12:07:51 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-10-13 12:07:51 +0000 |
| commit | d4e9b3b0b80a25992fa7194464efa06deb484185 (patch) | |
| tree | f26b41b9335595493d26a808aefb084711abaf59 /bin | |
| parent | 123a59969f1c66c9f923a480badf9634d5349996 (diff) | |
Assigns password from the shadow file for RADIUS password "UNIX"
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/svc_acct.import | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/bin/svc_acct.import b/bin/svc_acct.import index c4b8c5ec5..60deac539 100755 --- a/bin/svc_acct.import +++ b/bin/svc_acct.import @@ -1,5 +1,7 @@ #!/usr/bin/perl -Tw # +# $Id: svc_acct.import,v 1.2 1998-10-13 12:07:51 ivan Exp $ +# # ivan@sisd.com 98-mar-9 # # changed 'password' field to '_password' because PgSQL 6.3 reserves this word @@ -13,6 +15,11 @@ # arbitrary radius attributes ivan@sisd.com 98-aug-9 # # don't import /var/spool/freeside/conf/shells! ivan@sisd.com 98-aug-13 +# +# $Log: svc_acct.import,v $ +# Revision 1.2 1998-10-13 12:07:51 ivan +# Assigns password from the shadow file for RADIUS password "UNIX" +# use strict; use vars qw(%part_svc); @@ -122,6 +129,7 @@ while (<USERS>) { or die "1Unexpected line in users.import: $_"; my($password,$expiration); ($username,$password,$expiration)=(lc($1),$2,$4); + $password = '' if $password eq 'UNIX'; $upassword{$username}=$password; undef %param; } else { |