bin/part_pkg-bulk_change

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use vars qw( $opt_r $opt_m $opt_p $opt_o $opt_v $opt_t $opt_s $opt_S $opt_z $opt_Z );
   5 use Getopt::Std;
   6 use FS::UID qw(adminsuidsetup);
   7 use FS::Record qw(qsearch qsearchs);
   8 use FS::part_pkg;
   9 use FS::part_pkg_option;
  10
  11 getopts('rm:p:o:v:t:sSzZ');
  12
  13 my $user = shift or &usage;
  14 adminsuidsetup $user;
  15
  16 my %search = ();
  17 $search{'plan'} = $opt_p if $opt_p;
  18 $search{'comment'} = $opt_m if $opt_m;
  19
  20 foreach my $part_pkg ( qsearch('part_pkg',\%search) ) {
  21   next if ! $part_pkg->freq && $opt_r;
  22
  23   if ( $opt_o ) {
  24
  25     my %hash = (
  26       'pkgpart'    => $part_pkg->pkgpart,
  27       'optionname' => $opt_o,
  28     );
  29
  30     my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
  31
  32     if ( $part_pkg_option ) {
  33       next if $part_pkg_option->optionvalue eq $opt_v;
  34       $part_pkg_option->optionvalue($opt_v);
  35       my $error = $part_pkg_option->replace;
  36       die $error if $error;
  37     } else {
  38       $part_pkg_option = new FS::part_pkg_option { %hash,
  39                                                    'optionvalue'=>$opt_v,
  40                                                  };
  41       my $error = $part_pkg_option->insert;
  42       die $error if $error;
  43     }
  44
  45   }
  46
  47   if ( $opt_t || $opt_s || $opt_S || $opt_z || $opt_Z ) {
  48
  49     $part_pkg->taxclass($opt_t) if $opt_t;
  50     $part_pkg->setup_show_zero('') if $opt_s;
  51     $part_pkg->setup_show_zero('Y') if $opt_S;
  52     $part_pkg->recur_show_zero('') if $opt_z;
  53     $part_pkg->recur_show_zero('Y') if $opt_Z;
  54
  55     my $error = $part_pkg->replace;
  56
  57   }
  58
  59 }
  60
  61 sub usage {
  62   die "usage: part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -t new_taxclass ] [ -s | -S ] [ -z | -Z ] employee_username\n";
  63 }
  64
  65 =head1 NAME
  66
  67 cust_main-bulk_change
  68
  69 =head1 SYNOPSIS
  70
  71   part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -t new_taxclass ] [ -s | -S ] [ -z | -Z ] employee_username
  72
  73 =head1 DESCRIPTION
  74
  75 Command-line tool to change a set of package definitions.
  76
  77 Search options:
  78
  79 -r: recurring package definitions only
  80
  81 -p: packages with this price plan only
  82
  83 -m: packages with this comment only
  84
  85 Change options:
  86
  87 -o: part_pkg_option optionname
  88
  89 -v: part_pkg_option optionvalue
  90
  91 -t: new taxclass
  92
  93 -s: Turn off "Show zero setup"
  94
  95 -S: Turn on "Show zero setup"
  96
  97 -z: Turn off "Show zero recurring"
  98
  99 -Z: Turn on "Show zero recurring"
 100
 101 employee_username
 102
 103 =head1 BUGS
 104
 105 =head1 SEE ALSO
 106
 107 L<FS::part_pkg>
 108
 109 =cut
 110
 111 1;
 112