السلام عليكم ورحمة الله وبركاته ..
أنا عضو جديد عندكم في المنتدى وإنشاء الله أحصل عندك الحل لهذا السيكريبت الذي تاه الجميع لمعرفة حله ,,
أتمنى من الخبراء أهم يحلونه ..
هو سيكريبت إرسال الرسائل إلى الجوال SMS
هذا هو السيكريبت
كود:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
read(STDIN, $input,$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$IN{$name} = $value;
}
open (MAIL,"| mail $IN{'to'}\@gsm1.net.ae") || die "Error: Can
t start mail program";
print MAIL "$IN{'msg'}\n";
print MAIL "($IN{'from'})\n\n";
print MAIL "Alnahaam.com";
print "Thank you. Go Back to Send Another SMS Message.";
في الحقيقة السيكريبت يعمل 100%ولكن يوجد هناك غلط ما
وأتمنى أن يحله الخبراء
الغلط : هو أنه عندما تصل الرسالة إلى الجوال (الموبايل)يظهر أمام الرسالة الأصلية عنوان أو بريد المضيف على ما أعتقد
المهم .. أنا أتمنى من الخبراء تعديل السيكريبت لكي لا يظهر هذا العنوان أو بريد المضيف
والمشكلة تكمن في هذا الشيء وأتمنى من الخبراء حل هذه المشكلة في أسرع وقت
والسموحه على الإطاله يا إخواني
تحياتي لكم
أخوكم النهام