forked from public/public
7 lines
148 B
Perl
7 lines
148 B
Perl
sub before_send {
|
|
my ($request, $response) = @_;
|
|
my $sms = ${$request}{qe};
|
|
$sms->{SMPPOPTION} = "0x1400:" . unpack("H*","Value");
|
|
return 0;
|
|
}
|
|
|