diff options
author | ivan <ivan> | 2003-05-30 09:22:53 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-05-30 09:22:53 +0000 |
commit | 0ef12cb47ee609b04f54fb52e448c73ed3869ec1 (patch) | |
tree | bc423908ec355abedd7bf7df0811ed7768f38c3e | |
parent | e58e375c39f08c28239ecc173cc3fbf3f5ca5b92 (diff) |
sqlradius exports include "op" field
-rw-r--r-- | FS/FS/part_export/sqlradius.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index ccf9a76..60450ee 100644 --- a/FS/FS/part_export/sqlradius.pm +++ b/FS/FS/part_export/sqlradius.pm @@ -187,11 +187,15 @@ sub sqlradius_insert { #subroutine, not method } else { my $i_sth = $dbh->prepare( - "INSERT INTO rad$table ( UserName, Attribute, Value ) ". - "VALUES ( ?, ?, ? )" + "INSERT INTO rad$table ( UserName, Attribute, op, Value ) ". + "VALUES ( ?, ?, ?, ? )" ) or die $dbh->errstr; - $i_sth->execute( $username, $attribute, $attributes{$attribute} ) - or die $i_sth->errstr; + $i_sth->execute( + $username, + $attribute, + ( $attribute =~ /Password/i ? '==' : ':=' ), + $attributes{$attribute}, + ) or die $i_sth->errstr; } |