diff options
author | ivan <ivan> | 2000-03-06 14:51:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2000-03-06 14:51:27 +0000 |
commit | 2cc9708011a232237189440f254aea31d4ac2022 (patch) | |
tree | 67a452448d770468647d1bd875a9270d9222c6f2 | |
parent | a19e9126e3bd79719e1bddd7f77381c613a157f4 (diff) |
eek
-rwxr-xr-x | bin/svc_acct.export | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/bin/svc_acct.export b/bin/svc_acct.export index ef3edc2e2..d2f746c0e 100755 --- a/bin/svc_acct.export +++ b/bin/svc_acct.export @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: svc_acct.export,v 1.7 2000-03-06 14:50:15 ivan Exp $ +# $Id: svc_acct.export,v 1.8 2000-03-06 14:51:27 ivan Exp $ # # Create and export password files: passwd, passwd.adjunct, shadow, # acp_passwd, acp_userinfo, acp_dialup, users @@ -38,8 +38,8 @@ # ivan@sisd.com 98-sep-18 # # $Log: svc_acct.export,v $ -# Revision 1.7 2000-03-06 14:50:15 ivan -# oop +# Revision 1.8 2000-03-06 14:51:27 ivan +# eek # # Revision 1.2 1998/12/10 07:23:15 ivan # use FS::Conf, need user (for datasrc) @@ -251,11 +251,11 @@ foreach $svc_acct (@svc_acct) { if ( $icradiusmachines ) { my $sth = $icradius_dbh->prepare( "INSERT INTO radcheck ( id, UserName, Attribute, Value ) VALUES ( ". - join(", ", map { $icradius_dbh->quote( $_ ) } qw ( - $svc_acct->svcnum - $svc_acct->username - "Password" - $svc_acct->_password + join(", ", map { $icradius_dbh->quote( $_ ) } ( + $svc_acct->svcnum, + $svc_acct->username, + "Password", + $svc_acct->_password, ) ). " )" ); $sth->execute or die "Can't insert into radcheck table: ". $sth->errstr; |