X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fhuawei_hlr.pm;h=9b405d5b617ad511a6093cb5119b81dc53e9349a;hb=389b6f1116c3309c2ee57a6c295ed1a793503095;hp=41cbbfb5823e26b23b6a8e9944e127f26213308f;hpb=d94f2b5d906b966be17025b9f6bddaca7511a9bb;p=freeside.git diff --git a/FS/FS/part_export/huawei_hlr.pm b/FS/FS/part_export/huawei_hlr.pm index 41cbbfb58..9b405d5b6 100644 --- a/FS/FS/part_export/huawei_hlr.pm +++ b/FS/FS/part_export/huawei_hlr.pm @@ -9,8 +9,6 @@ use FS::inventory_class; use FS::inventory_item; use IO::Socket::INET; use Data::Dumper; -use MIME::Base64 qw(decode_base64); -use Storable qw(thaw); use strict; @@ -18,16 +16,16 @@ $DEBUG = 0; @ISA = qw(FS::part_export); tie my %options, 'Tie::IxHash', - 'opname' => { label=>'Operator login' }, - 'pwd' => { label=>'Operator password' }, + 'opname' => { label=>'Operator login (required)' }, + 'pwd' => { label=>'Operator password (required)' }, 'tplid' => { label=>'Template number' }, 'hlrsn' => { label=>'HLR serial number' }, 'k4sno' => { label=>'K4 serial number' }, - 'cardtype' => { label => 'Card type', + 'cardtype' => { label => 'Card type (required)', type => 'select', options=> ['SIM', 'USIM'] }, - 'alg' => { label => 'Authentication algorithm', + 'alg' => { label => 'Authentication algorithm (required)', type => 'select', options=> ['COMP128_1', 'COMP128_2', @@ -251,7 +249,7 @@ sub command { sub process_import_sim { my $job = shift; - my $param = thaw(decode_base64(shift)); + my $param = shift; $param->{'job'} = $job; my $exportnum = delete $param->{'exportnum'}; my $export = __PACKAGE__->by_key($exportnum);