मोबाइल फोन के माध्यम से एसएमएस भेजने और प्राप्त करने के लिए आसान पर्ल-स्क्रिप्ट

प्रस्तावना

"स्मार्ट होम" (बाद में यूडी के रूप में संदर्भित) के आत्म-विकास की प्रक्रिया में, आवश्यकता समय-समय पर छोटे या बहुत आवश्यक उपयोगिताओं, स्क्रिप्ट कार्यक्रमों को लिखने के लिए उत्पन्न होती है, एक रूप में या किसी अन्य, पहले से ही इंटरनेट पर लिखित और उपलब्ध है, लेकिन किसी कारण या अन्य अनुपयुक्त के लिए। परियोजना में उपयोग के लिए। "अनुपयुक्त क्यों?", एक अनुभवी डेवलपर पूछेगा, शायद मैं सिर्फ "बिल्लियों को पसंद नहीं करता क्योंकि मैं उन्हें खाना बनाना नहीं जानता?"। ऐसा हो सकता है, लेकिन, फिर भी, जब कार्य डी-लिंक डीआईआर -320 जैसी चीज को चालू करना है, तो "वसा के लिए समय नहीं है, मैं जीवित रहूंगा।" यहाँ, शायद, यह ध्यान दिया जाना चाहिए कि पहले PerL को UD विकास के लिए मुख्य भाषा के रूप में चुना गया था, क्योंकि लक्ष्य मंच पर "तेज़-और-गंदे" विकास के लिए सबसे उपयुक्त था। जल्दी-जल्दी और गंदे क्यों? सब कुछ बहुत सरल है: दोस्तों और रिश्तेदारों के लिए उपकरणों के एक जोड़े को छोड़कर, उत्पाद का कोई वितरण नहीं किया गया था। यह महत्वपूर्ण है कि "तेज" घटक प्रबल हुआ, क्योंकि सर्दियों से पहले कुछ महीने थे, और सिस्टम केवल सप्ताहांत पर आवास के साथ एक गर्म कॉटेज में स्थापित करने की तैयारी कर रहा था। इसका मतलब यह है कि मालिकों की अनुपस्थिति में हीटिंग सिस्टम को बंद करने से हीटिंग सिस्टम को डीफ़्रॉस्ट करने जैसे सबसे भयानक परिणाम हो सकते हैं।
हां, मुझे पता है कि लंबे समय तक gnokii , CPAN SMS-Server-Tools और, वास्तव में, बहुत सारी चीजें हैं । हालांकि, कई तैयार समाधानों की लंबी खोज के बाद, फिर से साइकिल का आविष्कार करना शुरू करना आवश्यक था। यहां मैं पूरी तरह से अच्छी तरह से समझता हूं कि मुख्य तर्क के विकास में स्क्रिप्ट लिखने में बिताए गए समय का निवेश करना बेहतर होगा, लेकिन फिर भी तथ्य यह है: एक कारण या किसी अन्य के लिए तैयार किए गए समाधानों को आवश्यकताओं की सूची में फिट नहीं किया गया। इसके बारे में नीचे।

समस्या का बयान

इसलिए, कार्य सीधे होस्ट से जुड़े मोबाइल फोन के माध्यम से एसएमएस के माध्यम से डीडी की मुख्य नियंत्रण प्रक्रिया के साथ संवाद करने के लिए निर्धारित है। यह निर्णय लिया गया कि "बाइक" को निम्नलिखित आवश्यकताओं को पूरा करना चाहिए:
- बाहरी पुस्तकालयों पर न्यूनतम निर्भरता;
- "तेजी से और गंदे" विकास (शुरुआती डिबगिंग के साथ 2 दिन, अधिक समय नहीं था);
- क्लाइंट (यूडी की मुख्य प्रक्रिया) मोड के संबंध में अतुल्यकालिक काम करने की क्षमता। फोन के साथ आदान-प्रदान में देरी और लटकी हुई क्लाइंट प्रक्रिया को अवरुद्ध नहीं करना चाहिए। कोई रास्ता नहीं।
- संकलन की आवश्यकता की कमी, जो अन्य प्लेटफार्मों पर पोर्टिंग को सरल करता है, मुख्य रूप से "एम्बेडेड-लिनक्स" प्रकार;
- न्यूनतम कार्यक्षमता: एसएमएस प्राप्त करना + एसएमएस भेजना;
- यूनिक्स की भावना में एक सरल इंटरफ़ेस;
- डेमन मोड और सिंगल-रन मोड दोनों में काम करने की क्षमता;
- सिरिलिक में एसएमएस समर्थन।
- सहित, फोन मॉडल की सबसे बड़ी संख्या के साथ काम करने की क्षमता पुराने वाले।

