[freeside] Here Goes Nothing

[ivan]

On Tue, Apr 17, 2001 at 02:17:12PM -0700, Kristian Hoffmann wrote:
> Here is the disable-overdue script Mark and I wrote a while back.  It
> works fine as far as I can remember.

No, it doesn't.

>   if($cust_main->balance_date(time - $opt{d} * 86400) > 0 &&

There's no balance_date method in cust_main.pm.

>  The "-s" option enables the call to
> suspend overdue packages.  If you leave it off you can do a dry run to
> make sure it does what you expect.  The script disables every package
> belonging to a customer who has any invoices that are n days
> overdue.  It's a really easy way to piss off customers that didn't pay $1
> for an extra email account and got their 20 dialup/web hosting accounts
> disabled for it. :)
> 
> -Kristian
> 
> 
> On Tue, 17 Apr 2001 rdailey at colusanet.com wrote:
> 
> > Thank you for your help.  I'm afraid, however, that I am not a perl 
> > programmer.  Is there any references that I should look to (tutorials,etc.) 
> > in order to implement this?  I am familiar with CRON, already, that's not 
> > the problem.  I guess I'll have to learn perl.  Or do you know of any perl 
> > programmers who would be able to write these scripts?
> > 
> > 
> > > > I have Freeside set up and all functionality is working. (i.e. Credit
> > > > Cards, etc.), however I want to set up Freeside to do the following, to
> > > > mirror our existing billing cycle:
> > > >
> > > > All setups are considered to be on the first of the month. (As opposed to
> > > > the current day, as it does now.)
> > > >
> > > > On the tenth day of every month, accounts with a non-zero balance have
> > > > their packages suspended.
> > >
> > >man cron
> > >man FS::cust_main (see the balance and all_pkgs methods)
> > >man FS::cust_pkg (see the suspend method)
> > >
> > > > Also, on the tenth day, invoices are sent out for the next month (i.e. on
> > > > 4/10/01 invoices are sent out for 5/1/01 to 6/1/01).  No credit cards are
> > > > charged at this time.
> > >
> > >man cron
> > >man FS::cust_main (see the payby field, the `time' option of the bill
> > >method and the `invoice_time' option of the collect method)
> > >
> > > > On the first day of every month, all credit cards are charged for that
> > > > month: (i.e. on 4/1/01 cards are charged for 4/1/01 to 5/1/01)
> > > >
> > > > Any help would be GREATLY appreciated.
> > >
> > >meow
> > >_ivan
> > 
> > 
> > Rick Dailey
> > ColusaNET
> > <mailto:%2F%2Frdailey at colusanet.com>rdailey at colusanet.com
> > 
> > 

> #!/usr/bin/perl
> 
> use strict;
> use vars qw( $days_to_pay $cust_main $cust_pkg 
>              $cust_svc $svc_acct );
> use Getopt::Std;
> use FS::cust_main;
> use FS::cust_pkg;
> use FS::cust_svc;
> use FS::svc_acct;
> use FS::Record qw(qsearch qsearchs);
> use FS::UID qw(adminsuidsetup swapuid);
> 
> &untaint_argv;
> my %opt;
> getopts('sd:', \%opt);
> my $user = shift or die &usage;
> 
> adminsuidsetup $user;
> 
> foreach $cust_main ( qsearch('cust_main',{} ) ) {
>   if($cust_main->balance_date(time - $opt{d} * 86400) > 0 &&
>      qsearchs( 'cust_pkg', { 'custnum' => $cust_main->custnum,
>                              'susp' => "", 'cancel' => "" } )
>     ) { 
>     print $cust_main->custnum, "\t",
>           $cust_main->last, "\t", $cust_main->first, "\t",
>           $cust_main->balance_date(time-$opt{d} * 86400);
>     foreach $cust_pkg ( qsearch( 'cust_pkg', 
>                                  { 'custnum' => $cust_main->custnum } ) ) {
>       if ($opt{s}) {
>                  print "\n\tSuspending pkgnum cust_pkg";
>                  $cust_pkg->suspend; }
>     }
>   print "\n";
>   }
> }
> 
> sub untaint_argv {
>   foreach $_ ( $[ .. $#ARGV ) { 
>     $ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
>     $ARGV[$_]=$1;
>   }
> }
> 
> sub usage {
>   die "Usage:\n\n  disable-overdue -s -d days user\n";
> }
> 
> 
> =head1 NAME
> 
> disable-overdue - Designed to disable accounts n days overdue.
> 
> =head1 SYNOPSIS
> 
>   disable-overdue -s -d days user
> 
> =head1 DESCRIPTION
> 
> Disables overdue accounts.  Sets svc_acct.active = 0 for all services listed
> 	under cust_svc for the overdue cust_pkgs. 
> 
>   -s:	Suspend overdue accounts instead of just listing them.
> 
>   -d:	Number of days allowed to be overdue before being disabled.
> 	Requires an integer argument.
> 
>   user: From the mapsecrets file - see config.html from the base documentation
> 	but be careful.
> 
> =head1 VERSION
> 
> $Id: disable-overdue,v 1.0.1 2000/03/03 11:58:06 mw/kwh $
> 
> =cut
> 


-- 
meow
_ivan