gmail

ローカルにデータがたまりすぎたのでGmailをファイルストレージに使おうとがんばってみた

split -b 10m hoge hoge.

と10Mに分割して最初はちまちまブラウザーから自分にファイルを添付してメールしてたのだが明らかに面倒なのでコマンドラインからできないか探すことにした。で適当なPerlのスクリプトを探すとMail::Webmail::Gmailというのがあった。

#!/usr/local/bin/perl

use Mail::Webmail::Gmail;
my ( $gmail ) = Mail::Webmail::Gmail->new(
username => 'aaa@gmail.com', password => 'aaa', );

### Test Sending Message ####
my $msgid = $gmail->send_message( to => 'aaaa@gmail.com',
subject => "$ARGV[0]" ,
msgbody => "$ARGV[0]" ,
file0 => ["$ARGV[0]"]);

print "Msgid: $msgid\n";
if ( $msgid ) {
if ( $gmail->error() ) {
print $gmail->error_msg();
} else {
### Create new label ###
# my $test_label = "$ARGV[0]";
# my $test_label = "4";
my $test_label = "";
$gmail->edit_labels( label => $test_label, action => 'create' );
if ( $gmail->error() ) {
# print $gmail->error_msg();
} else {
### Add this label to our new message ###
$gmail->edit_labels( label => $test_label, action => 'add', 'msgid' => $msgid );
if ( $gmail->error() ) {
# print $gmail->error_msg();
} else {
# print "Added label: $test_label to message $msgid\n";
}
}
}
}

上のスクリプトをforeachでまわしてたら途中で動かなくなった。
gmailのアカウントを見ると停止になっていた。24時間ログインできないみたい。24時間後ファイルは無事だろうか....