निर्णय

दरअसल, समस्या के बयान के बाद, संभावित समाधानों की खोज का चक्र काफी संकुचित हो गया। यह निर्णय लिया गया कि:
- यह एक पर्ल स्क्रिप्ट होगी, क्योंकि पर्ल पहले से ही अस्तित्व में है और काफी अच्छी तरह से काम किया है। बेशक, कार्य शेल पर साकार होता है, लेकिन तब "तेज" खो गया था।
- स्क्रिप्ट का इंटरफ़ेस फ़ाइल है, और केवल फ़ाइल है। यह पूर्ण अतुल्यकालिक देता है, लेकिन विश्वसनीयता के बदले में।
- फोन के साथ संचार यूडीपी मोड में होगा। यह पिछली सूची से अंतिम दो आवश्यकताओं को लागू करने का एकमात्र तरीका है।
- स्क्रिप्ट यथासंभव रैखिक होगी, कोई ओओपी या यहां तक ​​कि मॉड्यूलरिटी भी नहीं होगी, केवल पठनीयता और पुन: उपयोग के लिए आसान प्रक्रिया को छोड़कर, यह आवश्यक होना चाहिए। एक शब्द में, तेजी से और गंदा।

क्या हुआ?

दरअसल, स्क्रिप्ट की लगभग तीन सौ लाइनें और डिवाइस का उपयोग :: SerialPort मॉड्यूल बाहरी CPAN लाइब्रेरी के रूप में। बाद की स्थिति काफी सहिष्णुता को खराब करती है, क्योंकि इस मॉड्यूल को संकलन की आवश्यकता है (सबसे अधिक संभावना है, क्रॉस-संकलन, क्योंकि इसे मूल रूप से संकलित नहीं किया गया है), लेकिन यह अधिकांश रिपॉजिटरी में तैयार-उपलब्ध है। सामान्य तौर पर, कार्य कार्यान्वित किया जाता है, स्क्रिप्ट बिना किसी समस्या के कुछ वर्षों से काम कर रही है। एक सीमेंस एस 65 फोन के साथ प्रयोग किया जाता है, अन्य के साथ यह आवश्यक नहीं था। स्क्रिप्ट को काम करने के लिए, दो और डेटा फ़ाइलों की आवश्यकता होती है: UCS.map और UCS.unmap, जो यहां प्रकाशन के लिए काफी खाली और स्वैच्छिक हैं, लेकिन मैं इसे उन लोगों के साथ खुशी से साझा करूंगा जो उन्हें प्राप्त करना चाहते हैं। संकेत के लिए कि उन्हें कैसे पढ़ा जा रहा है, केवल मुझे बहुत आभारी होंगे (विडंबना नहीं)।

स्क्रिप्ट के बारे में संक्षेप में: सभी सबसे महत्वपूर्ण स्थिरांक (पथ, लॉगिंग मोड, आदि) घोषित किए गए हैं और शुरुआत में आरंभिक रूप से, आगे संपादित करने के लिए व्यावहारिक रूप से कुछ भी नहीं है। संदेश फ़ाइल भेजने के लिए आपको $ मेसडिर निर्देशिका में रखना होगा। फ़ाइल नाम को कन्वेंशन $ आउटगोइंगफिलमास्क के अनुरूप होना चाहिए। $ Date। $ MSISDN।
जहां $ आउटगोइंगमिलमास्क स्क्रिप्ट के हेडर से मुखौटा मूल्य है, $ तिथि भेजने की तारीख (खराब विकल्प) या अनुक्रमिक संख्या है, इसका उपयोग बैच भेजने के लिए अतिव्यापी फ़ाइल नामों से बचने के लिए किया जाता है, $ MSISDN अंतर्राष्ट्रीय प्रारूप में प्राप्तकर्ता का फोन नंबर है, लेकिन 810 जैसे किसी उपसर्ग के बिना। 00, +, आदि। फ़ाइल में ही - अनूदित संदेश पाठ। क्यों लिप्यंतरण - यह हुआ ("तेज और गंदा")। वास्तव में, यह लगभग किसी भी एन्कोडिंग के लिए UCS.map और UCS.unmap फ़ाइलों को ओवरफ़िल करके आसानी से मरम्मत की जाती है।
रिसेप्शन समान रूप से काम करता है, लेकिन फ़ाइल नाम के लिए एक मुखौटा के साथ $ आने वालीफिलमास्क। दोनों मुखौटे को फिर से परिभाषित किया जा सकता है, लेकिन उनमें एक अवधि (अतिरिक्त सुरक्षा) होनी चाहिए। स्क्रिप्ट फोन के मेमोरी से सभी प्राप्त संदेशों को हटा देती है, फोन को मुख्य मेमोरी में एसएमएस प्राप्त करने के लिए कॉन्फ़िगर किया जाना चाहिए (सिम कार्ड पर नहीं)। संदेशों की प्रतियां $ बैकअप ध्वज सेट के साथ $ backupdir में सहेजी जा सकती हैं। सब कुछ होने लगता है।

