bin/part_pkg-bulk_change

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use vars qw( $opt_r $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('ro:v:');
  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   my %hash = (
  20     'pkgpart'    => $part_pkg->pkgpart,
  21     'optionname' => $opt_o,
  22   );
  23
  24   my $part_pkg_option = qsearchs('part_pkg_option', \%hash);
  25
  26   if ( $part_pkg_option ) {
  27     next if $part_pkg_option->optionvalue eq $opt_v;
  28     $part_pkg_option->optionvalue($opt_v);
  29     my $error = $part_pkg_option->replace;
  30     die $error if $error;
  31   } else {
  32     $part_pkg_option = new FS::part_pkg_option { %hash, 'optionvalue'=>$opt_v };
  33     my $error = $part_pkg_option->insert;
  34     die $error if $error;
  35   }
  36
  37 }
  38
  39 sub usage {
  40   die "usage: part_pkg-bulk_change [ -r ] -o option_name -v option_value employee_username\n";
  41 }
  42
  43 =head1 NAME
  44
  45 cust_main-bulk_change
  46
  47 =head1 SYNOPSIS
  48
  49   part_pkg-bulk_change [ -r ] -o option_name -v option_value employee_username
  50
  51 =head1 DESCRIPTION
  52
  53 Command-line tool to change a set of package definitions.
  54
  55 -r: recurring package definitions only
  56
  57 -o: part_pkg_option optionname
  58
  59 -v: part_pkg_option optionvalue
  60
  61 employee_username
  62
  63 =head1 BUGS
  64
  65 =head1 SEE ALSO
  66
  67 L<FS::part_pkg>
  68
  69 =cut
  70
  71 1;
  72