| Subject: | Initial send not working |
| Date: | Fri, 10 Oct 2008 14:11:43 +0300 |
| To: | bug-Net-SMS-TMobile-UK [...] rt.cpan.org |
| From: | Ivan Kelly <ivan [...] ivankelly.net> |
Hi,
Tmobile must have changed their site again, this library seems to be
only working on the second attempt.
My code is:
while (1)
{
my $sms = Net::SMS::TMobile::UK->new(username=>$username, password=>$password, debug=>$debug);
$sms->sendsms(to=>$number, message=>$message);
if ($sms->error != 0) {
print "Error sending message ".$sms->error.". Try again? [Y/n]";
$resp = <STDIN>;
chomp ($resp);
if ($resp =~ /^N|n/) {
last;
}
} else {
print "Message Sent\n";
last;
}
}
Im getting error 3 the first attempt, but it works fine on the second.
-Ivan