====== identi.ca via Perl ======

  * Urspruenglicher Autor: Dirk Deimeke
  * Urspruengliches Datum: 29.04.2011

Die Kurznachrichtendienste, wir bevorzugen [[http://identi.ca/|identi.ca]], koennen sehr komfortabel via Perl mit Nachrichten versorgt werden.

Das kann man beispielsweise dazu nutzen, sich über den Ablauf eines lang laufenden Skriptes informieren zu lassen.

Um das zu bewerkstelligen, muss [[http://search.cpan.org/%7Emmims/Net-Twitter-3.17001/lib/Net/Twitter.pod|Net::Twitter]] installiert werden. Dazu reicht beispielsweise unter Ubuntu ein ''sudo aptitude install libnet-twitter-perl'', alternativ kann auch der in einem frueheren [[adminstoriesperlmodulenachinstallieren|frueheren Blog-Artikel]] beschriebene Weg beschritten werden.

Bei aelteren Modulen leistet das folgende kleine Perlscript das Gewuenschte (username und passwort muessen angepasst werden):

<code perl>#!/usr/bin/perl -w
use strict;
use Net::Identica;

if ( $#ARGV == 0 ) {
  my $ident = Net::Identica->new( username => "USERNAME", password => "PASSWORT" );
  my $result = $ident->update( { status => "$ARGV[0]" } ) or die "Alles doof";
} else {
  print "\nBenutzung:\n\n";
  print "$0 nachricht\n\n";
  print "nachricht muss in Anfuehrungszeichen stehen, \
  wenn sie aus mehreren Worten besteht.\n\n";
}</code>

Bei neueren Modulen muss das unten stehende Format verwendet werden (ungetestet!), siehe auch die Dokumentation fuer [[http://search.cpan.org/%7Emmims/Net-Twitter-3.17001/lib/Net/Identica.pm|Net::Identica]]. Ein Beispiel fuer die Verwendung von OAuth ist dort auch zu finden.

<code perl>my $ident = Net::Twitter->new( legacy   => 1, identica => 1,
username => "USERNAME", password => "PASSWORT");</code>

Der Aufruf erfolgt dann mittels: ''/pfad/zum/script.pl "Zu versendende Nachricht"''

[[adminstoriesartikel|Zurück zur Uebersicht]]