projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change voip innovations CDR retrieval hostname, RT#76784
[freeside.git]
/
FS
/
bin
/
freeside-phonenum_list
diff --git
a/FS/bin/freeside-phonenum_list
b/FS/bin/freeside-phonenum_list
index
029d0ed
..
19b564d
100755
(executable)
--- a/
FS/bin/freeside-phonenum_list
+++ b/
FS/bin/freeside-phonenum_list
@@
-1,17
+1,21
@@
#!/usr/bin/perl
use strict;
#!/usr/bin/perl
use strict;
-use vars qw( $opt_c $opt_p $opt_b $opt_d $opt_s $opt_t );
+use vars qw( $opt_c $opt_
o $opt_l $opt_
p $opt_b $opt_d $opt_s $opt_t );
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
+use FS::Conf;
use FS::Record qw(qsearch);
use FS::svc_phone;
use FS::Record qw(qsearch);
use FS::svc_phone;
-getopts('cp:b:d:s:t:');
+getopts('c
ol
p:b:d:s:t:');
my $user = shift or &usage;
adminsuidsetup $user;
my $user = shift or &usage;
adminsuidsetup $user;
+my $conf = new FS::Conf;
+my $default_locale = $conf->config('locale') || 'en_US';
+
my %search = ();
$search{payby} = [ split(/\s*,\s*/, $opt_p) ] if $opt_p;
my %search = ();
$search{payby} = [ split(/\s*,\s*/, $opt_p) ] if $opt_p;
@@
-24,11
+28,17
@@
my @svc_phone = qsearch( FS::svc_phone->search(\%search) );
foreach my $svc_phone (@svc_phone) {
print $svc_phone->countrycode if $opt_c;
foreach my $svc_phone (@svc_phone) {
print $svc_phone->countrycode if $opt_c;
- print $svc_phone->phonenum. "\n";
+ print $svc_phone->phonenum;
+ print '@'. $svc_phone->domain if $opt_o;
+ if ( $opt_l ) {
+ my $cust_pkg = $svc_phone->cust_svc->cust_pkg;
+ print ','. ($cust_pkg && $cust_pkg->cust_main->locale || $default_locale);
+ }
+ print "\n";
}
sub usage {
}
sub usage {
- die "usage: freeside-phonenum_list [ -c ] [ -p payby,payby... ] [ -b balance [ -d balance_days ] ] [ -s svcpart,svcpart... ] username \n";
+ die "usage: freeside-phonenum_list [ -c ] [ -
o ] [ -l ] [ -
p payby,payby... ] [ -b balance [ -d balance_days ] ] [ -s svcpart,svcpart... ] username \n";
}
=head1 NAME
}
=head1 NAME
@@
-36,13
+46,21
@@
sub usage {
freeside-phonenum_list
=head1 SYNOPSIS
freeside-phonenum_list
=head1 SYNOPSIS
- freeside-phonenum_list [ -c ] [ -p payby,payby... ] [ -b balance [ -d balance_days ] ] [ -s svcpart,svcpart... ] username
+ freeside-phonenum_list [ -c ] [ -
o ] [ -l ] [ -
p payby,payby... ] [ -b balance [ -d balance_days ] ] [ -s svcpart,svcpart... ] username
=head1 DESCRIPTION
Command-line tool to list phone numbers.
=head1 DESCRIPTION
Command-line tool to list phone numbers.
--c: Include country code in results
+Display options:
+
+-c: Include country code
+
+-o: Include domain
+
+-l: Include customer locale
+
+Selection options:
-p: Customer payby (CARD, BILL, etc.). Separate multiple values with commas.
-p: Customer payby (CARD, BILL, etc.). Separate multiple values with commas.