[freeside] Here Goes Nothing

[rdailey at colusanet.com]

Easily changed to:

if($cust_main->balance > 0 &&

Which fixes my original problem (if they owe money, they are suspended), 
thank you both very much....

>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


Rick Dailey
ColusaNET
<mailto:%2F%2Frdailey at colusanet.com>rdailey at colusanet.com