#!/usr/bin/perl

#------------------------------------------
$ver = "豁ｻ豢ｻ逶｣隕冶｣懷勧繝��繝ｫ v0.5";
#------------------------------------------
# COPYRIGHT (C) 2014 螻ｱ蟯ｸ閠募､ｪ譛� All Rights Reserved.
# T E L :050-3561-8731
# E-Mail:yamagishi.koutarou@gmail.com
# W W W :http://ameblo.jp/02822525/
# 縺薙�繧ｹ繧ｯ繝ｪ繝励ヨ繧剃ｽｿ逕ｨ縺吶ｋ縺ｨ縲∝挨騾泌ｮ壹ａ繧倶ｽｿ逕ｨ險ｱ隲ｾ縺ｫ蜷梧э縺励◆繧ゅ�縺ｨ縺ｿ縺ｪ縺励∪縺吶€�
# 縺ｾ縺溘€∬｣ｽ菴懆€��縺薙�繧ｹ繧ｯ繝ｪ繝励ヨ繧剃ｽｿ逕ｨ縺励◆縺薙→縺ｫ繧医ｋ縺�°縺ｪ繧玖ｲｬ莉ｻ繧りｲ�繧上↑縺�ｂ縺ｮ縺ｨ縺励∪縺吶€�
#------------------------------------------

use utf8;
use Net::Twitter;
#sudo perl -MCPAN -e 'CPAN::Shell->install("Net::Twitter")'

#--- [險ｭ螳壹％縺薙°繧云 ------------#
my $consumer_key    = '4tDioTpwyV39DRX37tu5wtnA4',								#螟画峩縺励↑縺�〒縺上□縺輔＞
my $consumer_secret = 'eHuPnQBeUYhofPFj7Om1ImL4fb7MLn4D3OwgUbIAjsmwHJXjjw',		#螟画峩縺励↑縺�〒縺上□縺輔＞
my $token           = '2824496072-g97y7ErB3Vuy0laByPgfLIEFM8UPChbzTpVjSZE';		#Twitter縺九ｉ謖�､ｺ縺輔ｌ縺ｾ縺�
my $token_secret    = '2EgbmTEkqXgyFo0YvLIVGrACXeQvD9xIFLpNbvZTOTrV8';			#Twitter縺九ｉ謖�､ｺ縺輔ｌ縺ｾ縺�
#--- [險ｭ螳壹％縺薙∪縺ｧ] ------------#

my $nt = Net::Twitter->new(
   traits => ['API::RESTv1_1'],
   consumer_key => $consumer_key,
   consumer_secret => $consumer_secret,
   access_token => $token,
   access_token_secret => $token_secret,
   ssl => 1,
);
$utla = `uptime`;
$utla =~ s/^\\\\[a-zA-Z0-9]* has been //;
$utla =~ s/ day\(s\), / /;
$utla =~ s/ hour\(s\), /:/;
$utla =~ s/ minute\(s\), /:/;
$utla =~ s/ second\(s\)//;
 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
 $year=$year+1900;
 $mon++;
 $mon  = sprintf("%02d",$mon);
 $mday = sprintf("%02d",$mday);
 $hour = sprintf("%02d",$hour);
 $min  = sprintf("%02d",$min);
 $sec  = sprintf("%02d",$sec);
 $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
 $date = "$mon\/$mday\($week\) $hour\:$min\:$sec";
$whatshappening = "笘�宵莉� $date\n$utla";
$result = $nt->update("$whatshappening");
open(LOG,">> C:\twlog.txt");
$writelog = "$date,$utla";
$writelog =~ s/\n//g;
print LOG "$writelog\n";
close(LOG);