###
-#print "\nEnter the maximum username length: ";
-#my($username_len)=&getvalue;
-my $username_len = 32; #usernamemax config file
+my $username_len = 32;
#print "\n\n", <<END, ":";
#Freeside tracks the RADIUS User-Name, check attribute Password and
# create a dbdef object from the old data structure
###
-my $dbdef = dbdef_dist;
+my $dbdef = dbdef_dist(datasrc);
#important
$dbdef->save($dbdef_file);
$|=1;
foreach my $statement ( $dbdef->sql($dbh) ) {
- warn $statement if $statement =~ /TABLE cdr/;
$dbh->do( $statement )
or die "CREATE error: ". $dbh->errstr. "\ndoing statement: $statement";
}
if (!scalar(qsearch('conf', {}))) {
my $error = FS::Conf::init_config($config_dir);
if ($error) {
- dbh->rollback or die dbh->errstr;
+ $dbh->rollback or die $dbh->errstr;
die $error;
}
}