Nachdem ich mich jetzt ein wenig mit eigenen Tweet-Backup-Methoden beschäftigt habe,
bin ich jetzt noch über einen Clouddienst gestolpert der dies ebenfalls kostenlos bietet.
Der Dienst heißt Backupify,
und Backupt kostenlos automatisch diverse Web2.0 Dienste,
eigentlich eine ganz coole Idee für alle die es nicht selber machen können oder wollen.
Ob man seine Backups in der Cloud liegen haben möchte ist wieder eine andere Frage, die jeder für sich entscheiden muss.
Ich wolle also ein Script haben,
das einmal am Tag die eigenen Tweets aus twitter zieht und abspeichert.
Also habe ich das alte Script angepasst.
Ergebnis ist folgendes:
#!/usr/bin/perl
require Encode;
use Net::Twitter;
use strict;
my $nt = Net::Twitter->new(
username => "TWITTERNAME", #Durch Twitternick ersetzten
password => "TWITTERPASSWORT" #Durch Twitterpasswort ersetzen
);
my $pfad = "/pfad/zum/script/verzeichnis"; #Bitte durch eigenens Verzeichnis ersetze
#Ab hier nichts mehr ändern
open(LASTTWEET, "< $pfad/last_own_tweet.id") || die "Datei nicht gefunden\n";
my @IN = ;
my $lastid = $IN[0];
close(LASTTWEET);
eval {
my $statuses = $nt->user_timeline({ count => 150, since_id => $lastid});
#for my $status ( @$statuses ) {
for (my $i=(@$statuses-1);$i >= 0;$i--){
my $status = @$statuses[$i];
print Encode::encode_utf8("$status->{created_at} $status->{time} < $status->{user}{screen_name}> $status->{text}\n");
if( $status->{id} > $lastid)
{
$lastid = $status->{id};
}
}
open(LASTTWEET, ">$pfad/last_own_tweet.id"); # Datei zum Schreiben öffnen
print LASTTWEET "$lastid"; # Datei schreiben
close(LASTTWEET);
};
if ( my $err = $@ ) {
die $@ unless blessed $err && $err->isa('Net::Twitter::Error');
warn "HTTP Response Code: ", $err->code, "\n",
"HTTP Message......: ", $err->message, "\n",
"Twitter error.....: ", $err->error, "\n";
exit;
}
else { exit; }
In dem Script müssen am Anfang die Variablen einmal richtig gesetzten werden (wie Twitternick etc.).
Desweiteren muss die datei “last_own_tweet.id” im Scriptverzeichnis angelegt werden,
und mit der ID des Tweets befüllt, bei dem das ganze Beginnen soll.
nichts geht über den ersten biss in ein frisches stück brot mit ner guten salami, selbst der zweite biss kann da nur schwer mithalten
Wenn ich groß bin will ich sein wie Google,
und alles speichern :P
Naja nicht ganz, aber manchmal ist es schon schön Dateien auf seinen eigenen Platten und nicht nur in der Cloud zu wissen.
Aus diesem Grund kam mir der Wunsch, meine Tweets nicht nur bei Twitter sondern auch selbst gespeichert zu wissen.
Ich zwitschere nun schon über ein Jahr vor mich hin,
und es ist spannend wie sehr man sich nur durch die einzelnden Tweets an bestimmte Situationen zurück erinnern kann.
Wie schon in diesem (What we need is push) und diesem Post (Twitter Push Notifications aufs Iphone mit Prowl) erkennbar habe ich etwas übrig für das Iphone Programm Prowl.
Es öffnet gewisser Maßen die Push Schnittstelle für Jedermann sozusagen,
den es öffnet die Möglichkeit per Https Interface Push Notifications an das eigene I-Phone zu senden. Außerdem wird das Programm ständig um Funktionen und Möglichkeiten erweitert.
Im Bezug auf diesen Post hab mir mal ein kleines script gebastelt,
das @replies von twitter auf mein iphone pusht.
Das ganze ist ein Perl script und wird bei mir per Cronjob alle 3 Minuten ausgeführt.
um den Codeschnipsel zu benutzen müssen twitter_name twitter_password und ApiKey von Prowl ersetzt werden.
#!/usr/bin/perl
use Net::Twitter;
use WebService::Prowl;
my $prowl = WebService::Prowl->new(apikey => HIER_DEINEN_PROWL_API_KEY_EINFÜGEN);
my $nt = Net::Twitter->new(
traits => [qw/API::REST/],
username => "HIER_DEINEN_TWITTER_NICK_EINFÜGEN",
password => "HIER_DEIN_TWITTER_PASSWORT_EINFÜGEN"
);
# my $result = $nt->update('Hello, world!');
open(LASTTWEET, "<lastdirekttweet .id") || die "Datei nicht gefunden\n";
my @IN = <LASTTWEET>;
my $lastid = $IN[0];
close(LASTTWEET);
eval {
my $statuses = $nt->replies({ since_id => $lastid});
for my $status ( @$statuses ) {
$prowl->add(application => "Twitter",
event => "< $status->{user}{screen_name} >",
description => "$status->{text}");
print " $status->{time} < $status->{user}{screen_name} > $status->{text}\n";
if( $status->{id} > $lastid)
{
$lastid = $status->{id};
}
}
open(LASTTWEET, ">lastdirekttweet.id"); # Datei zum Schreiben öffnen
print LASTTWEET "$lastid"; # Datei schreiben
close(LASTTWEET);
};
if ( my $err = $@ ) {
die $@ unless blessed $err && $err->isa('Net::Twitter::Error');
warn "HTTP Response Code: ", $err->code, "\n",
"HTTP Message......: ", $err->message, "\n",
"Twitter error.....: ", $err->error, "\n";
}
</lastdirekttweet>
Somit dürfte die Suche nach Twitter Push Notifications aufs Iphone ein ende haben :)
Viel Spaß damit und für Kommentare bin ich immer dankbar :)
Bei meiner, doch jetzt schon länger andauernden, Suche nach einem passenden Twitterclient bin ich auf Twirssi gestoßen.
Bei Twirssi handelt es sich um eine Art Plugin, ein Perlscript, für Irssi.
Dieses Script ermöglicht es die Tweets der Freunde in einem Chatraum von Irssi darzustellen, und auch über Irssi selbst zu twittern.
Insgesammt gefällt mir diese Lösung für Twitter sehr gut :)
Die Installation
Twitter,
Der Service mit der Antwort auf die Frage was machst du gerade, verzeichnet neben enormem Medienecho einen enormen Anteil zwittschernder User.
Aber warum wird dieser Dienst, dessen Fastzination für Aussenstehende oft nicht sofort ersichlich ist, so geschätzt?
Eine mögliche Erklärung ist die Freiheit und Ungezwungenheit: