ZXTM Eventing Modules

  #!/usr/bin/perl
  use LWP;
  my $username="Your Twitter User";
  my $password="Your Twitter Pass";
  # The below text will be prepended to your ZXTM's tweet
  my $preStatus = "Cluster update: ";
  my $updateURL="http://twitter.com/statuses/update.xml";
  my $browser = LWP::UserAgent->new;
  my $message = join(" ", @ARGV);
  $message =~ s/--eventtype=/$preStatus/;
  $browser->agent('ZXTM Eventing System');
  $browser->credentials(
	'twitter.com:80',
	'Twitter API',
	$username => $password
  );
  my $response = $browser->post( $updateURL, [ status => $message ] );

  print $response->status_line;

  print $response->content;
 

The good thing about Twitter is that it allows you to protect your updates, so that only your friends can see what you're doing. When you have an ADC posting messages about the state of your network, you will probably want to switch that option on.

If you're lucky enough to have a Nabaztag bunny in your living room though:

  #!/usr/bin/perl

  use LWP;
  my $serial = "Your Nabaztag Serial Number";
  my $token = "Your Nabaztag API token";
  my $chor = "10,0,motor,1,20,0,0,0,led,2,0,238,0,2,led,1,250,0,0,3,led,2,0,0,0";
  my $voice = "IE-Orla";
  # The below text will be prepended to your ZXTM's Message
  my $preStatus = "Cluster update: ";
  my $message = join(" ", @ARGV);
  $message =~ s/--eventtype=/$preStatus/;
  my $nabaztagAPI = "http://api.nabaztag.com/vl/FR/api.jsp?sn=" . $serial .
    "&token=" . $token .
    "&tts=" . $message .
    "&chor=" . $chor .
    "&voice=" . $voice ;
  my $browser = LWP::UserAgent->new;
  $browser->agent('ZXTM Eventing System');
  my $response = $browser->get($nabaztagAPI);
  print $response->status_line;
  print $response->content;

You should get something like this....