Changeset 1401

Timestamp:

03/08/07 20:13:52 (2 years ago)

Author:

jm3

Message:

preliminary share / invite peeps-ness working

Files:

• feedmelinks/lib/FeedMeLinks/Bot.pm (modified) (18 diffs)

feedmelinks/lib/FeedMeLinks/Bot.pm

@@ -43 +43 @@
-        if( ! $fml_username ) {
-         if( $sessions_ref->{ $sender }{ "seen_welcome" } == 0 && !( $message =~ m/validate/ )) {
-
+
+
-                        $sessions_ref->{"$sender"} = build_empty_session( $sender );
-                        $sessions_ref->{ $sender }{ "seen_welcome" } = 1;
-                }
-        } else {
-                log_mesg( \*LOG, "session", "authenticated session for $sender" );
-                if( $sessions_ref->{ $sender }{ "seen_welcome" } == 0 ) {
-                        $aim->send_im( $sender, "Welcome back, " .  get_dude() . "!" );
-
+, $sender
-                        $sessions_ref->{ $sender }{ "seen_welcome" } = 1;
-                }
@@ -77 +77 @@
-                        my $info = $xp->getNodeText( "/result" );
-
-                        print "> raw: " . Dumper( $response->content ) . "\n";
-                        print "< got $info back from FML\n";
-                        if( $info =~ m/http/ ) {
-                                my $link_id = $info;
@@ -93 +91 @@
-
-                                $aim->send_im($sender, h("<b>Added</b>:\n<a href='$info'>$name</a>" ));
-
+
+
+
+
+
+
-                        } else {
-                                if( $info =~ m/Duplicate/ ) {
@@ -138 +141 @@
-                        print "validation_response: $validation_response\n";
-
-
-
-
-$aim->send_im($sender, "<b>\n\nAll done -- that was easy</b>!\nNow your Feed Me Links account is linked to your 
+, $sender
+
+
+       . "
-                } else {
-                        $aim->send_im($sender, h("Darn, that doesn't match our records. Please try again, or <a href='$site/contact-us?subject=AIM+issues:+'>contact us</a>.") );
@@ -162 +165 @@
-        # COMMAND: PEEPS ###############################################################
-        } elsif( $fml_username && $message =~ m/peeps/ ) {
-
-
-
-
-
-
-
+
-                
-        # COMMAND: VERSION ###############################################################
@@ -190 +187 @@
-                $aim->send_im($sender, "<b>This is the Feed Me Links AIM Bot</b>:
-From here, you can do most anything you can do on Feed Me Links. It's easy to get started.
-version
+peeps
-
-        # COMMAND: STATUS ###############################################################
@@ -196 +193 @@
-                log_mesg( \*LOG, "status", " $sender" );
-                $aim->send_im($sender, "<b>DEBUG DUMP</b>:\nsender: $sender\nmessage: $message" );
-                $aim->send_im($sender, Dumper( $sessions_ref ));
-                print Dumper( $sessions_ref ) . "\n";
-        
@@ -231 +227 @@
-                        }
-                        log_mesg( \*LOG, "debug", "response: $response_code renaming $link to $message" );
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-        # COMMAND: TAG ###############################################################
-        } elsif( $fml_username && $sessions_ref->{$sender}{"last_link"} && $sessions_ref->{$sender}->{"added_tags"} == 0 ) {
@@ -243 +274 @@
-                        $tags = encode( $tags );
-                        # HACK: not sure why the proxy's credential'ed password isn't being passed in, but passing it on the URL works. whatever.
-
+
+
-                        my $response = $sessions_ref->{$sender}->{"proxy"}->get( $url , []);
-                        my $response_code = "" . XML::XPath->new(xml => $response->content)->findnodes('/rest/response/@code'); # HACK: string type coercion
@@ -289 +321 @@
-
-                        log_mesg( \*LOG, "debug", "summary: $summary" );
-
+
+
-                }
-
@@ -296 +329 @@
-                my $peep = encode( $message );
-                $aim->send_im($sender, h("<a href='$site/u/$peep'>$peep</a> is your peep! APE CANNOT KILL APE!" ));
-                
-
-        } else {
@@ -351 +383 @@
-}
-
+# END MAIN ZZZZZZZZ HERE COME THOSE FORM-FEEDS!
+
+
+sub get_printable_user_string_from_hash {
+        my $hashref = $_[0];
+
+        my $pretty_string = "";
+        while( my ($name, $value) = each( %{$hashref})) {
+                $pretty_string .= "<a href='aim:goim?screenname=$value'>$name</a>, "; 
+        }
+        $pretty_string =~ s/, $//;
+        return $pretty_string;
+}
+
+
+sub who_of_my_peeps_are_online {
+        my $sessions = $_[0];
+        my $user = $_[1];
+        
+        my $aimers = $sessions->{$user}{ "shareables" };
+        my $peeps_online_now_ref = ();
+        while( my ($peep_fml_username, $peep_aim_name) = each( %{$aimers} )) {
+                if( $sessions->{$peep_aim_name} ) {
+                        log_mesg( \*LOG, "debug", "$peep_aim_name is online, adding him to your list of immediate shareables" );
+                        $peeps_online_now_ref->{$peep_fml_username} = $peep_aim_name;
+                }
+        }
+        return $peeps_online_now_ref; # FIXME: finish
+}
+
-sub is_user_validated {
-        log_mesg( \*LOG, "debug", " is_user_validated() - no users with \@ signs?" );
-        my $sender = shift;
-        my $response = $www->get( "$site/api/backroom/is_im_account_known&user=$sender" , []);
@@ -359 +420 @@
-        $is_valid .= "";
-        my $fml_user = $xp->getNodeText("/rest/user");
-print "> trying to validate user $sender; FML server said: account $fml_user, valid=$is_valid\n"
+log_mesg( \*LOG, "authenticate", "trying to validate user $sender; FML server said: account $fml_user, valid=$is_valid" )
-
-        if( $is_valid ) {
@@ -392 +453 @@
-        #user and password
-        my $u = $_[0];
+        my $aim_name = $_[1];
-        my $p;
-
-
-
-
+
-
-        my $response = $www->get( "$site/api/backroom/getPasswdForUser&user=$u", []);
@@ -417 +476 @@
-                $tags_ref->{ $tag_name } = $tag_id;
-        }
-
+
-        # CACHE THE USER's PEEPS IN THE SESSION OBJECT:
-        $url = "$site/api/peeps?user=" . encode( $u ) . "&password=" . encode( $p );
@@ -510 +569 @@
-                "bro", 
-                "baby", 
+                "beautiful", 
-                "brother", 
-                "fellow linkster", 
@@ -518 +578 @@
-}
-
-sub print_version { print "> " . get_version() . "\n"; }
-
-sub get_version { 
-        my $version = "0.1.6";
@@ -561 +619 @@
-        my %messages = (
-                "add_tags" => "To add tags, just type them, separated by commas",
-
+
+
-        );
-        return $messages{ "$m" };