Changeset 1357

Timestamp:

03/03/07 12:28:13 (2 years ago)

Author:

jm3

Message:

minor bot progress and fixed typo that was breaking the compiled env for perl

Files:

• feedmelinks/lib/FeedMeLinks/Bot.pm (modified) (11 diffs)
• feedmelinks/lib/FeedMeLinks/Environment-template.pm (modified) (1 diff)

feedmelinks/lib/FeedMeLinks/Bot.pm

@@ -15 +15 @@
-
-my $www = get_proxy( FeedMeLinks::Environment::get_bot_user(), FeedMeLinks::Environment::get_bot_password());
-
-
-
-
-
+
+
+
-sub handle_response {
-        my ($aim, $sender, $message, $away, $sessions_ref ) = @_;
-        my $user;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-        $message = strip_html( $message );
-
+        # init user
+
+        my $fml_username = is_user_validated( $sender );
+        $fml_username .= ""; # type coerce
+        print "fml_username: $fml_username\n";
+        if( ! $fml_username ) {
+                print "bulding FAKE session for $sender\n";
+                $sessions_ref->{"$sender"} = build_empty_session();
+         if( ! $sessions_ref->{ $sender }->{ "seen_welcome" } ) {
+                        $aim->send_im($sender, h("<b>Hi! I am the Feed Me Links bot!</b>\nTo get started, you can type <b>links</b>, <b>help</b>, or click <b><a href='$site/set-up/IM?aim=$sender'>activate</a></b> to set up your account.") );
+                 $sessions_ref->{ $sender }->{ "seen_welcome" } = 1;
+                }
+        } else {
+                if( $sessions_ref->{ $sender }->{ "seen_welcome" } == 0 ) {
+                        $aim->send_im( $sender, "Welcome back, " .  get_dude() . "!" );
+                        $sessions_ref->{ $sender }->{ "seen_welcome" } = 1;
+                }
+                print "bulding real session for $sender\n";
+                $sessions_ref->{"$sender"} = build_authenticated_session( $fml_username );
+        }
+
-        # handle commands
-
+
+
+
+
+
-                if( $sessions_ref->{ $sender }->{ "validated" } ) {
-                        my $url = $message;
+                        print "orig url is $url\n";
+                        $url =~ s/^add //;
+                        $url = add_prefix( $url );
+
-                        my $name = get_title_for_url( $url );
-                        my $name = $name ? $name : $url;
-                        print "$name\n";
-                        $aim->send_im($sender, "<b>Adding</b>:\n" . $name );
-                        my $encoded_name = $name;
-                        $encoded_name =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
-                        my $encoded_url = $url;
-                        $encoded_url =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
-
-
-
-
+
+
+
-                        my $xp = XML::XPath->new(xml => $response->content);
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-                } else {
-                        # FIXME: should search and say "NN people have added this link -- click activate to add it"
-http://feedmelinks.com
+$site
-                }
-                
@@ -83 +101 @@
-                        print "aim_validation_phrase: $aim_validation_phrase\n";
-
-http://www.feedmelinks.com
+$site
-                my $response = $www->get( 
-http://www.feedmelinks.com
+$site
-                        []);
-                my $xp = XML::XPath->new(xml => $response->content);
@@ -93 +111 @@
-                if( $fml_validation_phrase eq $aim_validation_phrase ) {
-                        my $response = $www->get( 
-http://www.feedmelinks.com
+$site
-                                []);
-                        $xp = XML::XPath->new(xml => $response->content);
@@ -99 +117 @@
-                        print "validation_response: $validation_response\n";
-
-
-
-
-
-
-
-
-
-
+
+
-
-                        $aim->send_im($sender, "<b>All done -- that was easy</b>!\nNow your Feed Me Links account is linked to your AIM and you can start using Feed Me Links via AIM. To get started, paste any URL into this window." );
-                } else {
-http://feedmelinks.com
+$site
-                }
-
@@ -117 +128 @@
-                my $users = "";
-    for my $user ( keys %$sessions_ref ) {
-                        print "who: $user\n";
-                        $users .= 
-http://feedmelinks.com/u
+$site
-                                . $sessions_ref->{ $user } -> { "fml_username" } . "'>"
-                                . $sessions_ref->{ $user } -> { "fml_username" } 
@@ -129 +139 @@
-
-        } elsif( $message =~ m/peeps/ ) {
-
+
+
+
+
+
+
+
-                
-        } elsif( $message =~ m/version/ ) {
@@ -135 +151 @@
-        
-        } elsif( $message =~ m/(links|recent)/ ) {
-FIXME: recent links here
+recent links here, soon
-        
-        } elsif( $message =~ m/(recent|new)/ ) {
-FIXME:
+(soon!)
-
-        } elsif( $message =~ m/help/ || $message =~ m/commands/ || $message =~ m/\?/ ) {
-
-
-
-
-
-
-
-
+
+
-
-        } elsif( $message =~ m/status/ ) {
-                $aim->send_im($sender, "<b>DEBUG DUMP</b>:\nsender: $sender\nmessage: $message" );
-                $aim->send_im($sender, Dumper( $sessions_ref ));
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-        }
+
-        return $sessions_ref;
-}
@@ -163 +183 @@
-sub is_user_validated {
-        my $sender = shift;
-http://www.feedmelinks.com
+$site
-        my $xp = XML::XPath->new(xml => $response->content);
-        my $is_valid = $xp->findnodes('/rest/user/@valid');
-        $is_valid .= "";
-        my $fml_user = $xp->getNodeText("/rest/user");
+        print "trying to validate user $sender; server said: account $fml_user, valid=$is_valid\n";
-
-        if( $is_valid ) {
@@ -176 +197 @@
-                return 0;
-        }
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
@@ -207 +265 @@
-}
-
+sub add_prefix {
+  my $url = $_[0];
+  if( index( $url, "http" ) != 0
+    && index( $url, "https" ) != 0
+    && index( $url, "ftp" ) != 0
+) {
+    return "http://$url";
+  } else {
+    return $url;
+  }
+}
+
+sub h {
+        return "<HTML>" . @_[0] . "</HTML>";
+}
+
-sub strip_html {
-        my $html = $_[0];
@@ -214 +288 @@
-}
-
+sub get_dude {
+        my @dudewords = ( 
+                "dude", 
+                "bro", 
+                "bro-ham" 
+                );
+        return $dudewords[ int(rand( scalar( @dudewords ))) ];
+}
+
-sub print_version { print get_version() . "\n"; }
-
+
+
+
+
+
+
+
-
-1; # modules must return a true value

feedmelinks/lib/FeedMeLinks/Environment-template.pm

@@ -1 +1 @@
-#!/usr/local/bin/perl
-e
+
-use strict; # for warnings:
-# jm3