Attachment #36423 for bug #13159

View | Details | Raw Unified | Return to bug 13159
Collapse All | Expand All




use Getopt::Long;

use C4::SIP::Sip::Constants qw(:all);
use C4::SIP::Sip;

use constant { LANGUAGE => '001' };



my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time);
$year += 1900;
my $transaction_date = C4::SIP::Sip::timestamp();

my $terminal_password = $login_password;



    return q{} if ( $params->{optional} && !$value );

    return $field_identifier . (($value) ? $value : '') . '|';
}

sub help {
- 

Return to bug 13159

Lines 24-29 use IO::Socket::INET; Link Here

(-)a/misc/sip_cli_emulator.pl (-3 / +3 lines)
24	use Getopt::Long;	24	use Getopt::Long;
25		25
26	use C4::SIP::Sip::Constants qw(:all);	26	use C4::SIP::Sip::Constants qw(:all);
		27	use C4::SIP::Sip;
27		28
28	use constant { LANGUAGE => '001' };	29	use constant { LANGUAGE => '001' };
29		30
Lines 85-91 $/ = $terminator; Link Here
85		86
86	my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time);	87	my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time);
87	$year += 1900;	88	$year += 1900;
88	my $transaction_date = "$year$month$day $hour$min$sec";	89	my $transaction_date = C4::SIP::Sip::timestamp();
89		90
90	my $terminal_password = $login_password;	91	my $terminal_password = $login_password;
91		92
Lines 459-465 sub build_field { Link Here
459		460
460	return q{} if ( $params->{optional} && !$value );	461	return q{} if ( $params->{optional} && !$value );
461		462
462	return $field_identifier . $value . '\|';	463	return $field_identifier . (($value) ? $value : '') . '\|';
463	}	464	}
464		465
465	sub help {	466	sub help {
466	-