- 'extra_sql' => " AND svcpart = $svcpart",
- })
- or return { 'error' => 'bad support-key' };
+ 'extra_sql' => "AND svcpart = $svcpart",
+ });
+ unless ( $svc_acct ) {
+ 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' };
+ }
+
+ my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
+ my $custnum = $cust_pkg->custnum;
+
+ my $quantity = $packet->{'quantity'} || 1;
+
+ #false laziness w/webservice_log.pm
+ my $color = 1.10;
+ my $page = 0.10;