fs_selfservice/FS-SelfService/cgi/selfservice.cgi

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use vars qw($DEBUG $cgi $session_id $form_max $template_dir);
   5 use subs qw(do_template);
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use Text::Template;
   9 use HTML::Entities;
  10 use Date::Format;
  11 use Date::Parse 'str2time';
  12 use Number::Format 1.50;
  13 use FS::SelfService qw(
  14   access_info login_info login customer_info edit_info invoice
  15   payment_info process_payment realtime_collect process_prepay
  16   list_pkgs order_pkg signup_info order_recharge
  17   part_svc_info provision_acct provision_external provision_phone
  18   unprovision_svc change_pkg suspend_pkg domainselector
  19   list_svcs list_svc_usage list_cdr_usage list_support_usage
  20   myaccount_passwd list_invoices create_ticket get_ticket did_report
  21   mason_comp port_graph
  22 );
  23
  24 $template_dir = '.';
  25
  26 $DEBUG = 0;
  27
  28 $form_max = 255;
  29
  30 $cgi = new CGI;
  31
  32 unless ( defined $cgi->param('session') ) {
  33   my $login_info = login_info( 'agentnum' => scalar($cgi->param('agentnum')) );
  34
  35   do_template('login', $login_info );
  36   exit;
  37 }
  38
  39 if ( $cgi->param('session') eq 'login' ) {
  40
  41   $cgi->param('username') =~ /^\s*([a-z0-9_\-\.\&]{0,$form_max})\s*$/i
  42     or die "illegal username";
  43   my $username = $1;
  44
  45   $cgi->param('domain') =~ /^\s*([\w\-\.]{0,$form_max})\s*$/
  46     or die "illegal domain";
  47   my $domain = $1;
  48
  49   $cgi->param('password') =~ /^(.{0,$form_max})$/
  50     or die "illegal password";
  51   my $password = $1;
  52
  53   my $rv = login(
  54     'username' => $username,
  55     'domain'   => $domain,
  56     'password' => $password,
  57   );
  58   if ( $rv->{error} ) {
  59     my $login_info = login_info( 'agentnum' => $cgi->param('agentnum') );
  60     do_template('login', {
  61       'error'    => $rv->{error},
  62       'username' => $username,
  63       'domain'   => $domain,
  64       %$login_info,
  65     } );
  66     exit;
  67   } else {
  68     $cgi->param('session' => $rv->{session_id} );
  69     $cgi->param('action'  => 'myaccount' );
  70   }
  71 }
  72
  73 $session_id = $cgi->param('session');
  74
  75 #order|pw_list XXX ???
  76 my @actions = ( qw(
  77   myaccount
  78   tktcreate
  79   tktview
  80   didreport
  81   invoices
  82   view_invoice
  83   make_payment
  84   make_ach_payment
  85   make_term_payment
  86   make_thirdparty_payment
  87   post_thirdparty_payment
  88   payment_results
  89   ach_payment_results
  90   recharge_prepay
  91   recharge_results
  92   logout
  93   change_bill
  94   change_ship
  95   change_pay
  96   process_change_bill
  97   process_change_ship
  98   process_change_pay
  99   customer_order_pkg
 100   process_order_pkg
 101   customer_change_pkg
 102   process_change_pkg
 103   process_order_recharge
 104   provision
 105   provision_svc
 106   process_svc_acct
 107   process_svc_phone
 108   process_svc_external
 109   delete_svc
 110   view_usage
 111   view_usage_details
 112   view_cdr_details
 113   view_support_details
 114   view_port_graph
 115   real_port_graph
 116   change_password
 117   process_change_password
 118   customer_suspend_pkg
 119   process_suspend_pkg
 120 ));
 121
 122 $cgi->param('action') =~ ( '^(' . join('|', @actions) . ')$' )
 123   or die "unknown action ". $cgi->param('action');
 124 my $action = $1;
 125
 126 warn "calling $action sub\n"
 127   if $DEBUG;
 128 $FS::SelfService::DEBUG = $DEBUG;
 129 my $result = eval "&$action();";
 130 die $@ if $@;
 131
 132 warn Dumper($result) if $DEBUG;
 133
 134 if ( $result->{error} && ( $result->{error} eq "Can't resume session"
 135   || $result->{error} eq "Expired session") ) { #ick
 136
 137   my $login_info = login_info();
 138   do_template('login', $login_info);
 139   exit;
 140 }
 141
 142 #warn $result->{'open_invoices'};
 143 #warn scalar(@{$result->{'open_invoices'}});
 144
 145 warn "processing template $action\n"
 146   if $DEBUG;
 147 do_template($action, {
 148   'session_id' => $session_id,
 149   'action'     => $action, #so the menu knows what tab we're on...
 150   #%{ payment_info( 'session_id' => $session_id ) },  # cust_paybys for the menu
 151   %{$result}
 152 });
 153
 154 #--
 155
 156 use Data::Dumper;
 157 sub myaccount {
 158   customer_info( 'session_id' => $session_id );
 159 }
 160
 161 sub change_bill { my $payment_info =
 162                     payment_info( 'session_id' => $session_id );
 163                   return $payment_info if ( $payment_info->{'error'} );
 164                   my $customer_info =
 165                     customer_info( 'session_id' => $session_id );
 166                   return {
 167                     %$payment_info,
 168                     %$customer_info,
 169                   };
 170                 }
 171 sub change_ship { change_bill(@_); }
 172 sub change_pay { change_bill(@_); }
 173
 174 sub _process_change_info {
 175   my ($erroraction, @fields) = @_;
 176
 177   my $results = '';
 178
 179   $results ||= edit_info (
 180     'session_id' => $session_id,
 181     map { ($_ => $cgi->param($_)) } grep { defined($cgi->param($_)) } @fields,
 182   );
 183
 184
 185   if ( $results->{'error'} ) {
 186     no strict 'refs';
 187     $action = $erroraction;
 188     return {
 189       $cgi->Vars,
 190       %{&$action()},
 191       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 192     };
 193   } else {
 194     return $results;
 195   }
 196 }
 197
 198 sub process_change_bill {
 199         _process_change_info( 'change_bill',
 200           qw( first last company address1 address2 city state
 201               county zip country daytime night fax )
 202         );
 203 }
 204
 205 sub process_change_ship {
 206         my @list = map { "ship_$_" }
 207                      qw( first last company address1 address2 city state
 208                          county zip country daytime night fax
 209                        );
 210         if ($cgi->param('same') eq 'Y') {
 211           foreach (@list) { $cgi->param($_, '') }
 212         }
 213
 214         _process_change_info( 'change_ship', @list );
 215 }
 216
 217 sub process_change_pay {
 218         my $postal = $cgi->param( 'postal_invoicing' );
 219         my $payby  = $cgi->param( 'payby' );
 220         my @list =
 221           qw( payby payinfo payinfo1 payinfo2 month year payname
 222               address1 address2 city county state zip country auto paytype
 223               paystate ss stateid stateid_state invoicing_list
 224             );
 225         push @list, 'postal_invoicing' if $postal;
 226         unless (    $payby ne 'BILL'
 227                  || $postal
 228                  || $cgi->param( 'invoicing_list' )
 229                )
 230         {
 231           $action = 'change_pay';
 232           return {
 233             %{&change_pay()},
 234             $cgi->Vars,
 235             'error' => '<FONT COLOR="#FF0000">Postal or email required.</FONT>',
 236           };
 237         }
 238         _process_change_info( 'change_pay', @list );
 239 }
 240
 241 sub view_invoice {
 242
 243   $cgi->param('invnum') =~ /^(\d+)$/ or die "illegal invnum";
 244   my $invnum = $1;
 245
 246   invoice( 'session_id' => $session_id,
 247            'invnum'     => $invnum,
 248          );
 249
 250 }
 251
 252 sub invoices {
 253   list_invoices( 'session_id' => $session_id, );
 254 }
 255
 256 sub tktcreate {
 257   my $customer_info = customer_info( 'session_id' => $session_id );
 258   return $customer_info if ( $customer_info->{'error'} );
 259
 260   my $requestor = "";
 261   if ( $customer_info->{'invoicing_list'} ) {
 262     my @requestor = split( /\s*\,\s*/, $customer_info->{'invoicing_list'} );
 263     $requestor = $requestor[0] if scalar(@requestor);
 264   }
 265
 266   return { 'requestor' => $requestor }
 267     unless ($cgi->param('subject') && $cgi->param('message') &&
 268         length($cgi->param('subject')) && length($cgi->param('message')));
 269
 270  create_ticket( 'session_id' => $session_id,
 271                         'subject' => $cgi->param('subject'),
 272                         'message' => $cgi->param('message'),
 273                         'requestor' => $requestor,
 274             );
 275 }
 276
 277 sub tktview {
 278  get_ticket(    'session_id' => $session_id,
 279                 'ticket_id' => $cgi->param('ticket_id'),
 280                 'reply' => $cgi->param('reply'),
 281             );
 282 }
 283
 284 sub customer_order_pkg {
 285   my $init_data = signup_info( 'customer_session_id' => $session_id );
 286   return $init_data if ( $init_data->{'error'} );
 287
 288   my $customer_info = customer_info( 'session_id' => $session_id );
 289   return $customer_info if ( $customer_info->{'error'} );
 290
 291   my $pkgselect = mason_comp(
 292     'session_id' => $session_id,
 293     'comp'       => '/edit/cust_main/first_pkg/select-part_pkg.html',
 294     'args'       => [ 'password_verify' => 1,
 295                       'onchange'        => 'enable_order_pkg()',
 296                       'relurls'         => 1,
 297                       'empty_label'     => 'Select package',
 298                     ],
 299   );
 300
 301   $pkgselect = $pkgselect->{'error'} || $pkgselect->{'output'};
 302
 303   return {
 304     ( map { $_ => $init_data->{$_} }
 305           qw( part_pkg security_phrase svc_acct_pop ),
 306     ),
 307     %$customer_info,
 308     'pkg_selector' => $pkgselect,
 309   };
 310 }
 311
 312 sub customer_change_pkg {
 313   my $init_data = signup_info( 'customer_session_id' => $session_id );
 314   return $init_data if ( $init_data->{'error'} );
 315
 316   my $customer_info = customer_info( 'session_id' => $session_id );
 317   return $customer_info if ( $customer_info->{'error'} );
 318
 319   return {
 320     ( map { $_ => $init_data->{$_} }
 321           qw( part_pkg security_phrase svc_acct_pop ),
 322     ),
 323     ( map { $_ => $cgi->param($_) }
 324         qw( pkgnum pkg )
 325     ),
 326     %$customer_info,
 327   };
 328 }
 329
 330 sub process_order_pkg {
 331
 332   my $results = '';
 333
 334   my @params = (qw( custnum pkgpart ));
 335   my $svcdb = '';
 336   if ( $cgi->param('pkgpart_svcpart') =~ /^(\d+)_(\d+)$/ ) {
 337     $cgi->param('pkgpart', $1);
 338     $cgi->param('svcpart', $2);
 339     push @params, 'svcpart';
 340     $svcdb = $cgi->param('svcdb');
 341     push @params, 'domsvc' if $svcdb eq 'svc_acct';
 342   } else {
 343     $svcdb = 'svc_acct';
 344   }
 345
 346   if ( $svcdb eq 'svc_acct' ) {
 347
 348     push @params, qw( username _password _password2 sec_phrase popnum );
 349
 350     unless ( length($cgi->param('_password')) ) {
 351       my $init_data = signup_info( 'customer_session_id' => $session_id );
 352       $results = { 'error' => $init_data->{msgcat}{empty_password} };
 353       $results = { 'error' => $init_data->{error} } if($init_data->{error});
 354     }
 355     if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
 356       my $init_data = signup_info( 'customer_session_id' => $session_id );
 357       $results = { 'error' => $init_data->{msgcat}{passwords_dont_match} };
 358       $results = { 'error' => $init_data->{error} } if($init_data->{error});
 359       $cgi->param('_password', '');
 360       $cgi->param('_password2', '');
 361     }
 362
 363   } elsif ( $svcdb eq 'svc_phone' ) {
 364
 365     push @params, qw( phonenum sip_password pin phone_name );
 366
 367   } else {
 368     die "$svcdb not handled on process_order_pkg yet";
 369   }
 370
 371   $results ||= order_pkg (
 372     'session_id' => $session_id,
 373     map { $_ => $cgi->param($_) } @params
 374   );
 375
 376
 377   if ( $results->{'error'} ) {
 378     $action = 'customer_order_pkg';
 379     return {
 380       $cgi->Vars,
 381       %{customer_order_pkg()},
 382       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 383     };
 384   } else {
 385     return $results;
 386   }
 387
 388 }
 389
 390 sub process_change_pkg {
 391
 392   my $results = '';
 393
 394   $results ||= change_pkg (
 395     'session_id' => $session_id,
 396     map { $_ => $cgi->param($_) }
 397         qw( pkgpart pkgnum )
 398   );
 399
 400
 401   if ( $results->{'error'} ) {
 402     $action = 'customer_change_pkg';
 403     return {
 404       $cgi->Vars,
 405       %{customer_change_pkg()},
 406       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 407     };
 408   } else {
 409     return $results;
 410   }
 411
 412 }
 413
 414 sub process_suspend_pkg {
 415   my $results = '';
 416   $results = suspend_pkg (
 417     'session_id' => $session_id,
 418     map { $_ => $cgi->param($_) }
 419       qw( pkgnum )
 420     );
 421   if ( $results->{'error'} ) {
 422     $action = 'provision';
 423     return {
 424       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 425     }
 426   }
 427   else {
 428     return $results;
 429   }
 430 }
 431
 432 sub process_order_recharge {
 433
 434   my $results = '';
 435
 436   $results ||= order_recharge (
 437     'session_id' => $session_id,
 438     map { $_ => $cgi->param($_) }
 439         qw( svcnum )
 440   );
 441
 442
 443   if ( $results->{'error'} ) {
 444     $action = 'view_usage';
 445     if ($results->{'error'} eq '_decline') {
 446       $results->{'error'} = "There has been an error processing your account.  Please contact customer support."
 447     }
 448     return {
 449       $cgi->Vars,
 450       %{view_usage()},
 451       'error' => '<FONT COLOR="#FF0000">'. $results->{'error'}. '</FONT>',
 452     };
 453   } else {
 454     return $results;
 455   }
 456
 457 }
 458
 459 sub make_payment {
 460   payment_info( 'session_id' => $session_id );
 461 }
 462
 463 sub payment_results {
 464
 465   use Business::CreditCard 0.30;
 466
 467   #we should only do basic checking here for DoS attacks and things
 468   #that couldn't be constructed by the web form...  let process_payment() do
 469   #the rest, it gives better error messages
 470
 471   $cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
 472     or die "Illegal amount: ". $cgi->param('amount'); #!!!
 473   my $amount = $1;
 474
 475   my $payinfo = $cgi->param('payinfo');
 476   $payinfo =~ s/[^\dx]//g;
 477   $payinfo =~ /^([\dx]{13,16})$/
 478     #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
 479     or die "illegal card"; #!!!
 480   $payinfo = $1;
 481   unless ( $payinfo =~ /x/ ) {
 482     validate($payinfo)
 483       #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
 484       or die "invalid card"; #!!!
 485   }
 486
 487   if ( $cgi->param('card_type') ) {
 488     cardtype($payinfo) eq $cgi->param('card_type')
 489       #or $error ||= $init_data->{msgcat}{not_a}. $cgi->param('CARD_type');
 490       or die "not a ". $cgi->param('card_type');
 491   }
 492
 493   $cgi->param('paycvv') =~ /^\s*(.{0,4})\s*$/ or die "illegal CVV2";
 494   my $paycvv = $1;
 495
 496   $cgi->param('month') =~ /^(\d{2})$/ or die "illegal month";
 497   my $month = $1;
 498   $cgi->param('year') =~ /^(\d{4})$/ or die "illegal year";
 499   my $year = $1;
 500
 501   $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
 502   my $payname = $1;
 503
 504   $cgi->param('address1') =~ /^(.{0,80})$/ or die "illegal address1";
 505   my $address1 = $1;
 506
 507   $cgi->param('address2') =~ /^(.{0,80})$/ or die "illegal address2";
 508   my $address2 = $1;
 509
 510   $cgi->param('city') =~ /^(.{0,80})$/ or die "illegal city";
 511   my $city = $1;
 512
 513   $cgi->param('state') =~ /^(.{0,80})$/ or die "illegal state";
 514   my $state = $1;
 515
 516   $cgi->param('zip') =~ /^(.{0,10})$/ or die "illegal zip";
 517   my $zip = $1;
 518
 519   $cgi->param('country') =~ /^(.{0,2})$/ or die "illegal country";
 520   my $country = $1;
 521
 522   my $save = 0;
 523   $save = 1 if $cgi->param('save');
 524
 525   my $auto = 0;
 526   $auto = 1 if $cgi->param('auto');
 527
 528   $cgi->param('paybatch') =~ /^([\w\-\.]+)$/ or die "illegal paybatch";
 529   my $paybatch = $1;
 530
 531   $cgi->param('discount_term') =~ /^(\d*)$/ or die "illegal discount_term";
 532   my $discount_term = $1;
 533
 534
 535   process_payment(
 536     'session_id' => $session_id,
 537     'payby'      => 'CARD',
 538     'amount'     => $amount,
 539     'payinfo'    => $payinfo,
 540     'paycvv'     => $paycvv,
 541     'month'      => $month,
 542     'year'       => $year,
 543     'payname'    => $payname,
 544     'address1'   => $address1,
 545     'address2'   => $address2,
 546     'city'       => $city,
 547     'state'      => $state,
 548     'zip'        => $zip,
 549     'country'    => $country,
 550     'save'       => $save,
 551     'auto'       => $auto,
 552     'paybatch'   => $paybatch,
 553     'discount_term' => $discount_term,
 554   );
 555
 556 }
 557
 558 sub make_ach_payment {
 559   payment_info( 'session_id' => $session_id );
 560 }
 561
 562 sub ach_payment_results {
 563
 564   #we should only do basic checking here for DoS attacks and things
 565   #that couldn't be constructed by the web form...  let process_payment() do
 566   #the rest, it gives better error messages
 567
 568   $cgi->param('amount') =~ /^\s*(\d+(\.\d{2})?)\s*$/
 569     or die "illegal amount"; #!!!
 570   my $amount = $1;
 571
 572   my $payinfo1 = $cgi->param('payinfo1');
 573   $payinfo1 =~ s/[^\dx]//g;
 574   $payinfo1 =~ /^([\dx]+)$/
 575     or die "illegal account"; #!!!
 576   $payinfo1 = $1;
 577
 578   my $payinfo2 = $cgi->param('payinfo2');
 579   $payinfo2 =~ s/[^\dx]//g;
 580   $payinfo2 =~ /^([\dx]+)$/
 581     or die "illegal ABA/routing code"; #!!!
 582   $payinfo2 = $1;
 583
 584   $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
 585   my $payname = $1;
 586
 587   $cgi->param('paystate') =~ /^(.{0,2})$/ or die "illegal paystate";
 588   my $paystate = $1;
 589
 590   $cgi->param('paytype') =~ /^(.{0,80})$/ or die "illegal paytype";
 591   my $paytype = $1;
 592
 593   $cgi->param('ss') =~ /^(.{0,80})$/ or die "illegal ss";
 594   my $ss = $1;
 595
 596   $cgi->param('stateid') =~ /^(.{0,80})$/ or die "illegal stateid";
 597   my $stateid = $1;
 598
 599   $cgi->param('stateid_state') =~ /^(.{0,2})$/ or die "illegal stateid_state";
 600   my $stateid_state = $1;
 601
 602   my $save = 0;
 603   $save = 1 if $cgi->param('save');
 604
 605   my $auto = 0;
 606   $auto = 1 if $cgi->param('auto');
 607
 608   $cgi->param('paybatch') =~ /^([\w\-\.]+)$/ or die "illegal paybatch";
 609   my $paybatch = $1;
 610
 611   process_payment(
 612     'session_id' => $session_id,
 613     'payby'      => 'CHEK',
 614     'amount'     => $amount,
 615     'payinfo1'   => $payinfo1,
 616     'payinfo2'   => $payinfo2,
 617     'month'      => '12',
 618     'year'       => '2037',
 619     'payname'    => $payname,
 620     'paytype'    => $paytype,
 621     'paystate'   => $paystate,
 622     'ss'         => $ss,
 623     'stateid'    => $stateid,
 624     'stateid_state' => $stateid_state,
 625     'save'       => $save,
 626     'auto'       => $auto,
 627     'paybatch'   => $paybatch,
 628   );
 629
 630 }
 631
 632 sub make_thirdparty_payment {
 633   payment_info('session_id' => $session_id);
 634 }
 635
 636 sub post_thirdparty_payment {
 637   $cgi->param('payby_method') =~ /^(CC|ECHECK)$/
 638     or die "illegal payby method";
 639   my $method = $1;
 640   $cgi->param('amount') =~ /^(\d+(\.\d*)?)$/
 641     or die "illegal amount";
 642   my $amount = $1;
 643   my $result = realtime_collect(
 644     'session_id' => $session_id,
 645     'method' => $method,
 646     'amount' => $amount,
 647   );
 648   $result;
 649 }
 650
 651 sub make_term_payment {
 652   $cgi->param('amount') =~ /^(\d+\.\d{2})$/
 653     or die "illegal payment amount";
 654   my $balance = $1;
 655   $cgi->param('discount_term') =~ /^(\d+)$/
 656     or die "illegal discount term";
 657   my $discount_term = $1;
 658   $action = 'make_payment';
 659   ({ %{payment_info( 'session_id' => $session_id )},
 660     'balance' => $balance,
 661     'discount_term' => $discount_term,
 662   })
 663 }
 664
 665 sub recharge_prepay {
 666   customer_info( 'session_id' => $session_id );
 667 }
 668
 669 sub recharge_results {
 670
 671   my $prepaid_cardnum = $cgi->param('prepaid_cardnum');
 672   $prepaid_cardnum =~ s/\W//g;
 673   $prepaid_cardnum =~ /^(\w*)$/ or die "illegal prepaid card number";
 674   $prepaid_cardnum = $1;
 675
 676   process_prepay ( 'session_id'     => $session_id,
 677                    'prepaid_cardnum' => $prepaid_cardnum,
 678                  );
 679 }
 680
 681 sub logout {
 682   FS::SelfService::logout( 'session_id' => $session_id );
 683 }
 684
 685 sub didreport {
 686   my $result = did_report( 'session_id' => $session_id,
 687             'format' => $cgi->param('type'),
 688             'recentonly' => $cgi->param('recentonly'),
 689         );
 690   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 691   $result;
 692 }
 693
 694 sub provision {
 695   my $result = list_pkgs( 'session_id' => $session_id );
 696   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 697   $result->{'pkgpart'} = $cgi->param('pkgpart') if $cgi->param('pkgpart');
 698   $result->{'filter'} = $cgi->param('filter') if $cgi->param('filter');
 699   $result;
 700 }
 701
 702 sub provision_svc {
 703
 704   my $result = part_svc_info(
 705     'session_id' => $session_id,
 706     map { $_ => $cgi->param($_) } qw( pkgnum svcpart ),
 707   );
 708   die $result->{'error'} if exists $result->{'error'} && $result->{'error'};
 709
 710   $result->{'svcdb'} =~ /^svc_(.*)$/
 711     #or return { 'error' => 'Unknown svcdb '. $result->{'svcdb'} };
 712     or die 'Unknown svcdb '. $result->{'svcdb'};
 713   $action .= "_$1";
 714
 715   $result->{'numavail'} = $cgi->param('numavail');
 716   $result->{'lnp'} = $cgi->param('lnp');
 717
 718   $result;
 719 }
 720
 721 sub process_svc_phone {
 722     my @bulkdid = $cgi->param('bulkdid');
 723     my $phonenum = $cgi->param('phonenum');
 724     my $lnp = $cgi->param('lnp');
 725
 726     my $result;
 727     if($lnp) {
 728         $result = provision_phone (
 729             'session_id' => $session_id,
 730             'countrycode' => '1',
 731              map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum
 732                 lnp_desired_due_date lnp_other_provider
 733                 lnp_other_provider_account )
 734         );
 735     } else {
 736         $result = provision_phone (
 737             'session_id' => $session_id,
 738             'bulkdid' => [ @bulkdid ],
 739             'countrycode' => '1',
 740              map { $_ => $cgi->param($_) } qw( pkgnum svcpart phonenum )
 741         );
 742     }
 743
 744     if ( exists $result->{'error'} && $result->{'error'} ) {
 745         $action = 'provision_svc_phone';
 746         return {
 747           $cgi->Vars,
 748           %{ part_svc_info( 'session_id' => $session_id,
 749                         map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
 750               )
 751           },
 752           'error' => $result->{'error'},
 753         };
 754   }
 755
 756   $result;
 757 }
 758
 759 sub process_svc_acct {
 760
 761   my $result = provision_acct (
 762     'session_id' => $session_id,
 763     map { $_ => $cgi->param($_) } qw(
 764       pkgnum svcpart username domsvc _password _password2 sec_phrase popnum )
 765   );
 766
 767   if ( exists $result->{'error'} && $result->{'error'} ) {
 768     #warn "$result $result->{'error'}";
 769     $action = 'provision_svc_acct';
 770     return {
 771       $cgi->Vars,
 772       %{ part_svc_info( 'session_id' => $session_id,
 773                         map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
 774                       )
 775       },
 776       'error' => $result->{'error'},
 777     };
 778   } else {
 779     #warn "$result $result->{'error'}";
 780     return $result;
 781   }
 782
 783 }
 784
 785 sub process_svc_external {
 786   provision_external (
 787     'session_id' => $session_id,
 788     map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
 789   );
 790 }
 791
 792 sub delete_svc {
 793   unprovision_svc(
 794     'session_id' => $session_id,
 795     'svcnum'     => $cgi->param('svcnum'),
 796   );
 797 }
 798
 799 sub view_usage {
 800   list_svcs(
 801     'session_id'  => $session_id,
 802     'svcdb'       => [ 'svc_acct', 'svc_phone', 'svc_port', ],
 803     'ncancelled'  => 1,
 804   );
 805 }
 806
 807 sub real_port_graph {
 808     my $svcnum = $cgi->param('svcnum');
 809     my $res = port_graph(
 810             'session_id'  => $session_id,
 811             'svcnum'      => $svcnum,
 812             'beginning'   => str2time($cgi->param('start')." 00:00:00"),
 813             'ending'    => str2time($cgi->param('end')." 23:59:59"),
 814             );
 815     my @usage = @{$res->{'usage'}};
 816     my $png = $usage[0]->{'png'};
 817     { 'content' => $png, 'format' => 'png' };
 818 }
 819
 820 sub view_port_graph {
 821     my $svcnum = $cgi->param('svcnum');
 822     { 'svcnum' => $svcnum,
 823       'start' => $cgi->param($svcnum.'_start'),
 824       'end' => $cgi->param($svcnum.'_end'),
 825     }
 826 }
 827
 828 sub view_usage_details {
 829       list_svc_usage(
 830         'session_id'  => $session_id,
 831         'svcnum'      => $cgi->param('svcnum'),
 832         'beginning'   => $cgi->param('beginning') || '',
 833         'ending'      => $cgi->param('ending') || '',
 834       );
 835 }
 836
 837 sub view_cdr_details {
 838   list_cdr_usage(
 839     'session_id'  => $session_id,
 840     'svcnum'      => $cgi->param('svcnum'),
 841     'beginning'   => $cgi->param('beginning') || '',
 842     'ending'      => $cgi->param('ending') || '',
 843   );
 844 }
 845
 846 sub view_support_details {
 847   list_support_usage(
 848     'session_id'  => $session_id,
 849     'svcnum'      => $cgi->param('svcnum'),
 850     'beginning'   => $cgi->param('beginning') || '',
 851     'ending'      => $cgi->param('ending') || '',
 852   );
 853 }
 854
 855 sub change_password {
 856   list_svcs(
 857     'session_id' => $session_id,
 858     'svcdb'      => 'svc_acct',
 859   );
 860 };
 861
 862 sub process_change_password {
 863
 864   my $result = myaccount_passwd(
 865     'session_id'    => $session_id,
 866     map { $_ => $cgi->param($_) } qw( svcnum new_password new_password2 )
 867   );
 868
 869   if ( exists $result->{'error'} && $result->{'error'} ) {
 870
 871     $action = 'change_password';
 872     return {
 873       $cgi->Vars,
 874       %{ list_svcs( 'session_id' => $session_id,
 875                     'svcdb'      => 'svc_acct',
 876                   )
 877        },
 878       #'svcnum' => $cgi->param('svcnum'),
 879       'error'  => $result->{'error'}
 880     };
 881
 882  } else {
 883
 884    return $result;
 885
 886  }
 887
 888 }
 889
 890 #--
 891
 892 sub do_template {
 893   my $name = shift;
 894   my $fill_in = shift;
 895
 896   $cgi->delete_all();
 897   $fill_in->{'selfurl'} = $cgi->self_url;
 898   $fill_in->{'cgi'} = \$cgi;
 899
 900   my $access_info = $session_id
 901                       ? access_info( 'session_id' => $session_id )
 902                       : {};
 903   $fill_in->{$_} = $access_info->{$_} foreach keys %$access_info;
 904
 905
 906     if($result && ref($result) && $result->{'format'} && $result->{'content'}
 907         && $result->{'format'} eq 'csv') {
 908         print $cgi->header('-expires' => 'now',
 909                 '-Content-Type' => 'text/csv',
 910                 '-Content-Disposition' => "attachment;filename=output.csv",
 911                 ),
 912             $result->{'content'};
 913     }
 914     elsif($result && ref($result) && $result->{'format'} && $result->{'content'}
 915          && $result->{'format'} eq 'xls') {
 916         print $cgi->header('-expires' => 'now',
 917                     '-Content-Type' => 'application/vnd.ms-excel',
 918                     '-Content-Disposition' => "attachment;filename=output.xls",
 919                     '-Content-Length' => length($result->{'content'}),
 920                     ),
 921                     $result->{'content'};
 922     }
 923     elsif($result && ref($result) && $result->{'format'} && $result->{'content'}
 924          && $result->{'format'} eq 'png') {
 925         print $cgi->header('-expires' => 'now',
 926                     '-Content-Type' => 'image/png',
 927                     ),
 928                     $result->{'content'};
 929     }
 930     else {
 931         my $source = "$template_dir/$name.html";
 932         my $template = new Text::Template( TYPE       => 'FILE',
 933                                          SOURCE     => $source,
 934                                          DELIMITERS => [ '<%=', '%>' ],
 935                                          UNTAINT    => 1,
 936                                        )
 937         or die $Text::Template::ERROR;
 938
 939         my $data = $template->fill_in(
 940             PACKAGE => 'FS::SelfService::_selfservicecgi',
 941             HASH    => $fill_in,
 942           ) || "Error processing template $source"; # at least print _something_
 943           print $cgi->header( '-expires' => 'now' );
 944           print $data;
 945     }
 946  }
 947
 948 #*FS::SelfService::_selfservicecgi::include = \&Text::Template::fill_in_file;
 949
 950 package FS::SelfService::_selfservicecgi;
 951
 952 use HTML::Entities;
 953 use FS::SelfService qw(
 954     regionselector popselector domainselector location_form didselector
 955 );
 956
 957 #false laziness w/agent.cgi
 958 use vars qw(@INCLUDE_ARGS);
 959 sub include {
 960   my $name = shift;
 961
 962   @INCLUDE_ARGS = @_;
 963
 964   my $template = new Text::Template( TYPE   => 'FILE',
 965                                      SOURCE => "$main::template_dir/$name.html",
 966                                      DELIMITERS => [ '<%=', '%>' ],
 967                                      UNTAINT => 1,
 968                                    )
 969     or die $Text::Template::ERROR;
 970
 971   $template->fill_in( PACKAGE => 'FS::SelfService::_selfservicecgi',
 972                       #HASH    => $fill_in
 973                     );
 974
 975 }
 976
 977 1;