伪军

作为一个伪军，我的门卡信息不能进入考勤系统。
每天早晚要发一封签到邮件，悲催。TAT
但是我发现可以这么干

sendemail -f liyaohui@snda.com -t dlad@wobu2.com -u “上班” -m 1 -s smtp.snda.com -xu xxx-xp xxxxx

明天是不是不用来了^^

======================贱贱的分割线===========================
2012年5月25日12:55:05
早睡早起，吾所欲也。
上面的想法多半是个玩笑，没有真的决定使用。
不过……下雨天打孩子，闲着也是闲着。我还是把它完成了。
限制
公司电脑是绑定ip的，公司邮件也需要内网ip，邮件密码包含密保随机码。
随身设备只有台BB8310，可浏览网页。

我在外网服务器上启用了一个页面。
设置接口，维护一个状态位和一组随机码。
之后在本地虚拟机做了个守护进程

#!/usr/bin/perl -w
use strict;
use LWP;

$| = 1;

my $url = ‘此页面常年提供1.是否发送邮件；2.随机码；3.参数设置接口’;
my $cmd = ‘邮件发送命令’;

my $ua = LWP::UserAgent->new;

while(1) {
my $res = $ua->get($url);
my $content = $res->content;

#解析数据
my @match = split '######',$content;
my $switch = $match[0];
my $rkey = $match[1];

#关闭状态位，并发送邮件
if($switch eq 'on') {
    #设置状态位
    $res = $ua->get($url . "?参数列表");
    $content = $res->content;
    #若状态位的确关闭，发送邮件
    if($content =~ m/^off/) {
        system($cmd . $rkey);
    }
}

sleep(60);

}
如此，若不关公司电脑，我能够手机访问指定网址设置随机码，一分钟之内即会发送签到邮件。