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 $opt_t );
   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('rp:o:v:t:');
  12
  13 my $user = shift or &usage;
  14 adminsuidsetup $user;
  15
  16 my %plan;
  17 %plan = ( 'plan' => $opt_p ) if $opt_p;
  18
  19 foreach my $part_pkg ( qsearch('part_pkg',\%plan) ) {
  20   next if ! $part_pkg->freq && $opt_r;
  21
  22   if ( $opt_o ) {
  23
  24     my %hash = (
  25       'pkgpart'    => $part_pkg->pkgpart,
  26       'optionname' => $opt_o,
  27     );
  28
  29     my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
  30
  31     if ( $part_pkg_option ) {
  32       next if $part_pkg_option->optionvalue eq $opt_v;
  33       $part_pkg_option->optionvalue($opt_v);
  34       my $error = $part_pkg_option->replace;
  35       die $error if $error;
  36     } else {
  37       $part_pkg_option = new FS::part_pkg_option { %hash,
  38                                                    'optionvalue'=>$opt_v,
  39                                                  };
  40       my $error = $part_pkg_option->insert;
  41       die $error if $error;
  42     }
  43
  44   }
  45
  46   if ( $opt_t ) {
  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 ] [ -o option_name -v option_value ] [ -t new_taxclass ] 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 ] [ -o option_name -v option_value ] [ -t new_taxclass ] 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 Change options:
  76
  77 -o: part_pkg_option optionname
  78
  79 -v: part_pkg_option optionvalue
  80
  81 -t: new taxclass
  82
  83 employee_username
  84
  85 =head1 BUGS
  86
  87 =head1 SEE ALSO
  88
  89 L<FS::part_pkg>
  90
  91 =cut
  92
  93 1;
  94