Item1803: changed clientname and url to config parameters (even thoug…

…h i can't get them to show---it always posts as Net::Twitter

git-svn-id: http://svn.foswiki.org/trunk/WikiBot@4473 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

BotModules/Twitter.bm

@@ -26,7 +26,8 @@ sub RegisterConfig {
     $self->registerVariables(
         ['username', 1, 1, undef],
         ['password', 1, 1, undef],
-        ['clientname', 1, 1, '#foswiki'],
+        ['clientname', 1, 1, undef],
+        ['clienturl', 1, 1, undef],
     );
 }
 
@@ -42,8 +43,8 @@ sub Told {
         my $twitter = Net::Twitter::Lite->new(
             username   => $self->{username},
             password   => $self->{password},
-            clientname => '#foswiki',
-            clienturl  => 'http://foswiki.org/Development/FoswikiBot',
+            clientname => $self->{clientname},
+            clienturl  => $self->{clienturl},
             );
 
         $twitter->update( $tweet );