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.

Ich habe mir an nach dem Herrunterladen der alten Tweets durch das andere Script die ID des letzten Tweets eingefügt.

Danach das Script am besten per Cronjob einmal täglich ausführen, so z.b.

/pfad/zum/script/twitter.pl >> meinetweets.txt

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.

Also Tweets auf der Platte abspeichern.
Bei der Suche nach einer Möglichkeit dies zu tun, bin ich auf eine schöne Perl-Bibliothek gestoßen: Net::Twitter
Installieren kann man dieses Libary in der cpan :

cpan #zum öffnen der cpan

install Net::Twitter #Installiert das Paket

#alternativ auch alles in einem mit:  cpan install net:twitter

damit währen die Vorraussetzungen geschaffen einigermaßen schön auf die Twitter API zu zugreifen.

Also nichts wie ran hier ist der Code der alle Eigenen Tweets ausgiebt um diese, alle eigenen Twitter Tweets abzuspeichern.
Die Variablen die gesetzt werden damit das ganze klappt erkläre ich gleich:

#!/usr/bin/perl

require Encode;
use Net::Twitter;
use strict;

my $nt = Net::Twitter->new(
username => "Twittername",
password => "Twitterpass"
);
my $mypage = "69"; #SEITENZAHL

#AB HIER NICHTS ÄNDERN !!
while($mypage >= 0)
{
eval {
my $statuses = $nt->user_timeline({ page => $mypage });
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");
}
};
sleep 2;
$mypage = $mypage-1;
}

In diesem Code müssen “Twittername” durch den Nick eures Twitteraccounts und “Twitterpass” durch euer Passwort ersetzt werden.
Außerdem müsst ihr den Wert der Variable mypage anpassen.
Er definiert die Anzahl an Seiten die Abgerufen werden, eine Seite enthält 20 Tweets.

Habt ihr also insgesammt 201 Tweets und wollt sie alle sichern so müsst ihr mypage auf 11 setzen.

Wünsche viel Spaß damit :)

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.

Auf dieses Programm will ich jetzt etwas näher eingehen und euch neue Funktionen vorstellen.
Neben dem Perl-Code in Twitter Push Notifications aufs Iphone mit Prowl [ der übrigens hier für bluehost angepasst wurde, was ich übrigens sehr begrüße, solange die Quelle genannt wird, was getan wurde :) ].

Neben diesem Twitterpush Pushe ich mir meine Jabber Nachrichten sofern ich nicht sonst irgendwo eingeloggt bin. Auf diesem Weg puschen auch meine ICQ und MSN Nachrichten. Wie dies genau funktioniert werde ich die Tage ebenfalls posten bzw. näher erläutern.

Doch hier möchte ich erstmal ein wenig auf die Vorraussetzungen für all die Scripte eingehen.
Quasi das was man vorher machen muss.

Zu erst ist natürlich die Software nötig :
“Prowl” diese ist im Appstore mit dem Iphone zu kaufen.
Soweit ich weiß kostet diese um die 2 Euro.
Dies sind die einzigen Kosten die Anfallen.
Hat man die Software gekauft und auf dem Phone installiert,
sollte man sich erstmal hier einen Account registrieren und diesen auch in der Software eingeben.
Ist das erledigt erhält man in der Webseite nach dem Einloggen einen API key, der das eigene Iphone oder den eigenen Ipod identifiziert.
Diesen Key brauchen die Scripte um Push-Notifications abzusetzen.

Damit wären auch schon sämtliche vorbereitenden Maßnahmen getroffen und es kann los gehen, die Scripte können benutzt werden.

Für alle die nicht die Möglichkeit haben mit einem eigenen Server Scirpte laufen zu lassen,
gibt es neuerdings einen Webservice mit Namen Prey Fetcher der Twitter Push für euch übernimmt.

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, ";
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";
  }

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 :)

[ EDIT 19. 09 2009 ]

Script leicht verbessert

Die Installation

Als Vorraussetzung ist als erstes natürlich eine Irssi installation, fals nicht vorhanden schnell mit apt-get install irssi erledigen.
Dann musst die aktuelle Net::Twitter Perl Libary Version installiert werden.
Dies war allerding mit

sudo cpan -i  Net::Twitter

schnell erledigt.
Danach ein Twitter-Script Verzeichnis anlegen

mkdir ~/.irssi/scripts

In das Verzeichnis wechseln

cd ~/.irssi/scripts

Jetzt die aktuelle Twirssi Version laden

wget http://twirssi.com/twirssi.pl

Für den komfort das ganze noch als Autostart-Verknüpfung anlegen:

mkdir autorun
cd autorun
ln -s ../twirssi.pl autorun

Soweit alles eingerichtet,
jetzt Irssi starten,
mit

/win new hidden

neues Fenster anlegen, dieses bennen:

/win name twitter

Jetzt Twirssi laden:

/script load twirssi.pl

Und ab gehts,
einloggen unt los twittern:

/twitter_login username password
/tweet Twirssi works (Help by ohnekontur.de)

Als kleiner Hinweis sei hier noch die möglichkeit Putty transparent zu stellen,  sowie das Scrollen in Irssi mit Mac erwähnt sein.

Weitere Tipps zu den Befehlen von Twirssi findet man hier.

Eine mögliche Erklärung ist die Freiheit und Ungezwungenheit:

Außer 140 Zeichen existiert letztlich keine Regel, keine genaue Zielsetzung was in twitter gehört.
Gleichzeitig ermöglicht twitter ungezwungene Kommunikation:
Werde ich angerufen, so wird von mir erwartet, dass ich abnehme.
Lese ich einen Tweet , so kann ich mich dazu äußern, oder aber es lassen, ohne damit jemanden zu enttäuschen.

Diese Möglichkeit,
ja diese neue Freiheit bewirkt eine neue Faszination.
Es entwickelt sich ein neues Lebensgefühl, eine neue Komunikations-Kultur,
etwas so grundlegend Neues.

Und wir sind mit dabei
Wohin auch immer uns die Reise führen mag :)