summaryrefslogtreecommitdiff
path: root/httemplate/misc/process
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/process')
-rw-r--r--httemplate/misc/process/batch-cust_pay.cgi47
-rwxr-xr-xhttemplate/misc/process/bulk_change_pkg.cgi56
-rwxr-xr-xhttemplate/misc/process/cancel_pkg.html79
-rwxr-xr-xhttemplate/misc/process/catchall.cgi35
-rw-r--r--httemplate/misc/process/cdr-import.html22
-rw-r--r--httemplate/misc/process/cust_main-import.cgi28
-rw-r--r--httemplate/misc/process/cust_main-import_charges.cgi23
-rw-r--r--httemplate/misc/process/cust_main_note-import.cgi82
-rw-r--r--httemplate/misc/process/cust_pay-import.cgi21
-rwxr-xr-xhttemplate/misc/process/delete-customer.cgi33
-rw-r--r--httemplate/misc/process/inventory_item-import.html22
-rwxr-xr-xhttemplate/misc/process/link.cgi72
-rw-r--r--httemplate/misc/process/meta-import.cgi190
-rw-r--r--httemplate/misc/process/payment.cgi183
-rwxr-xr-xhttemplate/misc/process/recharge_svc.html92
-rw-r--r--httemplate/misc/process/timeworked.html57
16 files changed, 0 insertions, 1042 deletions
diff --git a/httemplate/misc/process/batch-cust_pay.cgi b/httemplate/misc/process/batch-cust_pay.cgi
deleted file mode 100644
index 058a225..0000000
--- a/httemplate/misc/process/batch-cust_pay.cgi
+++ /dev/null
@@ -1,47 +0,0 @@
-% die "access denied"
-% unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch');
-%
-% my $param = $cgi->Vars;
-%
-% #my $paybatch = $param->{'paybatch'};
-% my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
-%
-% my @cust_pay = ();
-% #my $row = 0;
-% #while ( exists($param->{"custnum$row"}) ) {
-% for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) {
-% push @cust_pay, new FS::cust_pay {
-% 'custnum' => $param->{"custnum$row"},
-% 'paid' => $param->{"paid$row"},
-% 'payby' => 'BILL',
-% 'payinfo' => $param->{"payinfo$row"},
-% 'paybatch' => $paybatch,
-% }
-% if $param->{"custnum$row"}
-% || $param->{"paid$row"}
-% || $param->{"payinfo$row"};
-% #$row++;
-% }
-%
-% my @errors = FS::cust_pay->batch_insert(@cust_pay);
-% my $num_errors = scalar(grep $_, @errors);
-%
-% if ( $num_errors ) {
-%
-% $cgi->param('error', "$num_errors error". ($num_errors>1 ? 's' : '').
-% ' - Batch not processed, correct and resubmit'
-% );
-%
-% my $erow=0;
-% $cgi->param('error'. $erow++, shift @errors) while @errors;
-%
-%
-<% $cgi->redirect($p.'batch-cust_pay.html?'. $cgi->query_string)
-
- %>
-% } else {
-%
-%
-<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %>
-% }
-
diff --git a/httemplate/misc/process/bulk_change_pkg.cgi b/httemplate/misc/process/bulk_change_pkg.cgi
deleted file mode 100755
index d2ab4bf..0000000
--- a/httemplate/misc/process/bulk_change_pkg.cgi
+++ /dev/null
@@ -1,56 +0,0 @@
-% if ($error) {
-<% $cgi->redirect(popurl(2)."/bulk_change_pkg.cgi?".$cgi->query_string ) %>
-% }
-<% include('/elements/header-popup.html', "Packages Changed") %>
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages');
-
-my %search_hash = ();
-
-$search_hash{'query'} = $cgi->param('query');
-
-for my $param (qw(agentnum magic status classnum pkgpart)) {
- $search_hash{$param} = $cgi->param($param)
- if $cgi->param($param);
-}
-
-###
-# parse dates
-###
-
-#false laziness w/report_cust_pkg.html
-my %disable = (
- 'all' => {},
- 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, },
- 'active' => { 'susp'=>1, 'cancel'=>1 },
- 'suspended' => { 'cancel' => 1 },
- 'cancelled' => {},
- '' => {},
-);
-
-foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
-
- my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);
-
- next if $beginning == 0 && $ending == 4294967295
- or $disable{$cgi->param('status')}->{$field};
-
- $search_hash{$field} = [ $beginning, $ending ];
-
-}
-
-my $sql_query = FS::cust_pkg->search_sql(\%search_hash);
-$sql_query->{'select'} = 'cust_pkg.pkgnum';
-
-my $error = FS::cust_pkg::bulk_change( [ $cgi->param('new_pkgpart') ],
- [ map { $_->pkgnum } qsearch($sql_query) ],
- );
-
-$cgi->param("error", substr($error, 0, 512)); # arbitrary length believed
- # suited for all supported
- # browsers
-
-
-</%init>
diff --git a/httemplate/misc/process/cancel_pkg.html b/httemplate/misc/process/cancel_pkg.html
deleted file mode 100755
index d265c18..0000000
--- a/httemplate/misc/process/cancel_pkg.html
+++ /dev/null
@@ -1,79 +0,0 @@
-<% header("Package $past{$method}") %>
- <SCRIPT TYPE="text/javascript">
- window.top.location.reload();
- </SCRIPT>
- </BODY>
-</HTML>
-<%once>
-
-my %past = ( 'cancel' => 'cancelled',
- 'expire' => 'expired',
- 'suspend' => 'suspended',
- 'adjourn' => 'adjourned',
- );
-
-#i'm sure this is false laziness with somewhere, at least w/misc/cancel_pkg.html
-my %right = ( 'cancel' => 'Cancel customer package immediately',
- 'expire' => 'Cancel customer package later',
- 'suspend' => 'Suspend customer package',
- 'adjourn' => 'Suspend customer package later',
- );
-
-</%once>
-<%init>
-
-#untaint method
-my $method = $cgi->param('method');
-$method =~ /^(cancel|expire|suspend|adjourn)$/ or die "Illegal method";
-$method = $1;
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right($right{$method});
-
-#untaint pkgnum
-my $pkgnum = $cgi->param('pkgnum');
-$pkgnum =~ /^(\d+)$/ or die "Illegal pkgnum";
-$pkgnum = $1;
-
-#untaint reasonnum
-my $reasonnum = $cgi->param('reasonnum');
-$reasonnum =~ /^(-?\d+)$/ or die "Illegal reasonnum";
-$reasonnum = $1;
-
-my $date = time;
-if ($method eq 'expire' || $method eq 'adjourn'){
- #untaint date
- $date = $cgi->param('date');
- str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
- $date = $1;
-}
-
-my $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
-
-#my $otaker = $FS::CurrentUser::CurrentUser->name;
-#$otaker = $FS::CurrentUser::CurrentUser->username
-# if ($otaker eq "User, Legacy");
-
-if ($reasonnum == -1) {
- $reasonnum = {
- 'typenum' => scalar( $cgi->param('newreasonnumT') ),
- 'reason' => scalar( $cgi->param('newreasonnum' ) ),
- };
-}
-
-my $error;
-if ($method eq 'expire' || $method eq 'adjourn'){
- my %hash = $cust_pkg->hash;
- $hash{$method} = $date;
- my $new = new FS::cust_pkg \%hash;
- $error = $new->replace($cust_pkg, 'reason' => $reasonnum);
-} else {
- $error = $cust_pkg->$method( 'reason' => $reasonnum );
-}
-
-if ($error) {
- $cgi->param('error', $error);
- print $cgi->redirect(popurl(2). "cancel_pkg.html?". $cgi->query_string );
-}
-
-</%init>
diff --git a/httemplate/misc/process/catchall.cgi b/httemplate/misc/process/catchall.cgi
deleted file mode 100755
index 0dda2ea..0000000
--- a/httemplate/misc/process/catchall.cgi
+++ /dev/null
@@ -1,35 +0,0 @@
-%if ($error) {
-% $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "catchall.cgi?". $cgi->query_string ) %>
-%} else {
-<% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum") %>
-%}
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall');
-
-$FS::svc_domain::whois_hack=1;
-
-$cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
-my $svcnum =$1;
-
-my $old = qsearchs('svc_domain',{'svcnum'=>$svcnum}) if $svcnum;
-
-my $new = new FS::svc_domain ( {
- map {
- ($_, scalar($cgi->param($_)));
- } ( fields('svc_domain'), qw( pkgnum svcpart ) )
-} );
-
-$new->setfield('action' => 'M');
-
-my $error;
-if ( $svcnum ) {
- $error = $new->replace($old);
-} else {
- $error = $new->insert;
- $svcnum = $new->getfield('svcnum');
-}
-
-</%init>
diff --git a/httemplate/misc/process/cdr-import.html b/httemplate/misc/process/cdr-import.html
deleted file mode 100644
index 4848fa3..0000000
--- a/httemplate/misc/process/cdr-import.html
+++ /dev/null
@@ -1,22 +0,0 @@
-% if ( $error ) {
-% errorpage($error);
-% } else {
- <% include("/elements/header.html",'Import successful') %>
- <!-- XXX redirect to batch search like the payment entry... -->
- <% include("/elements/footer.html",'Import successful') %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-
-my $error = defined($fh)
- ? FS::cdr::batch_import( {
- 'filehandle' => $fh,
- 'format' => $cgi->param('format'),
- } )
- : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main-import.cgi b/httemplate/misc/process/cust_main-import.cgi
deleted file mode 100644
index aa8cd52..0000000
--- a/httemplate/misc/process/cust_main-import.cgi
+++ /dev/null
@@ -1,28 +0,0 @@
-% if ( $error ) {
-% errorpage($error);
-% } else {
- <% include('/elements/header.html','Import successful') %>
- <% include('/elements/footer.html') %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-#warn $cgi;
-#warn $fh;
-
-my $error = defined($fh)
- ? FS::cust_main::batch_import( {
- filehandle => $fh,
- agentnum => scalar($cgi->param('agentnum')),
- refnum => scalar($cgi->param('refnum')),
- pkgpart => scalar($cgi->param('pkgpart')),
- #'fields' => [qw( cust_pkg.setup dayphone first last address1 address2
- # city state zip comments )],
- 'format' => scalar($cgi->param('format')),
- } )
- : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main-import_charges.cgi b/httemplate/misc/process/cust_main-import_charges.cgi
deleted file mode 100644
index 3ca6894..0000000
--- a/httemplate/misc/process/cust_main-import_charges.cgi
+++ /dev/null
@@ -1,23 +0,0 @@
-% if ( $error ) {
-% errorpage($error);
-% } else {
- <% include('/elements/header.html','Import successful') %>
- <% include('/elements/footer.html') %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('csvfile');
-#warn $cgi;
-#warn $fh;
-
-my $error = defined($fh)
- ? FS::cust_main::batch_charge( {
- filehandle => $fh,
- 'fields' => [qw( custnum amount pkg )],
- } )
- : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/cust_main_note-import.cgi b/httemplate/misc/process/cust_main_note-import.cgi
deleted file mode 100644
index 6aa8b1d..0000000
--- a/httemplate/misc/process/cust_main_note-import.cgi
+++ /dev/null
@@ -1,82 +0,0 @@
-<% include("/elements/header.html", "Batch Customer Note Import $op") %>
-
-The following items <% $op eq 'Preview' ? 'would not be' : 'were not' %> imported. (See below for imported items)
-<PRE>
-% foreach my $row (@uninserted) {
-% $csv->combine( (map{ $row->{$_} } qw(last first note) ),
-% $row->{error} ? ('#!', $row->{error}) : (),
-% );
-<% $csv->string %>
-% }
-</PRE>
-
-The following items <% $op eq 'Preview' ? 'would be' : 'were' %> imported. (See above for unimported items)
-
-<PRE>
-% foreach my $row (@inserted) {
-% $csv->combine( (map{ $row->{$_} } qw(custnum last first note) ),
-% ('#!', $row->{name}),
-% );
-<% $csv->string %>
-% }
-</PRE>
-
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $date = time;
-my $otaker = $FS::CurrentUser::CurrentUser->username;
-my $csv = new Text::CSV_XS;
-
-my $param = $cgi->Vars;
-
-my $op = $param->{preview} ? "Preview" : "Results";
-
-my @inserted = ();
-my @uninserted = ();
-for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) {
- if ( $param->{"custnum$row"} ) {
-# my $cust_main_note = new FS::cust_main_note {
-# 'custnum' => $param->{"custnum$row"},
-# '_date' => $date,
-# 'otaker' => $otaker,
-# 'comments' => $param->{"note$row"},
-# };
-# my $error = '';
-# $error = $cust_main_note->insert unless ($op eq "Preview");
- my $cust_main = qsearchs('cust_main',
- { 'custnum' => $param->{"custnum$row"} }
- );
- my $error;
- if ($cust_main) {
- $cust_main->comments
- ? $cust_main->comments($cust_main->comments. " ". $param->{"note$row"})
- : $cust_main->comments($param->{"note$row"});
- $error = $cust_main->replace;
- }else{
- $error = "Can't find customer " . $param->{"custnum$row"};
- }
- my $result = { 'custnum' => $param->{"custnum$row"},
- 'last' => $param->{"last$row"},
- 'first' => $param->{"first$row"},
- 'note' => $param->{"note$row"},
- 'name' => $param->{"name$row"},
- 'error' => $error,
- };
- if ($error) {
- push @uninserted, $result;
- }else{
- push @inserted, $result;
- }
- }else{
- push @uninserted, { 'custnum' => '',
- 'last' => $param->{"last$row"},
- 'first' => $param->{"first$row"},
- 'note' => $param->{"note$row"},
- 'error' => '',
- };
- }
-}
-</%init>
diff --git a/httemplate/misc/process/cust_pay-import.cgi b/httemplate/misc/process/cust_pay-import.cgi
deleted file mode 100644
index d4ff226..0000000
--- a/httemplate/misc/process/cust_pay-import.cgi
+++ /dev/null
@@ -1,21 +0,0 @@
-<% $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %>
-<%init>
-
-my $fh = $cgi->upload('csvfile');
-
-# webbatch? I suppose
-my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
-
-my $error = defined($fh)
- ? FS::cust_pay::batch_import( {
- 'filehandle' => $fh,
- 'agentnum' => scalar($cgi->param('agentnum')),
- 'format' => scalar($cgi->param('format')),
- 'paybatch' => $paybatch,
- } )
- : 'No file';
-
-errorpage($error)
- if ( $error );
-
-</%init>
diff --git a/httemplate/misc/process/delete-customer.cgi b/httemplate/misc/process/delete-customer.cgi
deleted file mode 100755
index d509a5e..0000000
--- a/httemplate/misc/process/delete-customer.cgi
+++ /dev/null
@@ -1,33 +0,0 @@
-%if ( $error ) {
-% $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "delete-customer.cgi?". $cgi->query_string ) %>
-%} elsif ( $new_custnum ) {
-<% $cgi->redirect(popurl(3). "view/cust_main.cgi?$new_custnum") %>
-%} else {
-<% $cgi->redirect(popurl(3)) %>
-%}
-<%init>
-
-my $conf = new FS::Conf;
-die "Customer deletions not enabled in configuration"
- unless $conf->exists('deletecustomers');
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Delete customer');
-
-$cgi->param('custnum') =~ /^(\d+)$/;
-my $custnum = $1;
-my $new_custnum;
-if ( $cgi->param('new_custnum') ) {
- $cgi->param('new_custnum') =~ /^(\d+)$/
- or die "Illegal new customer number: ". $cgi->param('new_custnum');
- $new_custnum = $1;
-} else {
- $new_custnum = '';
-}
-my $cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
- or die "Customer not found: $custnum";
-
-my $error = $cust_main->delete($new_custnum);
-
-</%init>
diff --git a/httemplate/misc/process/inventory_item-import.html b/httemplate/misc/process/inventory_item-import.html
deleted file mode 100644
index 3aae202..0000000
--- a/httemplate/misc/process/inventory_item-import.html
+++ /dev/null
@@ -1,22 +0,0 @@
-% if ( $error ) {
-% errorpage($error);
-% } else {
- <% include("/elements/header.html",'Import successful') %>
- <!-- XXX redirect to batch search like the payment entry... -->
- <% include("/elements/footer.html",'Import successful') %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
-
-my $fh = $cgi->upload('filename');
-
-my $error = defined($fh)
- ? FS::inventory_item::batch_import( {
- 'filehandle' => $fh,
- 'classnum' => $cgi->param('classnum'),
- } )
- : 'No file';
-
-</%init>
diff --git a/httemplate/misc/process/link.cgi b/httemplate/misc/process/link.cgi
deleted file mode 100755
index df15dca..0000000
--- a/httemplate/misc/process/link.cgi
+++ /dev/null
@@ -1,72 +0,0 @@
-%unless ($error) {
-% #no errors, so let's view this customer.
-% my $custnum = $new->cust_pkg->custnum;
-<% $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum#cust_pkg$pkgnum" ) %>
-%} else {
-% errorpage($error);
-%}
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('View/link unlinked services');
-
-my $DEBUG = 0;
-
-$cgi->param('pkgnum') =~ /^(\d+)$/;
-my $pkgnum = $1;
-$cgi->param('svcpart') =~ /^(\d+)$/;
-my $svcpart = $1;
-$cgi->param('svcnum') =~ /^(\d*)$/;
-my $svcnum = $1;
-
-unless ( $svcnum ) {
- my $part_svc = qsearchs('part_svc',{'svcpart'=>$svcpart});
- my $svcdb = $part_svc->getfield('svcdb');
- $cgi->param('link_field') =~ /^(\w+)$/;
- my $link_field = $1;
- my %search = ( $link_field => $cgi->param('link_value') );
- if ( $cgi->param('link_field2') =~ /^(\w+)$/ ) {
- $search{$1} = $cgi->param('link_value2');
- }
-
- my @svc_x = ( sort { ($a->cust_svc->pkgnum > 0) <=> ($b->cust_svc->pkgnum > 0)
- or ($b->cust_svc->svcpart == $svcpart)
- <=> ($a->cust_svc->svcpart == $svcpart)
- }
- qsearch( $svcdb, \%search )
- );
-
- if ( $DEBUG ) {
- warn scalar(@svc_x). " candidate accounts found for linking ".
- "(svcpart $svcpart):\n";
- foreach my $svc_x ( @svc_x ) {
- warn " ". $svc_x->email.
- " (svcnum ". $svc_x->svcnum. ",".
- " pkgnum ". $svc_x->cust_svc->pkgnum. ",".
- " svcpart ". $svc_x->cust_svc->svcpart. ")\n";
- }
- }
-
- my $svc_x = $svc_x[0];
-
- errorpage("$link_field not found!") unless $svc_x;
-
- $svcnum = $svc_x->svcnum;
-
-}
-
-my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum});
-die "svcnum not found!" unless $old;
-my $conf = new FS::Conf;
-my($error, $new);
-if ( $old->pkgnum && ! $conf->exists('legacy_link-steal') ) {
- $error = "svcnum $svcnum already linked to package ". $old->pkgnum;
-} else {
- $new = new FS::cust_svc { $old->hash };
- $new->pkgnum($pkgnum);
- $new->svcpart($svcpart);
-
- $error = $new->replace($old);
-}
-
-</%init>
diff --git a/httemplate/misc/process/meta-import.cgi b/httemplate/misc/process/meta-import.cgi
deleted file mode 100644
index 68ae49c..0000000
--- a/httemplate/misc/process/meta-import.cgi
+++ /dev/null
@@ -1,190 +0,0 @@
-<% include("/elements/header.html",'Map tables') %>
-
-<SCRIPT>
-var gSafeOnload = new Array();
-var gSafeOnsubmit = new Array();
-window.onload = SafeOnload;
-function SafeAddOnLoad(f) {
- gSafeOnload[gSafeOnload.length] = f;
-}
-function SafeOnload() {
- for (var i=0;i<gSafeOnload.length;i++)
- gSafeOnload[i]();
-}
-function SafeAddOnSubmit(f) {
- gSafeOnsubmit[gSafeOnsubmit.length] = f;
-}
-function SafeOnsubmit() {
- for (var i=0;i<gSafeOnsubmit.length;i++)
- gSafeOnsubmit[i]();
-}
-</SCRIPT>
-
-<FORM NAME="OneTrueForm" METHOD="POST" ACTION="meta-import.cgi">
-%
-% #use DBIx::DBSchema;
-% my $schema = new_native DBIx::DBSchema
-% map { $cgi->param($_) } qw( data_source username password );
-% foreach my $field (qw( data_source username password )) {
-
- <INPUT TYPE="hidden" NAME=<% $field %> VALUE="<% $cgi->param($field) %>">
-% }
-%
-% my %schema;
-% use Tie::DxHash;
-% tie %schema, 'Tie::DxHash';
-% if ( $cgi->param('schema') ) {
-% my $schema_string = $cgi->param('schema');
-%
- <INPUT TYPE="hidden" NAME="schema" VALUE="<%$schema_string%>">
-%
-% %schema = map { /^\s*(\w+)\s*=>\s*(\w+)\s*$/
-% or die "guru meditation #420: $_";
-% ( $1 => $2 );
-% }
-% split( /\n/, $schema_string );
-% }
-%
-% #first page
-% unless ( $cgi->param('magic') ) {
-
-
- <INPUT TYPE="hidden" NAME="magic" VALUE="process">
- <% hashmaker('schema', [ $schema->tables ],
- [ grep !/^h_/, dbdef->tables ], ) %>
- <br><INPUT TYPE="submit" VALUE="done">
-%
-%
-% #second page
-% } elsif ( $cgi->param('magic') eq 'process' ) {
-
-
- <INPUT TYPE="hidden" NAME="magic" VALUE="process2">
-%
-%
-% my %unique;
-% foreach my $table ( keys %schema ) {
-%
-% my @from_columns = $schema->table($table)->columns;
-% my @fs_columns = dbdef->table($schema{$table})->columns;
-%
-%
-
- <% hashmaker( $table.'__'.$unique{$table}++,
- \@from_columns => \@fs_columns,
- $table => $schema{$table}, ) %>
- <br><hr><br>
-%
-%
-% }
-%
-%
-
- <br><INPUT TYPE="submit" VALUE="done">
-%
-%
-% #third (results)
-% } elsif ( $cgi->param('magic') eq 'process2' ) {
-%
-% print "<pre>\n";
-%
-% my %unique;
-% foreach my $table ( keys %schema ) {
-% ( my $spaces = $table ) =~ s/./ /g;
-% print "'$table' => { 'table' => '$schema{$table}',\n".
-% #(length($table) x ' '). " 'map' => {\n";
-% "$spaces 'map' => {\n";
-% my %map = map { /^\s*(\w+)\s*=>\s*(\w+)\s*$/
-% or die "guru meditation #420: $_";
-% ( $1 => $2 );
-% }
-% split( /\n/, $cgi->param($table.'__'.$unique{$table}++) );
-% foreach ( keys %map ) {
-% print "$spaces '$_' => '$map{$_}',\n";
-% }
-% print "$spaces },\n";
-% print "$spaces },\n";
-%
-% }
-% print "\n</pre>";
-%
-% } else {
-% warn "unrecognized magic: ". $cgi->param('magic');
-% }
-%
-%
-
-</FORM>
-</BODY>
-</HTML>
-%
-% #hashmaker widget
-% sub hashmaker {
-% my($name, $from, $to, $labelfrom, $labelto) = @_;
-% my $fromsize = scalar(@$from);
-% my $tosize = scalar(@$to);
-% "<TABLE><TR><TH>$labelfrom</TH><TH>$labelto</TH></TR><TR><TD>".
-% qq!<SELECT NAME="${name}_from" SIZE=$fromsize>\n!.
-% join("\n", map { qq!<OPTION VALUE="$_">$_</OPTION>! } sort { $a cmp $b } @$from ).
-% "</SELECT>\n<BR>".
-% qq!<INPUT TYPE="button" VALUE="refill" onClick="repack_${name}_from()">!.
-% '</TD><TD>'.
-% qq!<SELECT NAME="${name}_to" SIZE=$tosize>\n!.
-% join("\n", map { qq!<OPTION VALUE="$_">$_</OPTION>! } sort { $a cmp $b } @$to ).
-% "</SELECT>\n<BR>".
-% qq!<INPUT TYPE="button" VALUE="refill" onClick="repack_${name}_to()">!.
-% '</TD></TR>'.
-% '<TR><TD COLSPAN=2>'.
-% qq!<INPUT TYPE="button" VALUE="map" onClick="toke_$name(this.form)">!.
-% '</TD></TR><TR><TD COLSPAN=2>'.
-% qq!<TEXTAREA NAME="$name" COLS=80 ROWS=8></TEXTAREA>!.
-% '</TD></TR></TABLE>'.
-% "<script>
-% function toke_$name() {
-% fromObject = document.OneTrueForm.${name}_from;
-% for (var i=fromObject.options.length-1;i>-1;i--) {
-% if (fromObject.options[i].selected)
-% fromname = deleteOption_$name(fromObject,i);
-% }
-% toObject = document.OneTrueForm.${name}_to;
-% for (var i=toObject.options.length-1;i>-1;i--) {
-% if (toObject.options[i].selected)
-% toname = deleteOption_$name(toObject,i);
-% }
-% document.OneTrueForm.$name.value = document.OneTrueForm.$name.value + fromname + ' => ' + toname + '\\n';
-% }
-% function deleteOption_$name(object,index) {
-% value = object.options[index].value;
-% object.options[index] = null;
-% return value;
-% }
-% function repack_${name}_from() {
-% var object = document.OneTrueForm.${name}_from;
-% object.options.length = 0;
-% ". join("\n",
-% map { "addOption_$name(object, '$_');\n" }
-% ( sort { $a cmp $b } @$from ) ). "
-% }
-% function repack_${name}_to() {
-% var object = document.OneTrueForm.${name}_to;
-% object.options.length = 0;
-% ". join("\n",
-% map { "addOption_$name(object, '$_');\n" }
-% ( sort { $a cmp $b } @$to ) ). "
-% }
-% function addOption_$name(object,value) {
-% var length = object.length;
-% object.options[length] = new Option(value, value, false, false);
-% }
-% </script>".
-% '';
-% }
-%
-%
-<%init>
-
-#there's no ACL for this... haven't used in ages
-#make XSS-safe if this is used for more than just admins to import data....
-die 'meta-import not enabled; remove this if you want to use it';
-
-</%init>
diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi
deleted file mode 100644
index 2baca1e..0000000
--- a/httemplate/misc/process/payment.cgi
+++ /dev/null
@@ -1,183 +0,0 @@
-% if ( $cgi->param('batch') ) {
-
- <% include( '/elements/header.html', ucfirst($type{$payby}). ' processing successful',
- include('/elements/menubar.html'),
-
- )
- %>
-
- <% include( '/elements/small_custview.html', $cust_main, '', '', popurl(3). "view/cust_main.cgi" ) %>
-
- <% include('/elements/footer.html') %>
-
-% } else {
-<% $cgi->redirect(popurl(3). "view/cust_pay.html?paynum=$paynum" ) %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Process payment');
-
-#some false laziness w/MyAccount::process_payment
-
-$cgi->param('custnum') =~ /^(\d+)$/
- or die "illegal custnum ". $cgi->param('custnum');
-my $custnum = $1;
-
-my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
-die "unknown custnum $custnum" unless $cust_main;
-
-$cgi->param('amount') =~ /^\s*(\d*(\.\d\d)?)\s*$/
- or errorpage("illegal amount ". $cgi->param('amount'));
-my $amount = $1;
-errorpage("amount <= 0") unless $amount > 0;
-
-$cgi->param('year') =~ /^(\d+)$/
- or errorpage("illegal year ". $cgi->param('year'));
-my $year = $1;
-
-$cgi->param('month') =~ /^(\d+)$/
- or errorpage("illegal month ". $cgi->param('month'));
-my $month = $1;
-
-$cgi->param('payby') =~ /^(CARD|CHEK)$/
- or errorpage("illegal payby ". $cgi->param('payby'));
-my $payby = $1;
-my %payby2fields = (
- 'CARD' => [ qw( address1 address2 city state zip ) ],
- 'CHEK' => [ qw( ss paytype paystate stateid stateid_state ) ],
-);
-my %type = ( 'CARD' => 'credit card',
- 'CHEK' => 'electronic check (ACH)',
- );
-
-$cgi->param('payname') =~ /^([\w \,\.\-\']+)$/
- or errorpage(gettext('illegal_name'). " payname: ". $cgi->param('payname'));
-my $payname = $1;
-
-$cgi->param('payunique') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]*)$/
- or errorpage(gettext('illegal_text'). " payunique: ". $cgi->param('payunique'));
-my $payunique = $1;
-
-$cgi->param('balance') =~ /^\s*(\-?\s*\d*(\.\d\d)?)\s*$/
- or errorpage("illegal balance");
-my $balance = $1;
-
-my $payinfo;
-my $paycvv = '';
-if ( $payby eq 'CHEK' ) {
-
- if ($cgi->param('payinfo1') =~ /xx/i || $cgi->param('payinfo2') =~ /xx/i ) {
- $payinfo = $cust_main->payinfo;
- } else {
- $cgi->param('payinfo1') =~ /^(\d+)$/
- or errorpage("illegal account number ". $cgi->param('payinfo1'));
- my $payinfo1 = $1;
- $cgi->param('payinfo2') =~ /^(\d+)$/
- or errorpage("illegal ABA/routing number ". $cgi->param('payinfo2'));
- my $payinfo2 = $1;
- $payinfo = $payinfo1. '@'. $payinfo2;
- }
-
-} elsif ( $payby eq 'CARD' ) {
-
- $payinfo = $cgi->param('payinfo');
- if ($payinfo eq $cust_main->paymask) {
- $payinfo = $cust_main->payinfo;
- }
- $payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,16})$/
- or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo;
- $payinfo = $1;
- validate($payinfo)
- or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo;
- errorpage(gettext('unknown_card_type'))
- if cardtype($payinfo) eq "Unknown";
-
- if ( defined $cust_main->dbdef_table->column('paycvv') ) {
- if ( length($cgi->param('paycvv') ) ) {
- if ( cardtype($payinfo) eq 'American Express card' ) {
- $cgi->param('paycvv') =~ /^(\d{4})$/
- or errorpage("CVV2 (CID) for American Express cards is four digits.");
- $paycvv = $1;
- } else {
- $cgi->param('paycvv') =~ /^(\d{3})$/
- or errorpage("CVV2 (CVC2/CID) is three digits.");
- $paycvv = $1;
- }
- }
- }
-
-} else {
- die "unknown payby $payby";
-}
-
-my $error = '';
-my $paynum = '';
-if ( $cgi->param('batch') ) {
-
- $error = $cust_main->batch_card(
- 'payby' => $payby,
- 'amount' => $amount,
- 'payinfo' => $payinfo,
- 'paydate' => "$year-$month-01",
- 'payname' => $payname,
- map { $_ => $cgi->param($_) }
- @{$payby2fields{$payby}}
- );
- errorpage($error) if $error;
-
-} else {
-
- $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
- 'quiet' => 1,
- 'manual' => 1,
- 'balance' => $balance,
- 'payinfo' => $payinfo,
- 'paydate' => "$year-$month-01",
- 'payname' => $payname,
- 'payunique' => $payunique,
- 'paycvv' => $paycvv,
- 'paynum_ref' => \$paynum,
- map { $_ => $cgi->param($_) } @{$payby2fields{$payby}}
- );
- errorpage($error) if $error;
-
- $cust_main->apply_payments;
-
-}
-
-if ( $cgi->param('save') ) {
- my $new = new FS::cust_main { $cust_main->hash };
- if ( $payby eq 'CARD' ) {
- $new->set( 'payby' => ( $cgi->param('auto') ? 'CARD' : 'DCRD' ) );
- } elsif ( $payby eq 'CHEK' ) {
- $new->set( 'payby' => ( $cgi->param('auto') ? 'CHEK' : 'DCHK' ) );
- } else {
- die "unknown payby $payby";
- }
- $new->set( 'payinfo' => $payinfo );
- $new->set( 'paydate' => "$year-$month-01" );
- $new->set( 'payname' => $payname );
-
- #false laziness w/FS:;cust_main::realtime_bop - check both to make sure
- # working correctly
- my $conf = new FS::Conf;
- if ( $payby eq 'CARD' &&
- grep { $_ eq cardtype($payinfo) } $conf->config('cvv-save') ) {
- $new->set( 'paycvv' => $paycvv );
- } else {
- $new->set( 'paycvv' => '');
- }
-
- $new->set( $_ => $cgi->param($_) ) foreach @{$payby2fields{$payby}};
-
- my $error = $new->replace($cust_main);
- errorpage("payment processed successfully, but error saving info: $error")
- if $error;
- $cust_main = $new;
-}
-
-#success!
-
-</%init>
diff --git a/httemplate/misc/process/recharge_svc.html b/httemplate/misc/process/recharge_svc.html
deleted file mode 100755
index 147b953..0000000
--- a/httemplate/misc/process/recharge_svc.html
+++ /dev/null
@@ -1,92 +0,0 @@
-%unless ($error) {
-%
-% my ($amount, $seconds, $up, $down, $total) = (0, 0, 0, 0, 0);
-% #should probably use payby.pm but whatever
-% if ($payby eq 'PREP') {
-% $error = $cust_main->get_prepay($prepaid, \$amount, \$seconds, \$up, \$down, \$total)
-% || $svc_acct->increment_seconds($seconds)
-% || $svc_acct->increment_upbytes($up)
-% || $svc_acct->increment_downbytes($down)
-% || $svc_acct->increment_totalbytes($total)
-% || $cust_main->insert_cust_pay_prepay( $amount, $prepaid );
-% } elsif ( $payby =~ /^(CARD|DCRD|CHEK|DCHK|LECB|BILL|COMP)$/ ) {
-% my $part_pkg = $svc_acct->cust_svc->cust_pkg->part_pkg;
-% $amount = $part_pkg->option('recharge_amount', 1);
-% my %rhash = map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_) }
-% grep { $part_pkg->option($_, 1) }
-% qw ( recharge_seconds recharge_upbytes recharge_downbytes
-% recharge_totalbytes );
-%
-% my $description = "Recharge";
-% $description .= " $rhash{seconds}s" if $rhash{seconds};
-% $description .= " $rhash{upbytes} up" if $rhash{upbytes};
-% $description .= " $rhash{downbytes} down" if $rhash{downbytes};
-% $description .= " $rhash{totalbytes} total" if $rhash{totalbytes};
-%
-% $error = $cust_main->charge($amount, "Recharge " . $svc_acct->label,
-% $description, $part_pkg->taxclass);
-%
-% if ($part_pkg->option('recharge_reset', 1)) {
-% $error ||= $svc_acct->set_usage(\%rhash);
-% }else{
-% $error ||= $svc_acct->recharge(\%rhash);
-% }
-%
-% my $old_balance = $cust_main->balance;
-% $error ||= $cust_main->bill;
-% $error ||= $cust_main->apply_payments_and_credits;
-% my $bill_error = $cust_main->collect('realtime' => 1) unless $error;
-% $error ||= "Failed to collect - $bill_error"
-% if $cust_main->balance > $old_balance && $cust_main->balance > 0
-% && $payby ne 'BILL';
-%
-% } else {
-% $error = "fatal error - unknown payby: $payby";
-% }
-%}
-%
-%if ($error) {
-% $cgi->param('error', $error);
-% $dbh->rollback if $oldAutoCommit;
-% print $cgi->redirect(popurl(2). "recharge_svc.html?". $cgi->query_string );
-%}
-%$dbh->commit or die $dbh->errstr if $oldAutoCommit;
-%
-<% header("Package recharged") %>
- <SCRIPT TYPE="text/javascript">
- window.top.location.reload();
- </SCRIPT>
- </BODY></HTML>
-<%init>
-
-my $conf = new FS::Conf;
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Recharge customer service');
-
-#untaint svcnum
-my $svcnum = $cgi->param('svcnum');
-$svcnum =~ /^(\d+)$/ || die "Illegal svcnum";
-$svcnum = $1;
-
-#untaint prepaid
-my $prepaid = $cgi->param('prepaid');
-$prepaid =~ /^(\w*)$/;
-$prepaid = $1;
-
-#untaint payby
-my $payby = $cgi->param('payby');
-$payby =~ /^([A-Z]*)$/;
-$payby = $1;
-
-my $error = '';
-my $svc_acct = qsearchs( 'svc_acct', {'svcnum'=>$svcnum} );
-$error = "Can't recharge service $svcnum. " unless $svc_acct;
-
-my $cust_main = $svc_acct->cust_svc->cust_pkg->cust_main;
-
-my $oldAutoCommit = $FS::UID::AutoCommit;
-local $FS::UID::AutoCommit = 0;
-my $dbh = dbh;
-
-</%init>
diff --git a/httemplate/misc/process/timeworked.html b/httemplate/misc/process/timeworked.html
deleted file mode 100644
index c589d76..0000000
--- a/httemplate/misc/process/timeworked.html
+++ /dev/null
@@ -1,57 +0,0 @@
-% if ($error) {
-<% $cgi->redirect(popurl(2). "timeworked.html?". $cgi->query_string) %>
-% } else {
-<% $cgi->redirect(popurl(3). "search/timeworked.html") %>
-% }
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Time queue');
-
-my @acct_rt_transaction;
-foreach my $transaction (
- map { /^transactionid(\d+)$/; $1; } grep /^transactionid\d+$/, $cgi->param
-) {
- my $s = "multiplier${transaction}_";
- my %multipliers = map { /^$s(\d+)$/; $1 => $cgi->param("$s$1"); }
- grep /^$s\d+$/, $cgi->param;
- my $msum = 0;
- foreach(values %multipliers) {$msum += $_};
-
- my $seconds = $cgi->param("seconds$transaction");
- my %seconds =
- map { $_ => sprintf("%.0f", $seconds * $multipliers{$_} / $msum) }
- (keys %multipliers);
- my $sum = 0;
- my $count = 0;
- foreach (values %seconds) {
- $sum += $_;
- $count++;
- }
-
- #fudge in some time if we're close
- if (abs($seconds-$sum) <= $count) {
- my $adjustment = $seconds-$sum;
- foreach (keys %seconds) { # explicitly choose one?
- $seconds{$_} += $adjustment;
- last;
- }
- } else {
- die "unexpectedly cannot apportion time";
- }
-
- foreach my $customer ( grep {$seconds{$_}} keys %seconds ) {
- push @acct_rt_transaction, new FS::acct_rt_transaction {
- 'custnum' => $customer,
- 'transaction_id' => $transaction,
- 'seconds' => $seconds{$customer},
- 'support' => $seconds{$customer} * $msum,
- };
- }
-
-}
-
-my $error = FS::acct_rt_transaction->batch_insert(@acct_rt_transaction);
-$cgi->param('error', $error) if $error;
-
-</%init>
generated by cgit v1.1 at 2024-06-23 22:04:40 +0000