diff options
author | ivan <ivan> | 2002-03-04 12:48:49 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-04 12:48:49 +0000 |
commit | 239484572a9191100993bb1e85ffe8834689feb0 (patch) | |
tree | 94c61ae16e6507918272721acd58791129ba1f99 /bin/fs-radius-add-reply | |
parent | dac484e8356be5b235cacebe83059b7eb6588c13 (diff) |
*** empty log message ***
Diffstat (limited to 'bin/fs-radius-add-reply')
-rwxr-xr-x | bin/fs-radius-add-reply | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/bin/fs-radius-add-reply b/bin/fs-radius-add-reply index 6b9a39e49..3de01374f 100755 --- a/bin/fs-radius-add-reply +++ b/bin/fs-radius-add-reply @@ -39,12 +39,21 @@ my($char_d) = 80; #default maxlength for text fields ### foreach my $attribute ( @attributes ) { + my $statement = "ALTER TABLE svc_acct ADD COLUMN radius_$attribute varchar($char_d) NULL"; my $sth = $dbh->prepare( $statement ) or warn "Error preparing $statement: ". $dbh->errstr; - $sth->execute + my $rc = $sth->execute or warn "Error executing $statement: ". $sth->errstr; + + $statement = + "ALTER TABLE h_svc_acct ADD COLUMN radius_$attribute varchar($char_d) NULL"; + $sth = $dbh->prepare( $statement ) + or warn "Error preparing $statement: ". $dbh->errstr; + $rc = $sth->execute + or warn "Error executing $statement: ". $sth->errstr; + } $dbh->commit or die $dbh->errstr; |