summaryrefslogtreecommitdiff
path: root/bin/freeside-migrate-events
diff options
context:
space:
mode:
Diffstat (limited to 'bin/freeside-migrate-events')
-rw-r--r--bin/freeside-migrate-events266
1 files changed, 0 insertions, 266 deletions
diff --git a/bin/freeside-migrate-events b/bin/freeside-migrate-events
deleted file mode 100644
index 3e8a6b209..000000000
--- a/bin/freeside-migrate-events
+++ /dev/null
@@ -1,266 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-#use Getopt::Std;
-use FS::UID qw( adminsuidsetup dbh );
-use FS::Record qw( qsearch );
-use FS::part_bill_event;
-use FS::part_event;
-use FS::cust_bill_event;
-use FS::cust_event;
-
-#use vars qw( $opt_m );
-#getopts('m');
-
-my $user = shift or die &usage;
-adminsuidsetup($user);
-
-my %plan2action = (
- 'fee' => 'fee',
- 'fee_percent' => 'NOTYET', #XXX need fee_percent action
- 'suspend' => 'suspend',
- 'suspend-if-balance' => 'suspend', #"if balance" becomes the balance cond
- 'suspend-if-pkgpart' => 'suspend_if_pkgpart',
- 'suspend-unless-pkgpart' => 'suspend_unless_pkgpart',
- 'cancel' => 'cancel',
- 'addpost' => 'addpost',
- 'comp' => 'NOTYET', #XXX or N/A or something
- 'credit' => 'writeoff',
- 'realtime-card' => 'cust_bill_realtime_card',
- 'realtime-check' => 'cust_bill_realtime_check',
- 'realtime-lec' => 'cust_bill_realtime_lec',
- 'batch-card' => 'cust_bill_batch',
- #?'retriable' =>
- 'send' => 'cust_bill_send',
- 'send_email' => 'cust_bill_email',
- 'send_alternate' => 'cust_bill_send_alternate',
- 'send_if_newest' => 'cust_bill_send_if_newest',
- 'send_agent' => 'cust_bill_send_agent',
- 'send_csv_ftp' => 'cust_bill_send_csv_ftp',
- 'spool_csv', => 'cust_bill_spool_csv',
- 'bill' => 'bill',
- 'apply' => 'apply',
- 'collect' => 'collect',
-);
-
-
-foreach my $part_bill_event (
- qsearch({
- 'table' => 'part_bill_event',
- })
-) {
-
- print $part_bill_event->event;
-
- my $action = $plan2action{ $part_bill_event->plan };
-
- if ( $action eq 'NOTYET' ) {
- warn "not migrating part_bill_event.eventpart ".$part_bill_event->eventpart.
- "; ". $part_bill_event->plan. " plan not (yet) handled";
- next;
- } elsif ( ! $action ) {
- warn "not migrating part_bill_event.eventpart ".$part_bill_event->eventpart.
- "; unknown plan ". $part_bill_event->plan;
- next;
- }
-
- my %plandata = map { /^(\w+) (.*)$/; ($1, $2); }
- split(/\n/, $part_bill_event->plandata);
-
- #XXX may need to fudge some other plandata2option names
-
- my $balanceover = 0;
- my $honor_dundate = 0;
-
- if ( $part_bill_event->plan eq 'suspend-if-balance' ) {
- $balanceover = delete $plandata{'balanceover'};
- $honor_dundate = ( (delete $plandata{'balance_honor_dundate'}) =~ /1/ );
- }
-
- my $part_event = new FS::part_event {
- 'event' => $part_bill_event->event,
- 'eventtable' => 'cust_bill',
- 'check_freq' => $part_bill_event->freq || '1d',
- 'weight' => $part_bill_event->weight,
- 'action' => $action,
- 'disabled' => $part_bill_event->disabled,
- };
-
- my $error = $part_event->insert(\%plandata);
- die "error inserting part_event: $error\n" if $error;
-
- print ' '. $part_event->eventpart;
-
- my $once = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'once'
- };
- $error = $once->insert;
- die $error if $error;
-
- my $balance = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'balance'
- };
- $error = $balance->insert( 'balance' => $balanceover );
- die $error if $error;
-
- my $cust_bill_owed = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'cust_bill_owed'
- };
- $error = $cust_bill_owed->insert( 'owed' => 0 );
- die $error if $error;
-
- my $payby = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'payby'
- };
- $error = $payby->insert( 'payby' => { $part_bill_event->payby => 1 } );
- die $error if $error;
-
- if ( $part_bill_event->seconds ) {
-
- my $age = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'cust_bill_age'
- };
- $error = $age->insert( 'age' => ($part_bill_event->seconds/86400 ).'d' );
- die $error if $error;
-
- }
-
- if ( $honor_dundate ) {
- my $dundate = new FS::part_event_condition {
- 'eventpart' => $part_event->eventpart,
- 'conditionname' => 'dundate'
- };
- $error = $dundate->insert();
- die $error if $error;
- }
-
- #my $derror = $part_bill_event->delete;
- #die "error removing part_bill_event: $derror\n" if $derror;
-
-# if ( $opt_m ) {
-
- my $sth = dbh->prepare('
- INSERT INTO cust_event ( eventpart, tablenum, _date, status, statustext )
- SELECT ? , invnum , _date, status, statustext
- FROM cust_bill_event WHERE eventpart = ?
- ') or die dbh->errstr;
-
- $sth->execute( $part_event->eventpart, $part_bill_event->eventpart )
- or die $sth->errstr;
-
-# } else {
-#
-# foreach my $cust_bill_event (
-# qsearch({
-# 'table' => 'cust_bill_event',
-# 'hashref' => { 'eventpart' => $part_bill_event->eventpart, },
-# })
-# ) {
-#
-# my $cust_event = new FS::cust_event {
-# 'eventpart' => $part_event->eventpart,
-# 'tablenum' => $cust_bill_event->invnum,
-# '_date' => $cust_bill_event->_date,
-# 'status' => $cust_bill_event->status,
-# 'statustext' => $cust_bill_event->statustext,
-# };
-#
-# my $cerror = $cust_event->insert;
-# #die "error inserting cust_event: $cerror\n" if $cerror;
-# warn "error inserting cust_event: $cerror\n" if $cerror;
-#
-# #my $dcerror = $cust_bill_event->delete;
-# #die "error removing cust_bill_event: $dcerror\n" if $dcerror;
-#
-# print ".";
-#
-# }
-#
-# }
-
- print "\n";
-
-}
-
-sub usage {
- die "Usage:\n freeside-migrate-events user\n";
-}
-
-=head1 NAME
-
-freeside-migrate-events - Migrates 1.7/1.8-style invoice events to
- 1.9/2.0-style billing events
-
-=head1 SYNOPSIS
-
- freeside-migrate-events
-
-=head1 DESCRIPTION
-
-Migrates events from L<FS::part_bill_event> to L<FS::part_event> and friends,
-and from L<FS::cust_bill_event> records to L<FS::cust_event>
-
-=head1 BUGS
-
-Doesn't migrate any action options yet.
-
-Doesn't translate option names that changed.
-
-Doesn't migrate reasons.
-
-Doesn't delete the old events (which is not a big deal, since the new code
-won't run them...)
-
-Can take lots of memory for large databases.
-
-=head1 SEE ALSO
-
-=cut
-
-1;
-
-__END__
-
-#part_bill_event part_event
-#
-#eventpart n/a
-#event event
-#freq check_freq
-#payby part_event_condition.conditionname = payby
-#eventcode PARSE_WITH_REGEX (probably can just get from plandata)
-#seconds part_event_condition.conditionname = cust_bill_age
-#plandata PARSE_WITH_REGEX (along with eventcode, yuck)
-#reason part_event_option.optionname = reason
-#disabled disabled
-#
-
- #these might help parse existing eventcode
-
- $c =~ /^\s*\$cust_main\->(suspend|cancel|invoicing_list_addpost|bill|collect)\(\);\s*("";)?\s*$/
-
- or $c =~ /^\s*\$cust_bill\->(comp|realtime_(card|ach|lec)|batch_card|send)\((%options)*\);\s*$/
-
- or $c =~ /^\s*\$cust_bill\->send(_if_newest)?\(\'[\w\-\s]+\'\s*(,\s*(\d+|\[\s*\d+(,\s*\d+)*\s*\])\s*,\s*'[\w\@\.\-\+]*'\s*)?\);\s*$/
-
-# or $c =~ /^\s*\$cust_main\->apply_payments; \$cust_main->apply_credits; "";\s*$/
- or $c =~ /^\s*\$cust_main\->apply_payments_and_credits; "";\s*$/
-
- or $c =~ /^\s*\$cust_main\->charge\( \s*\d*\.?\d*\s*,\s*\'[\w \!\@\#\$\%\&\(\)\-\+\;\:\"\,\.\?\/]*\'\s*\);\s*$/
-
- or $c =~ /^\s*\$cust_main\->suspend_(if|unless)_pkgpart\([\d\,\s]*\);\s*$/
-
- or $c =~ /^\s*\$cust_bill\->cust_suspend_if_balance_over\([\d\.\s]*\);\s*$/
-
- or do {
- #log
- return "illegal eventcode: $c";
- };
-
- }
-
-
generated by cgit v1.2.1 (git 2.18.0) at 2024-09-28 10:23:22 +0000