Changeset 1391

Show
Ignore:
Timestamp:
03/05/07 19:23:16 (2 years ago)
Author:
jm3
Message:

minimal peeps support for the bot, in service of the impending SHARE and INVITE commands

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • feedmelinks/lib/FeedMeLinks/Bot.pm

    r1390 r1391  
    292292                } 
    293293 
     294        # COMMAND: SHOW TAG ############################################################### 
     295        } elsif( $fml_username && $sessions_ref->{$sender}{"peeps"}{$message} ) { 
     296                my $peep = encode( $message ); 
     297                $aim->send_im($sender, h("<a href='$site/u/$peep'>$peep</a> is your peep! APE CANNOT KILL APE!" )); 
     298                 
     299 
    294300        } else { 
    295301 
    …… 
    396402        my $p = "" . $xp->getNodeText("/rest/response"); 
    397403 
     404        # CACHE THE USER's TAGS IN THE SESSION OBJECT: 
    398405        my $url = "$site/api/tags?user=" . encode( $u ) . "&password=" . encode( $p ); 
    399406        $response = $www->get( $url, []); 
    400407        $xp = XML::XPath->new(xml => $response->content); 
    401  
    402408        my $tag_nodes = $xp->findnodes("/tags/tag"); 
    403409        my $tags_ref = (); 
    …… 
    406412                $tag_name =~ s/\s*name="\s*//; 
    407413                $tag_name =~ s/"\s*$//; 
    408                  
    409414                my $tag_id = "" . $tag_node->findnodes("./\@id"); 
    410415                $tag_id =~ s/\s*id="\s*//; 
    …… 
    412417                $tags_ref->{ $tag_name } = $tag_id; 
    413418        } 
    414  
    415         log_mesg( \*LOG, "debug", "found " . ( keys %$tags_ref ) . " tags for $u" ); 
     419         
     420        # CACHE THE USER's PEEPS IN THE SESSION OBJECT: 
     421        $url = "$site/api/peeps?user=" . encode( $u ) . "&password=" . encode( $p ); 
     422        $response = $www->get( $url, []); 
     423        $xp = XML::XPath->new(xml => $response->content); 
     424        my $peeps_nodes = $xp->findnodes("/rest/response/peep"); 
     425        my $peeps_ref = (); 
     426        foreach my $peep_node ($peeps_nodes->get_nodelist) { 
     427                my $peep_aim = "" . $peep_node->findnodes("./\@aim"); 
     428                $peep_aim =~ s/\s*aim="\s*//; 
     429                $peep_aim =~ s/"\s*$//; 
     430                my $peep_username = "" . $peep_node->findnodes("./text()"); 
     431                $peeps_ref->{ $peep_username } = $peep_aim; 
     432        } 
     433 
     434        log_mesg( \*LOG, "debug", "found " . ( keys %$peeps_ref ) . " peeps for $u" ); 
    416435 
    417436        my $session = {  
    …… 
    420439                'added_tags'   => 0, 
    421440                'tags'         => $tags_ref, 
     441                'peeps'        => $peeps_ref, 
    422442                'renamed'      => 0, 
    423443                'fml_username' => $u, 

  • feedmelinks/peeps-as-xml.php

    r543 r1391  
    1515echo "<?xml version='1.0' standalone='yes'?>\n"; 
    1616%> 
    17 <peeps> 
     17<rest> 
     18        <response> 
    1819<% 
    1920                $mode = "xml"; 
    …… 
    2122                        foreach( $peeps as $user ) { 
    2223%> 
    23   <peep><%= $user %></peep> 
     24               <peep email="<?= getEmailAddressForUser( $user ) ?>" aim="<?= get_IM_address_for_user( $user ) ?>"><%= $user %></peep> 
    2425<% 
    2526                        } 
    …… 
    2728 
    2829%> 
    29 </peeps> 
     30        </response> 
     31</rest> 
    3032<% 
    3133} else {