هنا الـ php:
// load the swsms module
dl( "../swsms.so" );
// create the sms object
$sms = create_sms();
// send the carrier list request
carrierlist_send( &$sms );
// check if the request was a success
if( ! $sms->success ) {
// display error info
print( "Unable to retreive a carrier list from Simplewire: " . $sms->errorDesc . "\n" );
print( "Error Code: " . $sms->errorCode . "\n" );
}
else {
// walk the carrier list array
array_walk( $sms->carrierlist, displayCarrier );
}
function displayCarrier( $c ) {
// display the carrier info
print( "ID: " . $c->id . "\n" );
print( "Title: " . $c->title . $c->subtitle . "\n\n" );
}
============================
هنا الـ perl
use Net::SMS;
# Create a new SMS object
my $r = Net::SMS->new();
# Setup the SMS message parameters
$r->msgPin("+11005101234");
$r->msgFrom("Demo");
$r->msgCallback("+11005551212");
$r->msgText("Hello World from Simplewire!");
# Send the SMS message off
$r->msgSend();
# Check out what happened
if ($r->success) {
print "Message was successfully sent via Simplewire!\n";
} else {
print "Message was not successfully sent via Simplewire!\n";
print "Error Code: " . $r->errorCode . "\n";
print "Error Description: " . $r->errorDscr . "\n";
===========================
أرجو الإفادة والإستفادة تحياتي.