bin/part_pkg-bulk_change

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use vars qw( $opt_r $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('ro:v:t:');
  12
  13 my $user = shift or &usage;
  14 adminsuidsetup $user;
  15
  16 foreach my $part_pkg ( qsearch('part_pkg', {}) ) {
  17   next if ! $part_pkg->freq && $opt_r;
  18
  19   if ( $opt_o ) {
  20
  21     my %hash = (
  22       'pkgpart'    => $part_pkg->pkgpart,
  23       'optionname' => $opt_o,
  24     );
  25
  26     my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
  27
  28     if ( $part_pkg_option ) {
  29       next if $part_pkg_option->optionvalue eq $opt_v;
  30       $part_pkg_option->optionvalue($opt_v);
  31       my $error = $part_pkg_option->replace;
  32       die $error if $error;
  33     } else {
  34       $part_pkg_option = new FS::part_pkg_option { %hash,
  35                                                    'optionvalue'=>$opt_v,
  36                                                  };
  37       my $error = $part_pkg_option->insert;
  38       die $error if $error;
  39     }
  40
  41   }
  42
  43   if ( $opt_t ) {
  44
  45     $part_pkg->taxclass($opt_t);
  46     my $error = $part_pkg->replace;
  47
  48   }
  49
  50 }
  51
  52 sub usage {
  53   die "usage: part_pkg-bulk_change [ -r ] [ -o option_name -v option_value ] [ -t new_taxclass ] employee_username\n";
  54 }
  55
  56 =head1 NAME
  57
  58 cust_main-bulk_change
  59
  60 =head1 SYNOPSIS
  61
  62   part_pkg-bulk_change [ -r ] [ -o option_name -v option_value ] [ -t new_taxclass ] employee_username
  63
  64 =head1 DESCRIPTION
  65
  66 Command-line tool to change a set of package definitions.
  67
  68 Search options:
  69
  70 -r: recurring package definitions only
  71
  72 Change options:
  73
  74 -o: part_pkg_option optionname
  75
  76 -v: part_pkg_option optionvalue
  77
  78 -t: new taxclass
  79
  80 employee_username
  81
  82 =head1 BUGS
  83
  84 =head1 SEE ALSO
  85
  86 L<FS::part_pkg>
  87
  88 =cut
  89
  90 1;
  91