use strict;
use Getopt::Std;
+use FS::DBI;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs str2time_sql);
use FS::Conf;
foreach my $part_export ( @part_export ) {
- my $dbh = DBI->connect( map $part_export->option($_),
+ my $dbh = FS::DBI->connect( map $part_export->option($_),
qw ( datasrc username password ) );
my $str2time = str2time_sql( $dbh->{Driver}->{Name} );