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: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     unless ( defined $opt_v ) {
  33       my $error = $part_pkg_option && $part_pkg_option->delete;
  34       die $error if $error;
  35       next;
  36     }
  37
  38     if ( $part_pkg_option ) {
  39       next if $part_pkg_option->optionvalue eq $opt_v;
  40       $part_pkg_option->optionvalue($opt_v);
  41       my $error = $part_pkg_option->replace;
  42       die $error if $error;
  43     } else {
  44       $part_pkg_option = new FS::part_pkg_option { %hash,
  45                                                    'optionvalue'=>$opt_v,
  46                                                  };
  47       my $error = $part_pkg_option->insert;
  48       die $error if $error;
  49     }
  50
  51   }
  52
  53   if ( $opt_t || $opt_s || $opt_S || $opt_z || $opt_Z ) {
  54
  55     $part_pkg->setup_show_zero('') if $opt_s;
  56     $part_pkg->setup_show_zero('Y') if $opt_S;
  57     $part_pkg->recur_show_zero('') if $opt_z;
  58     $part_pkg->recur_show_zero('Y') if $opt_Z;
  59
  60     $part_pkg->taxclass($opt_t);
  61     my $error = $part_pkg->replace;
  62
  63   }
  64
  65 }
  66
  67 sub usage {
  68   die "usage: part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -s | -S ] [ -z | -Z ] employee_username\n";
  69 }
  70
  71 =head1 NAME
  72
  73 cust_main-bulk_change
  74
  75 =head1 SYNOPSIS
  76
  77   part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -s | -S ] [ -z | -Z ] employee_username
  78
  79 =head1 DESCRIPTION
  80
  81 Command-line tool to change a set of package definitions.
  82
  83 Search options:
  84
  85 -r: recurring package definitions only
  86
  87 -p: packages with this price plan only
  88
  89 -m: packages with this comment only
  90
  91 Change options:
  92
  93 -o: part_pkg_option optionname (use without -v to unset)
  94
  95 -v: part_pkg_option optionvalue
  96
  97 -s: Turn off "Show zero setup"
  98
  99 -S: Turn on "Show zero setup"
 100
 101 -z: Turn off "Show zero recurring"
 102
 103 -Z: Turn on "Show zero recurring"
 104
 105 employee_username
 106
 107 =head1 BUGS
 108
 109 =head1 SEE ALSO
 110
 111 L<FS::part_pkg>
 112
 113 =cut
 114
 115 1;
 116