use FS::webservice_log;
#$DEBUG = 0;
-#$me = '[FS::ClientAPI::PrepaidPhone]';
+#$me = '[FS::ClientAPI:Freeside]';
# inputs:
# support-key
#
# returns:
# error (empty, or error message)
+# custnum
sub freesideinc_service {
my $packet = shift;
'_password' => $_password,
},
'extra_sql' => "AND svcpart = $svcpart",
- })
- or return { 'error' => 'bad support-key' };
+ });
+ unless ( $svc_external ) {
+ warn "bad support-key for $username from $ENV{REMOTE_IP}\n";
+ sleep 5; #ideally also rate-limit and eventually ban their IP
+ return { 'error' => 'bad support-key' };
+ }
#XXX check if some customers can use some API calls, rate-limiting, etc.
# but for now, everybody can use everything