fs_selfservice/FS-SelfService/cgi/selfservice.cgi

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use vars qw($DEBUG $cgi $session_id $pw_session_id $form_max $template_dir);
   5 use subs qw(do_template);
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use CGI::Cookie;
   9 use Text::Template;
  10 use HTML::Entities;
  11 use Date::Format;
  12 use Date::Parse 'str2time';
  13 use Number::Format 1.50;
  14 use FS::SelfService qw(
  15   access_info login_info login customer_info edit_info invoice
  16   payment_info process_payment realtime_collect process_prepay
  17   list_pkgs order_pkg signup_info order_recharge
  18   part_svc_info provision_acct provision_external provision_phone provision_forward
  19   unprovision_svc change_pkg suspend_pkg domainselector
  20   list_svcs list_svc_usage list_cdr_usage list_support_usage
  21   myaccount_passwd list_invoices create_ticket get_ticket did_report
  22   adjust_ticket_priority
  23   mason_comp port_graph
  24   start_thirdparty finish_thirdparty
  25   reset_passwd check_reset_passwd process_reset_passwd
  26   validate_passwd
  27   billing_history
  28 );
  29
  30 $template_dir = '.';
  31
  32 $DEBUG = 0;
  33
  34 $form_max = 255;
  35
  36 $cgi = new CGI;
  37
  38 #order|pw_list XXX ???
  39 my @actions = ( qw(
  40   myaccount
  41   tktcreate
  42   tktview
  43   ticket_priority
  44   didreport
  45   invoices
  46   view_invoice
  47   make_payment
  48   make_ach_payment
  49   make_term_payment
  50   make_thirdparty_payment
  51   post_thirdparty_payment
  52   finish_thirdparty_payment
  53   cancel_thirdparty_payment
  54   payment_results
  55   ach_payment_results
  56   recharge_prepay
  57   recharge_results
  58   logout
  59   change_bill
  60   change_ship
  61   change_pay
  62   process_change_bill
  63   process_change_ship
  64   process_change_pay
  65   customer_order_pkg
  66   process_order_pkg
  67   customer_change_pkg
  68   process_change_pkg
  69   process_order_recharge
  70   provision
  71   provision_svc
  72   process_svc_acct
  73   process_svc_phone
  74   process_svc_external
  75   process_svc_forward
  76   delete_svc
  77   view_usage
  78   view_usage_details
  79   view_cdr_details
  80   view_support_details
  81   view_port_graph
  82   real_port_graph
  83   change_password
  84   process_change_password
  85   customer_suspend_pkg
  86   process_suspend_pkg
  87   history
  88   validate_password
  89 ));
  90
  91 my @nologin_actions = (qw(
  92   forgot_password
  93   do_forgot_password
  94   process_forgot_password
  95   do_process_forgot_password
  96   process_forgot_password_session
  97 ));
  98 push @actions, @nologin_actions;
  99 my %nologin_actions = map { $_=>1 } @nologin_actions;
 100
 101 my $action = 'myaccount'; # sensible default
 102
 103 if ( $cgi->param('action') =~ /^process_forgot_password_session_(\w+)$/ ) {
 104   $action = 'process_forgot_password_session';
 105   $pw_session_id = $1;
 106 } elsif ( $cgi->param('action') =~ /^(\w+)$/ ) {
 107   if (grep {$_ eq $1} @actions) {
 108     $action = $1;
 109   } else {
 110     warn "WARNING: unrecognized action '$1'\n";
 111   }
 112 }
 113 unless ( $nologin_actions{$action} ) {
 114
 115   my %cookies = CGI::Cookie->fetch;
 116
 117   my $login_rv = {};
 118
 119   if ( exists($cookies{'session'}) ) {
 120
 121     $session_id = $cookies{'session'}->value;
 122
 123     if ( $session_id eq 'login' ) {
 124       # then we've just come back from the login page
 125
 126       $cgi->param('password') =~ /^(.{0,$form_max})$/;
 127       my $password = $1;
 128
 129       if ( $cgi->param('email') =~ /^\s*([a-z0-9_\-\.\@]{1,$form_max})\s*$/i ) {
 130
 131         my $email = $1;
 132         $login_rv = login(
 133           'email'    => $email,
 134           'password' => $password
 135         );
 136
 137         if ( $login_rv->{'error'} ) {
 138           my $ip = $cgi->remote_addr();
 139           warn("login failure [email $email] [ip $ip] [error $login_rv->{error}]");
 140         } else {
 141           #successful login
 142         }
 143
 144         $session_id = $login_rv->{'session_id'};
 145
 146       } else {
 147
 148         $cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i;
 149         my $username = $1;
 150
 151         $cgi->param('domain') =~ /^\s*([\w\-\.]{0,$form_max})\s*$/;
 152         my $domain = $1;
 153
 154         if ( $username and $domain and $password ) {
 155
 156           # authenticate
 157           $login_rv = login(
 158             'username' => $username,
 159             'domain'   => $domain,
 160             'password' => $password,
 161           );
 162           $session_id = $login_rv->{'session_id'};
 163
 164         } elsif ( $username or $domain or $password ) {
 165
 166           my $error = 'Illegal '; #XXX localization...
 167           my $count = 0;
 168           if ( !$username ) {
 169             $error .= 'username';
 170             $count++;
 171           }
 172           if ( !$domain )  {
 173             $error .= ', ' if $count;
 174             $error .= 'domain';
 175             $count++;
 176           }
 177           if ( !$password ) {
 178             $error .= ', ' if $count;
 179             $error .= 'and ' if $count > 1;
 180             $error .= 'password';
 181             $count++;
 182           }
 183           $error .= '.';
 184           $login_rv = {
 185             'username'  => $username,
 186             'domain'    => $domain,
 187             'password'  => $password,
 188             'error'     => $error,
 189           };
 190           $session_id = undef; # attempt login again
 191
 192         }
 193
 194       } # else there was no input, so show no error message
 195
 196     } # else session_id ne 'login'
 197
 198   } # else there is no session cookie
 199
 200   if ( !$session_id ) {
 201     # show the login page
 202     $session_id = 'login'; # set state
 203     my $login_info = login_info( 'agentnum' => scalar($cgi->param('agentnum')) );
 204
 205     do_template('login', { %$login_rv, %$login_info });
 206     exit;
 207   }
 208
 209   # at this point $session_id is a real session
 210
 211 }
 212
 213 warn "calling $action sub\n"
 214   if $DEBUG;
 215 $FS::SelfService::DEBUG = $DEBUG;
 216 my $result = eval "&$action();";
 217 die $@ if $@;
 218
 219 warn Dumper($result) if $DEBUG;
 220
 221 if ( $result->{error} && ( $result->{error} eq "Can't resume session"
 222   || $result->{error} eq "Expired session") ) { #ick
 223
 224   $session_id = 'login';
 225   my $login_info = login_info( 'agentnum' => scalar($cgi->param('agentnum')) );
 226   do_template('login', $login_info);
 227   exit;
 228 }
 229
 230 #warn $result->{'open_invoices'};
 231 #warn scalar(@{$result->{'open_invoices'}});
 232
 233 warn "processing template $action\n"
 234   if $DEBUG;
 235 do_template($action, {
 236   'session_id' => $session_id,
 237   'action'     => $action, #so the menu knows what tab we're on...
 238   #%{ payment_info( 'session_id' => $session_id ) },  # cust_paybys for the menu
 239   %{$result}
 240 });
 241
 242 #--
 243
 244 use Data::Dumper;
 245 sub myaccount {
 246   customer_info( 'session_id' => $session_id );
 247 }
 248
 249 sub change_bill { my $payment_info =
 250                     payment_info( 'session_id' => $session_id );
 251                   return $payment_info if ( $payment_info->{'error'} );
 252                   my $customer_info =
 253                     customer_info( 'session_id' => $session_id );
 254                   return {
 255                     %$payment_info,
 256                     %$customer_info,
 257                   };
 258                 }
 259 sub change_ship { change_bill(@_); }
 260 sub change_pay { change_bill(@_); }
 261
 262 sub _process_change_info {
 263   my ($erroraction, @fields) = @_;
 264
 265   my $results = '';
 266
 267   $results ||= edit_info (
 268     'session_id' => $session_id,
 269     map { ($_ => $cgi->param($_)) } grep { defined($cgi->param($_)) } @fields,
 270   );
 271
 272
 273   if ( $results->{'error'} ) {
 274     no strict 'refs';
 275     $action = $erroraction;
 276     return {
 277       $cgi->Vars,
 278       %{&$action()},
 279       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 280     };
 281   } else {
 282     return $results;
 283   }
 284 }
 285
 286 sub process_change_bill {
 287         _process_change_info( 'change_bill',
 288           qw( first last company address1 address2 city state
 289               county zip country daytime night fax )
 290         );
 291 }
 292
 293 sub process_change_ship {
 294         my @list = map { "ship_$_" }
 295                      qw( first last company address1 address2 city state
 296                          county zip country daytime night fax
 297                        );
 298         if ($cgi->param('same') eq 'Y') {
 299           foreach (@list) { $cgi->param($_, '') }
 300         }
 301
 302         _process_change_info( 'change_ship', @list );
 303 }
 304
 305 sub process_change_pay {
 306         my $postal = $cgi->param( 'postal_invoicing' );
 307         my $payby  = $cgi->param( 'payby' );
 308         my @list =
 309           qw( payby payinfo payinfo1 payinfo2 month year payname
 310               address1 address2 city county state zip country auto paytype
 311               paystate ss stateid stateid_state invoicing_list
 312             );
 313         push @list, 'postal_invoicing' if $postal;
 314         unless (    $payby ne 'BILL'
 315                  || $postal
 316                  || $cgi->param( 'invoicing_list' )
 317                )
 318         {
 319           $action = 'change_pay';
 320           return {
 321             %{&change_pay()},
 322             $cgi->Vars,
 323             'error' => '<FONT COLOR="#FF0000">Postal or email required.</FONT>',
 324           };
 325         }
 326
 327         _process_change_info( 'change_pay', @list );
 328 }
 329
 330 sub view_invoice {
 331
 332   $cgi->param('invnum') =~ /^(\d+)$/ or die "illegal invnum";
 333   my $invnum = $1;
 334
 335   invoice( 'session_id' => $session_id,
 336            'invnum'     => $invnum,
 337          );
 338
 339 }
 340
 341 sub invoices {
 342   list_invoices( 'session_id' => $session_id, );
 343 }
 344
 345 sub history {
 346   billing_history( 'session_id' => $session_id, );
 347 }
 348
 349 sub tktcreate {
 350   my $customer_info = customer_info( 'session_id' => $session_id );
 351   return $customer_info if ( $customer_info->{'error'} );
 352
 353   my $requestor = "";
 354   if ( $customer_info->{'invoicing_list'} ) {
 355     my @requestor = split( /\s*\,\s*/, $customer_info->{'invoicing_list'} );
 356     $requestor = $requestor[0] if scalar(@requestor);
 357   }
 358
 359   return { 'requestor' => $requestor }
 360     unless ($cgi->param('subject') && $cgi->param('message') &&
 361         length($cgi->param('subject')) && length($cgi->param('message')));
 362
 363  create_ticket( 'session_id' => $session_id,
 364                         'subject' => $cgi->param('subject'),
 365                         'message' => $cgi->param('message'),
 366                         'requestor' => $requestor,
 367             );
 368 }
 369
 370 sub tktview {
 371  get_ticket(    'session_id' => $session_id,
 372                 'ticket_id' => ($cgi->param('ticket_id') || ''),
 373                 'subject'   => ($cgi->param('subject') || ''),
 374                 'reply'     => ($cgi->param('reply') || ''),
 375             );
 376 }
 377
 378 sub ticket_priority {
 379   my %values;
 380   foreach ( $cgi->param ) {
 381     if ( /^ticket(\d+)$/ ) {
 382       # a 'ticket1001' param implies the existence of a 'priority1001' param
 383       # but if that's empty, we need to send it as empty rather than forget
 384       # it.
 385       $values{$1} = $cgi->param("priority$1") || '';
 386     }
 387   }
 388   $action = 'myaccount';
 389   # this returns an updated customer_info for myaccount
 390   adjust_ticket_priority( 'session_id' => $session_id,
 391                           'values'     => \%values );
 392 }
 393
 394 sub customer_order_pkg {
 395   my $init_data = signup_info( 'customer_session_id' => $session_id );
 396   return $init_data if ( $init_data->{'error'} );
 397
 398   my $customer_info = customer_info( 'session_id' => $session_id );
 399   return $customer_info if ( $customer_info->{'error'} );
 400
 401   my $pkgselect = mason_comp(
 402     'session_id' => $session_id,
 403     'comp'       => '/edit/cust_main/first_pkg/select-part_pkg.html',
 404     'args'       => [ 'password_verify' => 1,
 405                       'onchange'        => 'enable_order_pkg()',
 406                       'relurls'         => 1,
 407                       'empty_label'     => 'Select package',
 408                     ],
 409   );
 410
 411   $pkgselect = $pkgselect->{'error'} || $pkgselect->{'output'};
 412
 413   return {
 414     ( map { $_ => $init_data->{$_} }
 415           qw( part_pkg security_phrase svc_acct_pop ),
 416     ),
 417     %$customer_info,
 418     'pkg_selector' => $pkgselect,
 419   };
 420 }
 421
 422 sub customer_change_pkg {
 423   my $init_data = signup_info( 'customer_session_id' => $session_id );
 424   return $init_data if ( $init_data->{'error'} );
 425
 426   my $customer_info = customer_info( 'session_id' => $session_id );
 427   return $customer_info if ( $customer_info->{'error'} );
 428
 429   return {
 430     ( map { $_ => $init_data->{$_} }
 431           qw( part_pkg security_phrase svc_acct_pop ),
 432     ),
 433     ( map { $_ => $cgi->param($_) }
 434         qw( pkgnum pkg )
 435     ),
 436     %$customer_info,
 437   };
 438 }
 439
 440 sub process_order_pkg {
 441
 442   my $results = '';
 443
 444   my @params = (qw( custnum pkgpart ));
 445   my $svcdb = '';
 446   if ( $cgi->param('pkgpart_svcpart') =~ /^(\d+)_(\d+)$/ ) {
 447     $cgi->param('pkgpart', $1);
 448     $cgi->param('svcpart', $2);
 449     push @params, 'svcpart';
 450     $svcdb = $cgi->param('svcdb');
 451     push @params, 'domsvc' if $svcdb eq 'svc_acct';
 452   } else {
 453     $svcdb = 'svc_acct';
 454   }
 455
 456   if ( $svcdb eq 'svc_acct' ) {
 457
 458     push @params, qw( username _password _password2 sec_phrase popnum );
 459
 460     unless ( length($cgi->param('_password')) ) {
 461       my $init_data = signup_info( 'customer_session_id' => $session_id );
 462       $results = { 'error' => $init_data->{msgcat}{empty_password} };
 463       $results = { 'error' => $init_data->{error} } if($init_data->{error});
 464     }
 465     if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
 466       my $init_data = signup_info( 'customer_session_id' => $session_id );
 467       $results = { 'error' => $init_data->{msgcat}{passwords_dont_match} };
 468       $results = { 'error' => $init_data->{error} } if($init_data->{error});
 469       $cgi->param('_password', '');
 470       $cgi->param('_password2', '');
 471     }
 472
 473   } elsif ( $svcdb eq 'svc_phone' ) {
 474
 475     push @params, qw( phonenum sip_password pin phone_name );
 476
 477   } else {
 478     die "$svcdb not handled on process_order_pkg yet";
 479   }
 480
 481   $results ||= order_pkg (
 482     'session_id' => $session_id,
 483     map { $_ => $cgi->param($_) } @params
 484   );
 485
 486
 487   if ( $results->{'error'} ) {
 488     $action = 'customer_order_pkg';
 489     return {
 490       $cgi->Vars,
 491       %{customer_order_pkg()},
 492       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 493     };
 494   } else {
 495     return $results;
 496   }
 497
 498 }
 499
 500 sub process_change_pkg {
 501
 502   my $results = '';
 503
 504   $results ||= change_pkg (
 505     'session_id' => $session_id,
 506     map { $_ => $cgi->param($_) }
 507         qw( pkgpart pkgnum )
 508   );
 509
 510
 511   if ( $results->{'error'} ) {
 512     $action = 'customer_change_pkg';
 513     return {
 514       $cgi->Vars,
 515       %{customer_change_pkg()},
 516       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 517     };
 518   } else {
 519     return $results;
 520   }
 521
 522 }
 523
 524 sub process_suspend_pkg {
 525   my $results = '';
 526   $results = suspend_pkg (
 527     'session_id' => $session_id,
 528     map { $_ => $cgi->param($_) }
 529       qw( pkgnum )
 530     );
 531   if ( $results->{'error'} ) {
 532     $action = 'provision';
 533     return {
 534       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 535     }
 536   }
 537   else {
 538     return $results;
 539   }
 540 }
 541
 542 sub process_order_recharge {
 543
 544   my $results = '';
 545
 546   $results ||= order_recharge (
 547     'session_id' => $session_id,
 548     map { $_ => $cgi->param($_) }
 549         qw( svcnum )
 550   );
 551
 552
 553   if ( $results->{'error'} ) {
 554     $action = 'view_usage';
 555     if ($results->{'error'} eq '_decline') {
 556       $results->{'error'} = "There has been an error processing your account.  Please contact customer support."
 557     }
 558     return {
 559       $cgi->Vars,
 560       %{view_usage()},
 561       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 562     };
 563   } else {
 564     return $results;
 565   }
 566
 567 }
 568
 569 sub make_payment {
 570
 571   my $payment_info = payment_info( 'session_id' => $session_id );
 572
 573   my $amount =
 574     ($payment_info->{'balance'} && ($payment_info->{'balance'} > 0))
 575     ? $payment_info->{'balance'}
 576     : '';
 577
 578   my $tr_amount_fee = mason_comp(
 579     'session_id' => $session_id,
 580     'comp'       => '/elements/tr-amount_fee.html',
 581     'args'       => [ 'amount' => $amount,
 582                     ],
 583   );
 584
 585   $tr_amount_fee = $tr_amount_fee->{'error'} || $tr_amount_fee->{'output'};
 586
 587   $payment_info->{'tr_amount_fee'} = $tr_amount_fee;
 588
 589   $payment_info;
 590 }
 591
 592 sub payment_results {
 593
 594   use Business::CreditCard 0.30;
 595
 596   #we should only do basic checking here for DoS attacks and things
 597   #that couldn't be constructed by the web form...  let process_payment() do
 598   #the rest, it gives better error messages
 599
 600   $cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
 601     or die "Illegal amount: ". $cgi->param('amount'); #!!!
 602   my $amount = $1;
 603
 604   my $payinfo = $cgi->param('payinfo');
 605   $payinfo =~ s/[^\dx]//g;
 606   $payinfo =~ /^([\dx]{13,16}|[\dx]{8,9})$/
 607     #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
 608     or die "illegal card"; #!!!
 609   $payinfo = $1;
 610   unless ( $payinfo =~ /x/ ) {
 611     validate($payinfo)
 612       #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
 613       or die "invalid card"; #!!!
 614   }
 615
 616   if ( $cgi->param('card_type') ) {
 617     cardtype($payinfo) eq $cgi->param('card_type')
 618       #or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
 619       or die "not a ". $cgi->param('card_type');
 620   }
 621
 622   $cgi->param('paycvv') =~ /^\s*(.{0,4})\s*$/ or die "illegal CVV2";
 623   my $paycvv = $1;
 624
 625   $cgi->param('month') =~ /^(\d{2})$/ or die "illegal month";
 626   my $month = $1;
 627   $cgi->param('year') =~ /^(\d{4})$/ or die "illegal year";
 628   my $year = $1;
 629
 630   $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
 631   my $payname = $1;
 632
 633   $cgi->param('address1') =~ /^(.{0,80})$/ or die "illegal address1";
 634   my $address1 = $1;
 635
 636   $cgi->param('address2') =~ /^(.{0,80})$/ or die "illegal address2";
 637   my $address2 = $1;
 638
 639   $cgi->param('city') =~ /^(.{0,80})$/ or die "illegal city";
 640   my $city = $1;
 641
 642   $cgi->param('state') =~ /^(.{0,80})$/ or die "illegal state";
 643   my $state = $1;
 644
 645   $cgi->param('zip') =~ /^(.{0,10})$/ or die "illegal zip";
 646   my $zip = $1;
 647
 648   $cgi->param('country') =~ /^(.{0,2})$/ or die "illegal country";
 649   my $country = $1;
 650
 651   my $save = 0;
 652   $save = 1 if $cgi->param('save');
 653
 654   my $auto = 0;
 655   $auto = 1 if $cgi->param('auto');
 656
 657   $cgi->param('payunique') =~ /^([\w\-\.]*)$/ or die "illegal payunique";
 658   my $payunique = $1;
 659
 660   $cgi->param('paybatch') =~ /^([\w\-\.]*)$/ or die "illegal paybatch";
 661   my $paybatch = $1;
 662
 663   $cgi->param('discount_term') =~ /^(\d*)$/ or die "illegal discount_term";
 664   my $discount_term = $1;
 665
 666
 667   process_payment(
 668     'session_id' => $session_id,
 669     'payby'      => 'CARD',
 670     'amount'     => $amount,
 671     'payinfo'    => $payinfo,
 672     'paycvv'     => $paycvv,
 673     'month'      => $month,
 674     'year'       => $year,
 675     'payname'    => $payname,
 676     'address1'   => $address1,
 677     'address2'   => $address2,
 678     'city'       => $city,
 679     'state'      => $state,
 680     'zip'        => $zip,
 681     'country'    => $country,
 682     'save'       => $save,
 683     'auto'       => $auto,
 684     'payunique'  => $payunique,
 685     'paybatch'   => $paybatch,
 686     'discount_term' => $discount_term,
 687   );
 688
 689 }
 690
 691 sub make_ach_payment {
 692   payment_info( 'session_id' => $session_id );
 693 }
 694
 695 sub ach_payment_results {
 696
 697   #we should only do basic checking here for DoS attacks and things
 698   #that couldn't be constructed by the web form...  let process_payment() do
 699   #the rest, it gives better error messages
 700
 701   $cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
 702     or die "illegal amount"; #!!!
 703   my $amount = $1;
 704
 705   my $payinfo1 = $cgi->param('payinfo1');
 706   $payinfo1 =~ s/[^\dx]//g;
 707   $payinfo1 =~ /^([\dx]+)$/
 708     or die "illegal account"; #!!!
 709   $payinfo1 = $1;
 710
 711   my $payinfo2 = $cgi->param('payinfo2');
 712   $payinfo2 =~ s/[^\dx]//g;
 713   $payinfo2 =~ /^([\dx]+)$/
 714     or die "illegal ABA/routing code"; #!!!
 715   $payinfo2 = $1;
 716
 717   $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
 718   my $payname = $1;
 719
 720   $cgi->param('paystate') =~ /^(.{0,2})$/ or die "illegal paystate";
 721   my $paystate = $1;
 722
 723   $cgi->param('paytype') =~ /^(.{0,80})$/ or die "illegal paytype";
 724   my $paytype = $1;
 725
 726   $cgi->param('ss') =~ /^(.{0,80})$/ or die "illegal ss";
 727   my $ss = $1;
 728
 729   $cgi->param('stateid') =~ /^(.{0,80})$/ or die "illegal stateid";
 730   my $stateid = $1;
 731
 732   $cgi->param('stateid_state') =~ /^(.{0,2})$/ or die "illegal stateid_state";
 733   my $stateid_state = $1;
 734
 735   my $save = 0;
 736   $save = 1 if $cgi->param('save');
 737
 738   my $auto = 0;
 739   $auto = 1 if $cgi->param('auto');
 740
 741   $cgi->param('paybatch') =~ /^([\w\-\.]+)$/ or die "illegal paybatch";
 742   my $paybatch = $1;
 743
 744   process_payment(
 745     'session_id' => $session_id,
 746     'payby'      => 'CHEK',
 747     'amount'     => $amount,
 748     'payinfo1'   => $payinfo1,
 749     'payinfo2'   => $payinfo2,
 750     'month'      => '12',
 751     'year'       => '2037',
 752     'payname'    => $payname,
 753     'paytype'    => $paytype,
 754     'paystate'   => $paystate,
 755     'ss'         => $ss,
 756     'stateid'    => $stateid,
 757     'stateid_state' => $stateid_state,
 758     'save'       => $save,
 759     'auto'       => $auto,
 760     'paybatch'   => $paybatch,
 761   );
 762
 763 }
 764
 765 sub make_thirdparty_payment {
 766   my $payment_info = payment_info('session_id' => $session_id);
 767   $cgi->param('payby_method') =~ /^(CC|ECHECK|PAYPAL)$/
 768     or die "illegal payby method";
 769   $payment_info->{'payby_method'} = $1;
 770   $payment_info->{'error'} = $cgi->param('error');
 771
 772   $payment_info;
 773 }
 774
 775 sub post_thirdparty_payment {
 776   $cgi->param('payby_method') =~ /^(CC|ECHECK|PAYPAL)$/
 777     or die "illegal payby method";
 778   my $method = $1;
 779   $cgi->param('amount') =~ /^(\d+(\.\d*)?)$/
 780     or die "illegal amount";
 781   my $amount = $1;
 782   my $result = start_thirdparty(
 783     'session_id' => $session_id,
 784     'method' => $method,
 785     'amount' => $amount,
 786   );
 787   if ( $result->{error} ) {
 788     $cgi->param('action', 'make_thirdparty_payment');
 789     $cgi->param('error', $result->{error});
 790     print $cgi->redirect( $cgi->self_url );
 791     exit;
 792   }
 793
 794   $result;
 795 }
 796
 797 sub finish_thirdparty_payment {
 798   my %param = $cgi->Vars;
 799   finish_thirdparty( 'session_id' => $session_id, %param );
 800   # result contains either 'error' => error message, or the payment details
 801 }
 802
 803 sub cancel_thirdparty_payment {
 804   $action = 'make_thirdparty_payment';
 805   finish_thirdparty( 'session_id' => $session_id, '_cancel' => 1 );
 806 }
 807
 808 sub make_term_payment {
 809   $cgi->param('amount') =~ /^(\d+\.\d{2})$/
 810     or die "illegal payment amount";
 811   my $balance = $1;
 812   $cgi->param('discount_term') =~ /^(\d+)$/
 813     or die "illegal discount term";
 814   my $discount_term = $1;
 815   $action = 'make_payment';
 816   ({ %{payment_info( 'session_id' => $session_id )},
 817     'balance' => $balance,
 818     'discount_term' => $discount_term,
 819   })
 820 }
 821
 822 sub recharge_prepay {
 823   customer_info( 'session_id' => $session_id );
 824 }
 825
 826 sub recharge_results {
 827
 828   my $prepaid_cardnum = $cgi->param('prepaid_cardnum');
 829   $prepaid_cardnum =~ s/\W//g;
 830   $prepaid_cardnum =~ /^(\w*)$/ or die "illegal prepaid card number";
 831   $prepaid_cardnum = $1;
 832
 833   process_prepay ( 'session_id'     => $session_id,
 834                    'prepaid_cardnum' => $prepaid_cardnum,
 835                  );
 836 }
 837
 838 sub logout {
 839   FS::SelfService::logout( 'session_id' => $session_id );
 840 }
 841
 842 sub didreport {
 843   my $result = did_report( 'session_id' => $session_id,
 844             'format' => $cgi->param('type'),
 845             'recentonly' => $cgi->param('recentonly'),
 846         );
 847   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 848   $result;
 849 }
 850
 851 sub provision {
 852   my $result = list_pkgs( 'session_id' => $session_id );
 853   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 854   $result->{'pkgpart'} = $cgi->param('pkgpart') if $cgi->param('pkgpart');
 855   $result->{'filter'} = $cgi->param('filter') if $cgi->param('filter');
 856   $result;
 857 }
 858
 859 sub provision_svc {
 860
 861   my $result = part_svc_info(
 862     'session_id' => $session_id,
 863     map { $_ => ($cgi->param($_) || '') } qw( pkgnum svcpart svcnum ),
 864   );
 865   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 866
 867   $result->{'svcdb'} =~ /^svc_(.*)$/
 868     #or return { 'error' => 'Unknown svcdb '. $result->{'svcdb'} };
 869     or die 'Unknown svcdb '. $result->{'svcdb'};
 870   $action .= "_$1";
 871
 872   $result->{'numavail'} = $cgi->param('numavail');
 873   $result->{'lnp'} = $cgi->param('lnp');
 874
 875   $result;
 876 }
 877
 878 sub process_svc_phone {
 879     my @bulkdid = $cgi->param('bulkdid');
 880     my $phonenum = $cgi->param('phonenum');
 881     my $lnp = $cgi->param('lnp');
 882
 883     my $result;
 884     if($lnp) {
 885         $result = provision_phone (
 886             'session_id' => $session_id,
 887             'countrycode' => '1',
 888              map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum
 889                 lnp_desired_due_date lnp_other_provider
 890                 lnp_other_provider_account )
 891         );
 892     } else {
 893         $result = provision_phone (
 894             'session_id' => $session_id,
 895             'bulkdid' => [ @bulkdid ],
 896             'countrycode' => '1',
 897              map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum svcnum email forwarddst )
 898         );
 899     }
 900
 901     if ( exists $result->{'error'} && $result->{'error'} ) {
 902         $action = 'provision_svc_phone';
 903         return {
 904           $cgi->Vars,
 905           %{ part_svc_info( 'session_id' => $session_id,
 906                         map { $_ => $cgi->param($_) } qw( pkgnum svcpart svcnum )
 907               )
 908           },
 909           'error' => $result->{'error'},
 910         };
 911   }
 912
 913   $result;
 914 }
 915
 916 sub process_svc_acct {
 917
 918   my $result = provision_acct (
 919     'session_id' => $session_id,
 920     map { $_ => $cgi->param($_) } qw(
 921       pkgnum svcpart username domsvc _password _password2 sec_phrase popnum )
 922   );
 923
 924   if ( exists $result->{'error'} && $result->{'error'} ) {
 925     #warn "$result $result->{'error'}";
 926     $action = 'provision_svc_acct';
 927     return {
 928       $cgi->Vars,
 929       %{ part_svc_info( 'session_id' => $session_id,
 930                         map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
 931                       )
 932       },
 933       'error' => $result->{'error'},
 934     };
 935   } else {
 936     #warn "$result $result->{'error'}";
 937     return $result;
 938   }
 939
 940 }
 941
 942 sub process_svc_external {
 943   provision_external (
 944     'session_id' => $session_id,
 945     map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
 946   );
 947 }
 948
 949 sub process_svc_forward {
 950
 951   my $result = provision_forward (
 952     'session_id' => $session_id,
 953     map { $_ => $cgi->param($_) || '' } qw(
 954       pkgnum svcpart srcsvc src dstsvc dst )
 955   );
 956
 957   if ( exists $result->{'error'} && $result->{'error'} ) {
 958     #warn "$result $result->{'error'}";
 959     $action = 'provision_svc_forward';
 960     return {
 961       $cgi->Vars,
 962       %{ part_svc_info( 'session_id' => $session_id,
 963                         map { $_ => $cgi->param($_) } qw( svcnum pkgnum svcpart )
 964                       )
 965       },
 966       'error' => $result->{'error'},
 967     };
 968   } else {
 969     #just go to setup services page, results will be visible there
 970     $action = 'provision';
 971     return provision();
 972   }
 973
 974 }
 975
 976 sub delete_svc {
 977   unprovision_svc(
 978     'session_id' => $session_id,
 979     'svcnum'     => $cgi->param('svcnum'),
 980   );
 981 }
 982
 983 sub view_usage {
 984   my $res = list_svcs(
 985     'session_id'  => $session_id,
 986     'svcdb'       => [ 'svc_acct', 'svc_phone', 'svc_port', 'svc_pbx' ],
 987     'ncancelled'  => 1,
 988   );
 989   if ($res->{hide_usage}) {
 990     $action = 'myaccount';
 991     return myaccount();
 992   } else {
 993     return $res;
 994   }
 995 }
 996
 997 sub real_port_graph {
 998     my $svcnum = $cgi->param('svcnum');
 999     my $res = port_graph(
1000             'session_id'  => $session_id,
1001             'svcnum'      => $svcnum,
1002             'beginning'   => str2time($cgi->param('start')." 00:00:00"),
1003             'ending'      => str2time($cgi->param('end')  ." 23:59:59"),
1004             );
1005     my @usage = @{$res->{'usage'}};
1006     my $png = $usage[0]->{'png'};
1007     { 'content' => $png, 'format' => 'png' };
1008 }
1009
1010 sub view_port_graph {
1011     my $svcnum = $cgi->param('svcnum');
1012     { 'svcnum' => $svcnum,
1013       'start' => $cgi->param($svcnum.'_start'),
1014       'end' => $cgi->param($svcnum.'_end'),
1015     }
1016 }
1017
1018 sub view_usage_details {
1019       list_svc_usage(
1020         'session_id'  => $session_id,
1021         'svcnum'      => $cgi->param('svcnum'),
1022         'beginning'   => $cgi->param('beginning') || '',
1023         'ending'      => $cgi->param('ending') || '',
1024       );
1025 }
1026
1027 sub view_cdr_details {
1028   list_cdr_usage(
1029     'session_id'  => $session_id,
1030     'svcnum'      => $cgi->param('svcnum'),
1031     'beginning'   => $cgi->param('beginning') || '',
1032     'ending'      => $cgi->param('ending') || '',
1033     'inbound'     => $cgi->param('inbound') || 0,
1034   );
1035 }
1036
1037 sub view_support_details {
1038   list_support_usage(
1039     'session_id'  => $session_id,
1040     'svcnum'      => $cgi->param('svcnum'),
1041     'beginning'   => $cgi->param('beginning') || '',
1042     'ending'      => $cgi->param('ending') || '',
1043   );
1044 }
1045
1046 sub change_password {
1047   list_svcs(
1048     'session_id' => $session_id,
1049     'svcdb'      => 'svc_acct',
1050   );
1051 };
1052
1053 sub process_change_password {
1054
1055   my $result = myaccount_passwd(
1056     'session_id'    => $session_id,
1057     map { $_ => $cgi->param($_) } qw( svcnum new_password new_password2 )
1058   );
1059
1060   if ( exists $result->{'error'} && $result->{'error'} ) {
1061
1062     $action = 'change_password';
1063     return {
1064       $cgi->Vars,
1065       %{ list_svcs( 'session_id' => $session_id,
1066                     'svcdb'      => 'svc_acct',
1067                   )
1068        },
1069       #'svcnum' => $cgi->param('svcnum'),
1070       'error'  => $result->{'error'}
1071     };
1072
1073  } else {
1074
1075    return $result;
1076
1077  }
1078
1079 }
1080
1081 sub forgot_password {
1082   login_info( 'agentnum' => scalar($cgi->param('agentnum')) );
1083 }
1084
1085 sub do_forgot_password {
1086   reset_passwd(
1087     map { $_ => scalar($cgi->param($_)) }
1088       qw( agentnum email username domain )
1089   );
1090 }
1091
1092 sub process_forgot_password {
1093   check_reset_passwd(
1094     map { $_ => scalar($cgi->param($_)) }
1095       qw( session_id )
1096   );
1097 }
1098
1099 sub process_forgot_password_session {
1100   $action = 'process_forgot_password';
1101   check_reset_passwd(
1102     'session_id' => $pw_session_id,
1103   );
1104 }
1105
1106 sub do_process_forgot_password {
1107   process_reset_passwd(
1108     map { $_ => scalar($cgi->param($_)) }
1109       qw( session_id new_password new_password2 )
1110   );
1111 }
1112
1113 sub validate_password {
1114   validate_passwd(
1115     'session_id' => $session_id,
1116     map { $_ => scalar($cgi->param($_)) }
1117       qw( fieldid svcnum check_password )
1118   )
1119 }
1120
1121 #--
1122
1123 sub do_template {
1124   my $name = shift;
1125   my $fill_in = shift;
1126
1127   $cgi->delete_all();
1128   $fill_in->{'selfurl'} = $cgi->self_url;
1129   $fill_in->{'cgi'} = \$cgi;
1130   $fill_in->{'error'} = $cgi->param('error') if $cgi->param('error');
1131
1132   my $access_info = ($session_id and $session_id ne 'login')
1133                       ? access_info( 'session_id' => $session_id )
1134                       : {};
1135   $fill_in->{$_} = $access_info->{$_} foreach keys %$access_info;
1136
1137   # update the user's authentication
1138   my $timeout = $access_info->{'timeout'} || '3600';
1139   my $cookie = CGI::Cookie->new('-name'     => 'session',
1140                                 '-value'    => $session_id,
1141                                 '-expires'  => '+'.$timeout.'s',
1142                                 #'-secure'   => 1, # would be a good idea...
1143                                );
1144   if ( $name eq 'logout' ) {
1145     $cookie->expires(0);
1146   }
1147
1148   if ( $fill_in->{'format'} ) {
1149     # then override content-type, and return $fill_in->{'content'} instead
1150     # of filling in a template
1151     if ( $fill_in->{'format'} eq 'csv') {
1152       print $cgi->header('-expires' => 'now',
1153         '-Content-Type' => 'text/csv',
1154         '-Content-Disposition' => "attachment;filename=output.csv",
1155       );
1156     } elsif ( $fill_in->{'format'} eq 'xls' ) {
1157       print $cgi->header('-expires' => 'now',
1158         '-Content-Type' => 'application/vnd.ms-excel',
1159         '-Content-Disposition' => "attachment;filename=output.xls",
1160         '-Content-Length' => length($fill_in->{'content'}),
1161       );
1162     } elsif ( $fill_in->{'format'} eq 'png' ) {
1163       print $cgi->header('-expires' => 'now',
1164         '-Content-Type' => 'image/png',
1165       );
1166     }
1167     print $fill_in->{'content'};
1168   } else { # the usual case
1169     my $source = "$template_dir/$name.html";
1170     my $template = new Text::Template(
1171       TYPE       => 'FILE',
1172       SOURCE     => $source,
1173       DELIMITERS => [ '<%=', '%>' ],
1174       UNTAINT    => 1,
1175     )
1176       or die $Text::Template::ERROR;
1177
1178     my $data = $template->fill_in(
1179       PACKAGE => 'FS::SelfService::_selfservicecgi',
1180       HASH    => $fill_in,
1181     ) || "Error processing template $source"; # at least print _something_
1182     print $cgi->header( '-cookie' => $cookie,
1183                         '-expires' => 'now' );
1184     print $data;
1185   }
1186 }
1187
1188 #*FS::SelfService::_selfservicecgi::include = \&Text::Template::fill_in_file;
1189
1190 package FS::SelfService::_selfservicecgi;
1191
1192 use HTML::Entities;
1193 use FS::SelfService qw(
1194     regionselector popselector domainselector location_form didselector mason_comp
1195 );
1196
1197 #false laziness w/agent.cgi
1198 use vars qw(@INCLUDE_ARGS);
1199 sub include {
1200   my $name = shift;
1201
1202   @INCLUDE_ARGS = @_;
1203
1204   my $template = new Text::Template( TYPE   => 'FILE',
1205                                      SOURCE => "$main::template_dir/$name.html",
1206                                      DELIMITERS => [ '<%=', '%>' ],
1207                                      UNTAINT => 1,
1208                                    )
1209     or die $Text::Template::ERROR;
1210
1211   $template->fill_in( PACKAGE => 'FS::SelfService::_selfservicecgi',
1212                       #HASH    => $fill_in
1213                     );
1214
1215 }
1216
1217