diff options
author | ivan <ivan> | 2007-10-28 12:51:30 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-10-28 12:51:30 +0000 |
commit | dc39152e4b1b881f0115aa5cbe42fbf48a71e5c5 (patch) | |
tree | 2f9b364fe9326e92915fbcdc701a156f102a2245 /FS/FS/Setup.pm | |
parent | 556cefb34ed648303951009e3bec919e18532bed (diff) |
finish mysql locking workaround
Diffstat (limited to 'FS/FS/Setup.pm')
-rw-r--r-- | FS/FS/Setup.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm index 55984d4..6807ef7 100644 --- a/FS/FS/Setup.pm +++ b/FS/FS/Setup.pm @@ -5,7 +5,7 @@ use vars qw( @ISA @EXPORT_OK ); use Exporter; #use Tie::DxHash; use Tie::IxHash; -use FS::UID qw( dbh ); +use FS::UID qw( dbh driver_name ); use FS::Record; use FS::svc_domain; @@ -45,6 +45,8 @@ sub create_initial_data { populate_locales(); + populate_duplock(); + #initial_data data populate_initial_data(%opt); @@ -125,6 +127,18 @@ sub _add_locale { die $error if $error; } +sub populate_duplock { + + return unless driver_name =~ /^mysql/i; + + my $sth = dbh->prepare( + "INSERT INTO duplicate_lock ( lockname ) VALUES ( 'svc_acct' )" + ) or die dbh->errstr; + + $sth->execute or die $sth->errstr; + +} + sub populate_initial_data { my %opt = @_; |