FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 16:46:35 +00:00
Code Issues Releases Wiki Activity

NEW 99_twitter send MSG to Twitter: twitter "<msg>"

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@623 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parix 2010-04-29 03:53:41 +00:00
parent d99a286402
commit 0f4407426d
1 changed files with 112 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

112
fhem/contrib/99_twitter.pm Executable file
View File

@ -0,0 +1,112 @@
##############################################
# Twitter for FHEM
# Sends Twitter-MSG
#
# Usage:
# twitter <MESSAGE>
# Beispiel
# twitter "MEINE TWITTER NACHRICHT"
# per AT-Job alle 15min
# define TW001 at +00:15:00 {my $msg = TimeNow() . " " . $defs{<DEVICE-NAME>}{'STATE'} ;; fhem "twitter $msg"}
#
# Twitter Limits
# http://help.twitter.com/forums/10711/entries/15364
# Updates: 1,000 per day. The daily update limit is further broken down into
# smaller limits for semi-hourly intervals. Retweets are counted as updates.
##############################################
package main;
use strict;
use warnings;
use POSIX;
use Data::Dumper;
use LWP::UserAgent;
use vars qw(%data);
use vars qw(%cmds);
sub Commandtwitter($);
#####################################
sub
twitter_Initialize($)
{
# Config-Data
# Account-Data
$data{twitter}{login}{user} = "********";
$data{twitter}{login}{pwd} = "********";
# disabled ?? -> enable
if(defined($data{twitter}{conf}{disabeld})){
delete $data{twitter}{conf}{disabeld};
}
# $data{twitter}{conf}{disabeld} = 1;
# Max 1000 MSGs per Day
$data{twitter}{conf}{msg_count} = 0;
$data{twitter}{conf}{day} = (localtime(time()))[3];
#FHEM-Command
$cmds{twitter}{Fn} = "Commandtwitter";
$cmds{twitter}{Hlp} = "Sends Twitter Messages (max. 140 Chars): twitter MSG";
}
#####################################
sub Commandtwitter($)
{
my ($cl, $msg) = @_;
if(!$msg) {
Log 0, "TWITTER[ERROR] Keine Nachricht";
return undef;
}
# Disbaled ??
if(defined($data{twitter}{conf}{disabeld})){
Log 0, "TWITTER[INFO] DISABLED";
return undef;
}
#Changed Day
my $d = (localtime(time()))[3];
my $d_old = $data{twitter}{conf}{day};
if($d_old ne $d){
$data{twitter}{conf}{day} = $d;
Log 0,"TWITTER[INFO] DAY-CHANGE: DAY: $d_old MSG-COUNT: " . $data{twitter}{conf}{msg_count};
$data{twitter}{conf}{msg_count} = 0;
}
#Count MSG
my $msg_cnt = $data{twitter}{conf}{msg_count};
if($msg_cnt > 1000) {
Log 0, "TWITTER[INFO] MessageCount exceede 1000 Messages per Day";
return undef;
}
my $t_user = $data{twitter}{login}{user};
my $t_pdw = $data{twitter}{login}{pwd};
my $t_log;
#Add MSG-Count
$msg = "[" . $msg_cnt ."] " . $msg;
# Max ;SG-Length 140
my $ml = length ($msg);
if($ml > 140){
Log 0, "TWITTER[INFO] Die Nachricht ist mit $ml Zeichen zu lang (max. 140)";
$msg = substr($msg, 0, 140);
}
my $browser = LWP::UserAgent->new;
# Proxy-Server
# $browser->proxy(['http'], "http://PROXYSERVER:PORT");
$browser->timeout(5);
my $url = 'http://twitter.com/statuses/update.json';
$browser->credentials('twitter.com:80', 'Twitter API', $t_user , $t_pdw);
my $response = $browser->get("http://twitter.com/account/verify_credentials.json");
if($response->code eq 200){$t_log = "LOGIN=SUCCESS";}
else {
$t_log = "[ERROR] LOGIN: " . $response->code .":".$response->message . " DISABLED";
# ERROR disable twitter
$data{twitter}{conf}{disabeld} = 1;
}
$response = $browser->post($url, {status => $msg});
if($response->code eq 200){$t_log .= " UPDATE=SUCCESS";}
else {
$t_log = "[ERROR] UPDATE: " . $response->code .":".$response->message . " DISABLED";
# ERROR disable twitter
$data{twitter}{conf}{disabeld} = 1;
}
$msg_cnt++;
Log 0, "TWITTER[INFO] " . $t_log . " MSG-$msg_cnt-: $msg";
$data{twitter}{conf}{msg_count}++;
return undef;
}
1;