summaryrefslogtreecommitdiff
path: root/bin/fs-radius-add-reply
diff options
context:
space:
mode:
authorivan <ivan>2002-03-04 12:48:49 +0000
committerivan <ivan>2002-03-04 12:48:49 +0000
commit239484572a9191100993bb1e85ffe8834689feb0 (patch)
tree94c61ae16e6507918272721acd58791129ba1f99 /bin/fs-radius-add-reply
parentdac484e8356be5b235cacebe83059b7eb6588c13 (diff)
*** empty log message ***
Diffstat (limited to 'bin/fs-radius-add-reply')
-rwxr-xr-xbin/fs-radius-add-reply11
1 files changed, 10 insertions, 1 deletions
diff --git a/bin/fs-radius-add-reply b/bin/fs-radius-add-reply
index 6b9a39e..3de0137 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;