自己寫的程序,檢查是否有新郵件,然后發(fā)短信告訴用戶

riverlee2008

這個應該很實際,幫助你實時查看是否有新郵件.

前提:
1) 擁有一個gmail賬號
2) 擁有一個飛信賬號

注:感謝gmail的rss feed(https://mail.google.com/mail/feed/atom)和飛信API(http://sms.api.bz/)
個人要求(@_@): 好東西要分享,望版主給封個精華貼,再加點小分,在下萬分感謝~~~

用法: perl alertGmail.pl -u gmail@gmail.com -p gmaillpasswd -f 13912345678 -fp fetionpasswd -t 13912345678 -d 300

程序如下:
alertGmail.tar.gz (1.71 KB, 下載次數(shù): 50)

2010-05-19 20:12 上傳

點擊文件名下載附件
alertGmail by fetion

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;  
   
4. use LWP::UserAgent;
   
5. use Getopt::Long;
   
6. 
   
7. my($user,$passwd,$from,$fetionpasswd,$to,$about,$help,$sleeptime);
   
8. 
   
9. GetOptions ("u=s" => \$user,        # gmail account
   
10.                   "p=s" => \$passwd,      # gmail account password
    
11.                    "f=s" => \$from,        # fetion account telphone numver
    
12.                    "fp=s"=> \$fetionpasswd,# fetion account apssword
    
13.                    "t=s" => \$to,          # telphone number to send the gamil notification,can be fetion account itself
    
14.                    "about"=> \$about,      # print out about page
    
15.                    "d=i" => \$sleeptime,   # how often to check the mail(default 300s)
    
16.                    "h|help"=>\$help
    
17.                     );  # flag
    
18. if($help){&usage();}
    
19. if($about){&about();}
    
20. if(!defined($user) || !defined($passwd) || !defined($from)|| !defined($fetionpasswd)||!defined($to)){
    
21.         help();
    
22. }                  
    
23. 
    
24. my $gmail_address='https://mail.google.com/mail/feed/atom';
    
25. 
    
26. my %hash; #in order to whether this email have been alerted
    
27. 
    
28. if(!defined($sleeptime) || $sleeptime<=0){
    
29.         $sleeptime=300;  #5 minis
    
30. }
    
31. 
    
32. ########################################
    
33. #check wether the gamil account and password works
    
34. unless(checkGmailAccount($user,$passwd,$gmail_address)){
    
35.         print STDERR "Sorry,gmail account and password does not match.";
    
36.         exit(1);
    
37. }
    
38. 
    
39. ###############################
    
40. #main part
    
41. while(1){
    
42.         my $content=`curl -su $user:$passwd $gmail_address`;
    
43.         
    
44.         my %mail=parseMail($content);
    
45.         foreach my $key (keys %mail){
    
46.                 if(exists($hash{$key})){
    
47.                         #do nothing, it has been send already
    
48.                 }else{
    
49.                         my $msg=join "\n",($mail{$key}->{'name'},$mail{$key}->{'email'},$mail{$key}->{'modified'},$mail{$key}->{'title'},$mail{$key}->{'summary'});
    
50.                         $msg=substr($msg,0,180); #as fetion api can only send no more than 180 words
    
51.                         sedSMS($from,$to,$fetionpasswd,$msg);
    
52.                         sleep(4);  #then do with another mail
    
53.                         $hash{$key}=1;
    
54.                 }
    
55.         }
    
56.         sleep($sleeptime);
    
57. }
    
58. 
    
59. 
    
60. sub checkGmailAccount{
    
61.         my($user,$passwd,$gmail_address) = @_;
    
62.         my $content=`curl -su $user:$passwd $gmail_address`;
    
63.         if($content=~/<TITLE>Unauthorized<\/TITLE>/){
    
64.                 return 0;
    
65.         }else{
    
66.                 return 1;
    
67.         }
    
68. }
    
69. 
    
70. sub parseMail{
    
71.         my($s)=@_;
    
72.         my %mail;
    
73.         while($s=~/\<entry\>([\s\S]*?)\<\/entry\>/g){
    
74.                 my $mail=$1;
    
75.                 my($title,$summary,$modified,$name,$email);
    
76.                 if($mail=~/\<title\>([\s\S]*?)\<\/title\>/){
    
77.                         $title=$1;
    
78.                 }
    
79.                 if($mail=~/<summary>([\s\S]*?)<\/summary>/){
    
80.                         $summary=$1;
    
81.                 }
    
82.                 if($mail=~/<modified>([\s\S]*?)<\/modified>/){
    
83.                         $modified=$1;
    
84.                 }
    
85.                 if($mail=~/<name>([\s\S]*?)<\/name>/){
    
86.                         $name=$1;
    
87.                 }
    
88.                 if($mail=~/<email>([\s\S]*?)<\/email>/){
    
89.                         $email=$1;
    
90.                 }
    
91.                 my $key=join "\t",($email,$modified);
    
92.                 $mail{$key}->{'title'}=$title;
    
93.                 $mail{$key}->{'summary'}=$summary;
    
94.                 $mail{$key}->{'modified'}=$modified;
    
95.                 $mail{$key}->{'name'}=$name;
    
96.                 $mail{$key}->{'email'}=$email;
    
97.         }
    
98.         return %mail;
    
99. }
    
100. 
     
101. sub sedSMS{
     
102.         my($from,$to,$passwd,$msg) = @_;
     
103.         my $ua = LWP::UserAgent->new;
     
104.         my %form=("username"=>$from,"password"=>$passwd,"sendto"=>$to,"message"=>$msg);
     
105.         my $headderref = { 'Accept-Charset' => "utf-8" };
     
106.         my $apiurl='http://sms.api.bz/fetion.php';
     
107.         my $res=$ua->post($apiurl,\%form,$headderref);
     
108.         print $res->content,"\n";           
     
109. }               
     
110. 
     
111. sub usage(){
     
112.         print <<HERE;
     
113. perl alertGmail.pl -u gmail account  (etc.gmail\@gmail.com)
     
114.                    -p gmail account password(etc.111111)
     
115.                    -f fetion telphone number(etc. 13912345678)
     
116.                    -fp fetion account password(etc.123456)
     
117.                    -t to which telphone you want to send the SMS(etc.13912345678)
     
118.                    -d how often to check the gmail(default 300s)
     
119.                    -a print about page
     
120.                    -h print out this page
     
121. HERE
     
122. exit(0);
     
123. }
     
124. 
     
125. sub about{
     
126.         print <<HERE;
     
127.                 ######
     
128.             #####               #######
     
129. ########    about myself    ###################         
     
130. Master in Bioinformatics,Basic contact is below:
     
131. ################################################
     
132. #Author :Jiang Li
     
133. #Email  :riverlee2008\@gmail.com
     
134. #MSN    :riverlee2008\@live.cn
     
135. #Address:Harbin Medical University
     
136. #TEl    :+86-13936514493        
     
137. #################################################
     
138. HERE
     
139. exit(0);
     
140. }
     

復制代碼

蘭花仙子

鼓勵一下～～感謝分享～～

有個更簡單做法是，把gmail郵箱轉(zhuǎn)發(fā)到手機郵箱，運營商會給你短信提醒。

riverlee2008

同志們,別光下載,不回帖哦,路過要留名,讓我們把帖子頂起來,好東西,要分享~~

{:3_182:}{:3_189:}

riverlee2008

回復 2# 蘭花仙子


    哎呀,版主就是手腳快,沙發(fā)讓你搶了,唉~~~

ykredrum

哇，好東西啊
通過飛信發(fā)信息
可以用壇子里的達人寫的
http://www.72891.cn/viewthread.php?tid=1643878

ironbridge

GOOD ,

riverlee2008

哎呀,這個帖人煙稀少,不火啊, 傷心了, 繼續(xù)努力~~{:2_171:}

flw

how often 這個寫法有問題吧。

程序我沒仔細看，想來應該不錯。
下面從架構(gòu)上給出一些我的看法。

如果這么關心自己的郵件的話，
一個是可以購買智能機，支持郵箱的那種。
比如最新款的 google htc 就很不錯。
另一個就是蘭花仙子所說，通過 gmail 來轉(zhuǎn)發(fā)到手機郵箱什么的。

我還想說一點的就是，gmail 里面經(jīng)常會有很多垃圾郵件，
所以這個思路會不會其實用處不大呢？

riverlee2008

回復 8# flw


    其實思想不是局限于發(fā)郵件,而是覺得飛信的API不錯,我們可以擴增,比如用來監(jiān)視系統(tǒng),當系統(tǒng)異常時,給自己發(fā)個短信,當然了,現(xiàn)在有專門的設備,但那個要鈔票啊,哈哈, 偶寫寫也純屬娛樂.

    到是自己一直有個問題,就是怎么寫個程序也監(jiān)視"飛鴿收到的消息",本人水平有限,不是專門搞計算機,要是哪個達人有能給點建議,不甚感激.

   本人用的ubuntu8.10, 飛鴿版本是QipMsg0.9.5

ykredrum

樓主加油，多發(fā)點代碼，我們好學習
幫你頂起來。