#!/opt/bin/perl use Device::SerialPort; #script global setting values my $port_path = "/dev/usb/tts/0"; my $basedir = '/opt/files/'; my $msgdir = '/opt/files/msg/'; my $logdir = '/opt/files/log/'; my $backupdir = '/opt/files/msg_backup/'; #my $backup = 1; my $log = 1; my $incomingfilemask = "in.msg"; my $outgoingfilemask = "out.msg"; my $sleeptime = 10; # intercycle sleep time in seconds if no new messages my $runcycles = 100; #if runcycles set more than 1000, script will run endless if($log ==1){ open (LOG,">>$logdir".'UDP.log') }else{ open (LOG,">/dev/null"); } my $run = 1; # serial port init section $port = new Device::SerialPort($port_path) or die "cannot open serial port:$!\n"; $port->baudrate(115200); #for siemens #$port->baudrate(921600); $port->parity("none"); $port->databits(8); $port->stopbits(1); $port->read_char_time(0); $port->read_const_time(1000); my %map; my %unmap; chdir ($basedir); loadMAP(); # init mobile phone send_at('AT+CMGF=0'); #set to receive unread messages send_at('AT+CPMS="ME"'); #set default storage to mobile # main cycle section while($run){ my @msg2del; my $rcvd_id = 0; my @mobile_out = split("\r",talk_mobile("AT+CMGL=4\r\n")); #print join ("\n",@mobile_out)."\n"; my $totalsize = 0; foreach $line ( @mobile_out){ $line =~ s/\n//g; if($line eq ''){ next}; if($line =~ /\+CMGL:/){ #print "AT response: $line\n"; ($header,$param) = split(/:/,$line); (@id) = split(/,/,$param); #print "msg id's:".join(':',@id)."\n"; $msg2del[$rcvd_id]= $id[0]; $rcvd_id ++; next; } $totalsize +=length($line); if($line =~/07/){ #print LOG $line."\n"; my $parserpos = 0; my $LoSMSC = hex(substr($line,$parserpos,2)); $parserpos = $LoSMSC*2+4; # jump over SMSC address my $LoMSISDN = hex(substr($line,$parserpos,2)); $parserpos += 2; my $toMSISDN = substr($line,$parserpos,2); $parserpos += 2; unless(int($LoMSISDN/2)*2 == $LoMSISDN){ $LoMSISDN ++; } $senderMSISDN = unpack_number(substr($line,$parserpos,$LoMSISDN)); $parserpos += $LoMSISDN+2; ## jump protocol identifier my $TP_DCS = hex(substr($line,$parserpos,2)); $parserpos +=2; my $TP_SCTS = swap_number(substr($line,$parserpos,14)); $parserpos +=14; my @TS = split('',$TP_SCTS); my $rcvd_date = $TS[4].$TS[5].$TS[2].$TS[3].'20'.$TS[0].$TS[1]; my $rcvd_time = $TS[6].$TS[7].$TS[8].$TS[9].$TS[10].$TS[11]; my $TP_UDL = hex(substr($line,$parserpos,2)); $parserpos +=2; my $msg_text = hex2ascii(substr($line,$parserpos,$TP_UDL*2)); my $msgfilename = "$msgdir/$incomingfilemask.$rcvd_date$rcvd_time.$senderMSISDN"; open (OUT,">$msgfilename") || print "cannot create $msgfilename"; #print "LoMSISDN=$LoMSISDN,MSISDN=$senderMSISDN,DCS=$TP_DCS,date=$rcvd_date $rcvd_time, msglen=$TP_UDL, pos=$parserpos\n"; print OUT $msg_text; close (OUT); }else{ #print "tag not found for $line\n"; } } while($rcvd_id >0){ my $msgid = $msg2del[$rcvd_id-1]; send_at('AT+CMGD='.$msgid)."\n"; $rcvd_id --; } #send outgong messages section if(opendir(MSGDIR,$msgdir)){ my @files = readdir(MSGDIR); foreach $msgfile (@files){ if($msgfile =~ /$outgoingfilemask/){ #print "processing outgoing message $msgfile..."; ($mask,$mask2,$date,$MSISDN) = split(/\./,$msgfile); if(open(MSGIN,$msgdir.$msgfile)){ while(<MSGIN>){ chomp; #reading text of the message if(defined($_)){send_SMS($MSISDN,$_)}; #print "to $MSISDN,text <$_>\n"; } close(MSGIN); system "rm $msgdir$msgfile"; }else {print "cannot open msg file $msgfile"}; } } closedir(MSGDIR); }else{ print LOG "cannot open outgoing message directory $msg_input_dir\n"; } if($runcycles ==0 ){ undef $run; }else{ unless($runcycles >= 1000){$runcycles --;}; sleep($sleeptime); } } close(LOG); sub send_SMS{ my ($MSISDN,$text) = @_; $TP_LOA = sprintf("%02X",length($MSISDN)); $TP_MSISDN = unpack_number($MSISDN); $TP_UD = ascii2hex($text); $TP_UDL = sprintf("%02X",length($TP_UD)/2); $TP_TOA = '91'; #international number $outline = $TP_SMSC.'1100'.$TP_LOA.$TP_TOA.$TP_MSISDN.'0008AA'.$TP_UDL.$TP_UD; $lout = length($outline)/2; $outline = '00'.$outline; if(defined($backup)){ if(open(BF,">$backupdir/$MSISDN.".int(1000*rand()))){ print BF $outline; close(BF); } } my @mobile_out = split("\r",talk_mobile("AT+CMGS=$lout\r\n")); my $totalsize = 0; my $prompt; foreach $line ( @mobile_out){ $line =~ s/\n//g; if($line =~ /\>/){$prompt = 1}; }; if($prompt ==1){ my @mobile_out = split("\r",talk_mobile($outline.chr(26))); my $totalsize = 0; foreach $line ( @mobile_out){ $line =~ s/\n//g; }; }else{ #no prompt from mobile - error } } sub hex2ascii{ my $inline = shift; my $lol = length($inline); #print "inline=<".$inline.">\n"; my $result = ''; my $seek = 0; while(defined($quad = substr($inline,$seek*4,4))){ $result .= $map{$quad}; $seek ++; } #print "length =$lol,$seek characters converted\n"; return $result; } sub ascii2hex{ my $inline = shift; my $result = ''; my $seek = 0; while(defined($char = substr($inline,$seek,1))){ unless($char eq ''){$result .= $unmap{$char}}; $seek ++; } return $result; } sub unpack_number{ my $result = ''; my $inline = shift; my $seek =0; $num_len = length($inline); if(($num_len - 2 * int($num_len / 2)) >0 ){ $inline .='F'; } while($pair = substr($inline,$seek*2,2)){ $result .= reverse($pair); $seek ++; } return ($result); } sub swap_number{ my $result = ''; my $inline = shift; my $seek =0; while($pair = substr($inline,$seek*2,2)){ $result .= reverse($pair); $seek ++; } return ($result); } sub send_at{ my $cmd = shift; my $result; my @mobile_out = split("\r",talk_mobile($cmd."\r\n")); my $totalsize = 0; foreach $line ( @mobile_out){ $line =~ s/\n//g; if($line eq 'OK'){ $result = 1; }elsif($line eq 'ERROR'){ $result = -1; } } } sub talk_mobile{ my $cmd = shift; $port->lookclear; $port->write("$cmd"); my $read_chars = 0; my $buffer = ""; my $eol =1; while($eol){ my ($count,$saw) = $port->read(255); if($count > 0){ $buffer.= $saw; if(($saw =~ /OK/)or($saw =~/ERROR/)or($saw =~/\>/)) {undef $eol} } } return $buffer; } sub loadMAP{ if(open(UCS,"UCS.map")){ $loaded = 0; while(<UCS>){ chomp; my ($code,$value)=split(/,/,$_,2); $map{$code} = $value; $loaded ++; } #print $loaded ." patterns loaded\n"; close(UCS); }else{ print "cannot open UCS.map file\n"}; if(open(UUCS,"UCS.unmap")){ $loaded = 0; while(<UUCS>){ chomp; my ($code,$value)=split(/,/,$_,2); $unmap{$code} = $value; $loaded ++; } close(UUCS); }else{ print "cannot open UCS.unmap file\n"}; 

उपयोगी लिंक:
सीपीएएन सीरियल पोर्ट मॉड्यूल
howToReceiveSMSUsingPC