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