TMobile SMSC használata

http://search.cpan.org/~nemux/Net-UCP-0.40/lib/Net/UCP.pm
Ez Perl-ben van pl., nem tudom neked mire van szükséged...

Ha nem erdekelnek az ekezetek :) akkor is bele kell nyulni a forrasba?
+A mukodo conf-ot nem lehet megkapni veletlenul... epp nagyon jol jonne

Igen, a HTTP is egyszeru kerdes/valasz protokoll, megse egyszeru implementalni.

Van egy kesz cucc, szerintem inkabb azt kellene hasznalni. Foleg, hogy az mar kiteszteltebb barmilyen egyeni hacknal.
--

Ki oda vagyik, hol szall a galamb, elszalasztja a kincset itt alant. | Gentoo Portal 

Szia!

A Net-UCP-0.41-es verzió feltelepült, már "csak" meg kellene írni a perl scriptet, de nem tudom hogyan kell.

Kaptam egy scriptet, de sajnos nem értek a perl-hez és kapásból nem működik :(

Más nyelven is lehetne, nekem az mindegy :)


#!/usr/bin/perl -w


use utf8;
use Encode;
use IO::Socket;
use Net::UCP;
use Net::hostent;

my $login = "<>";
my $password = "<>";
my $port = 2222; #=shift || die "Usage server.pl
\n";

my ($acknowledge, $error_number, $error_text);

my $server = IO::Socket::INET->new(
Proto => 'tcp',
LocalPort => $port,
Listen => SOMAXCONN,
Reuse => 1,
Timeout => 60);

die "can't setup server" unless $server;

$emi = Net::UCP->new(
SMSC_HOST => '<>',
SMSC_PORT => <>,
SENDER_TEXT => '<>',
SRC_HOST => '<>',
WARN => 1,
FAKE => 0) or die("Failed to create SMSC object");

$emi->open_link() or die ($!);

($acknowledge,$error_number,$error_text) = $emi->login(
SMSC_ID => $login,
SMSC_PW => $password,
OTON => '6', # Originator type of number: Abbreviated number (registered large account identification)
ONPI => '5', # Originator Numbering Plan Id: 5 = SMSC specific: Private (TCP/IP address/abbreviated number)
VERS => '0100');

die ("Login to SMSC failed. Error nbr: $error_number, Error txt: $error_text\n") unless($acknowledge);
print $error_text;

print "[Server $0 is running]\n";

while (1) {

while ($client = $server->accept()) {
$client->autoflush(1);

$hostinfo = gethostbyaddr($client->peeraddr);

printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;

$input = <$client>;

if( $input =~ /(\w+)\s+(\d+)\s+([\w\s]+)/ ) {
$msg = $3;
print $client "OK";
printf "$1 $2 $3";

if($1 =~ /SEND/) {
($acknowledge,$error_number,$error_text) = $emi->send_sms(
RECIPIENT => '<>',
MESSAGE_TEXT => "$msg",
SENDER_TEXT => '<>'
);
die("Sending SMS failed. Error nbr: $error_number, Error txt: $error_text\n") unless($acknowledge);
print $error_text;
}

} else {
print $client "INVALID";
printf $input;
}

close $client;
}

$timeout = $emi->{TIMEOUT_OBJ}->get();
print "TO\n";

$message_string = $emi->make_message(
op => '31',
operation => 1,
adc => '0100010110095183',
pid => '0539');

($acknowledge,$error_number,$error_text) = $emi->transmit_msg($message_string, $timeout, 1);
die ("SMT_ALERT failed. Error nbr: $error_number, Error txt: $error_text\n") unless($acknowledge);
print $error_text;

#sleep(2);
}

$emi->close_link();