send-im example script

sartak · Aug 18, 2009 · b6ddfd9 · b6ddfd9
1 parent a1dc1b3
commit b6ddfd9
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/examples/send-im b/examples/send-im
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use IM::Engine;
+use Getopt::Whatever;
+
+my $protocol  = delete $ARGV{protocol};
+my $recipient = (delete $ARGV{recipient}) || $ENV{USER};
+
+my $engine = IM::Engine->new(
+    interface => {
+        protocol    => $protocol,
+        credentials => \%ARGV,
+    },
+);
+
+$engine->send_message(
+    IM::Engine::Outgoing->new(
+        recipient => IM::Engine::User->new(
+            name => $recipient,
+        ),
+        message => "@ARGV",
+    ),
+);
+