conky显示不了gmail,你们的呢?

为当前最终发行版之前的所有版本提供支持
回复
头像
noble_out
帖子: 150
注册时间: 2012-04-20 15:58
系统: ubuntu12.04+windows8
来自: 中华人民共和国
送出感谢: 2 次
接收感谢: 0
联系:

conky显示不了gmail,你们的呢?

#1

帖子 noble_out » 2013-03-31 18:45

以前一直用这脚本。最近连不上了。。。。

代码: 全选

#!/bin/bash
gmail_login="user" 
gmail_password="password"
dane="$(wget --secure-protocol=TLSv1 --timeout=3 -t 1 -q -O - \
https://${gmail_login}:${gmail_password}@mail.google.com/mail/feed/atom \
--no-check-certificate | grep 'fullcount' \
| sed -e 's/.*<fullcount>//;s/<\/fullcount>.*//' 2>/dev/null)"
if [ -z "$dane" ]; then
echo "Error"
else
echo "$dane"
fi
下了个live.cn邮箱的脚本,也连不上。。。。

代码: 全选

#!/usr/bin/perl
$pop_host = 'pop3.live.com';
$pop_user = 'user';
$pop_pass = 'password';
$ssl_port = 995;
$ssl_prot = 'tcp';
use Mail::POP3Client;
use IO::Socket::SSL;
  my $socket = IO::Socket::SSL->new( PeerAddr => $pop_host,
                                     PeerPort => $ssl_port,
                                     Proto    => $ssl_prot);
  my $pop = Mail::POP3Client->new();
  $pop->User($pop_user);
  $pop->Pass($pop_pass);
  $pop->Socket($socket);
  $pop->Connect();
$msg_count = $pop->Count();
print "$msg_count";
$pop->Close();
use Mail::POP3Client;这句代码报错了。。。
Can't locate Mail/POP3Client.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .)
求解。
头像
noble_out
帖子: 150
注册时间: 2012-04-20 15:58
系统: ubuntu12.04+windows8
来自: 中华人民共和国
送出感谢: 2 次
接收感谢: 0
联系:

Re: conky显示不了gmail,你们的呢?

#2

帖子 noble_out » 2013-03-31 20:08

cpan -i Mail::POP3Client
还是google厉害,现在能显示live.cn的邮箱了 :em02
不过gmail的还是没办法
附件
mail.png
mail.png (16.67 KiB) 查看 2013 次
回复

回到 “老旧版本支持”