Das Student Potential brauchte einen Twitter.
Ok, brauchen ist übertrieben, aber sowas sollte schon sein, wenn man in die Zukunft investieren will.
Nun, den hat man schließlich leicht aufgesetzt, einfach sich anmelden.
Und nun?
Hmm.. #stupo09 soll „geretwittert“ werden.
Das ist dann doch eine Stufe weiter.
Schnelles Googlen ergab ein böses Skript, in Form einer Yahoo Pipe und Aufnahme des RSS Feeds in einen Twitterbot.
Hat bis vor Kurzem auch gehalten.
Doch jetzt bringt der keine Updates mehr.
Also, was kann ich dagegen machen?
Richtig, ein Perl Skript.
Ein ganz ein einfaches..
CPAN sei Dank:
Net::Twitter
Das ist jetzt fast schon zu einfach!
$result = $twit->user_timeline({count=>'1'});
Holt das letzte Update.
$result = $twit->search({q=>'#stupo09', since_id=>$hsa->{id}});
Sucht nach „#stupo09“ seit dem letzten Update.
Dann ne kleine Foreach Schleife, die sich den Text und Absender holt, daraus einen neuen Text bastelt und den abkürzt, falls er länger als 140 Zeichen sein sollte.
Zu guter Letzt wirds als Update an den Account geschickt.
Und dafür hab ich jetzt ne Stunde gebraucht?
Das muss besser werden!
Nächster Schritt: identi.ca einbinden
Einfach unabhängig von Twitter werden.
Dass ich sowas auf meinem Server laufen lasse, dankt die Firma mir mit Sicherheit nicht.
Das notwendige CPANupdate hat mich 15 Minuten mindestens gekostet. Was der nicht alles nachinstallieren wollte..