Changeset 403198c for perl/modules/AIM

Timestamp:

Jun 1, 2008, 8:37:02 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

barnowl_perlaim

Children:

7d63a6c

Parents:

5fcf137

Message:

Proof-of-concept AIM client. Maybe less than a proof. Lemma-of-concept.

File:

• perl/modules/AIM/lib/BarnOwl/Module/AIM.pm (modified) (2 diffs)

perl/modules/AIM/lib/BarnOwl/Module/AIM.pm

@@ -16 +16 @@
 use Net::OSCAR;
 
-sub cmd_aimlogin { 
-    my ($cmd, $user, $pass) = @_;
-    if (undef $user) {
-        BarnOwl::start_question('Username: ', sub {
-                cmd_aimlogin($cmd, @_);
-                });
-    } elsif (undef $pass) {
-        BarnOwl::start_password('Password: ', sub {
-                cmd_aimlogin($cmd, $user, @_);
-                });
-    } else {
-        my $oscar = Net::OSCAR->new();
-        $oscar->set_callback_im_in(\&on_im_in);
-        $oscar->signon($user, $pass);
-    }
-}
+our @oscars;
 
 sub on_im_in {
@@ -44 +29 @@
 }
 
+sub cmd_aimlogin { 
+=comment
+    my ($cmd, $user, $pass) = @_;
+    if (!defined $user) {
+        BarnOwl::start_question('Username: ', sub {
+                cmd_aimlogin($cmd, @_);
+                });
+    } elsif (!defined $pass) {
+        BarnOwl::start_password('Password: ', sub {
+                cmd_aimlogin($cmd, $user, @_);
+                });
+    } else {
+=cut
+    {
+        my $oscar = Net::OSCAR->new();
+        my ($user, $pass) = ('...', '...');
+        $oscar->set_callback_im_in(\&on_im_in);
+        $oscar->signon(
+                screenname => $user,
+                password => $pass
+                );
+        push @oscars, $oscar;
+    }
+}
 BarnOwl::new_command(aimlogin => \&cmd_aimlogin, {});
 
+sub main_loop {
+    for my $oscar (@oscars) {
+        $oscar->do_one_loop();
+    }
+}
+$BarnOwl::Hooks::mainLoop->add(\&main_loop);
+
 1;
+
+# vim: set sw=4 et cin: