BroadWorks export, phase 1, #25927

[freeside.git] / FS / FS / API.pm

diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index 9b5783a..cc5f609 100644 (file)
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -593,6 +593,8 @@ sub update_customer {
  my( $class, %opt ) = @_;
 
   my $conf = new FS::Conf;
+  return { 'error' => 'Incorrect shared secret' }
+    unless $opt{secret} eq $conf->config('api_shared_secret');
 
 
   my $custnum = $opt{'custnum'}