bin/part_pkg-bulk_change

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