NAME Badge::GoogleTalk - To get your status message/online status/chat link from google talk badge for website live chat. VERSION version 0.0.1 SYNOPSIS use Badge::GoogleTalk; my $my_object = Badge::GoogleTalk->new( key => "your identification key", # key => "z01q6amlq5ij9dvg7gbgb2oj5jph3fohsojef08g3l0aevm02th1k13phg2bi535f9rphmm6t6bukdt93khaacb5f5qilvcqrph6gfankdkkc2vjbs2rgrjki1s35bk1910vc91qr70in1aa6hm67gbijos4q4tlc4no7jq0a", ); # Get Your Badge's online status my $online_status = $my_object->is_online(); my $ol_status = $online_status == 0 ? "Offline" : "Online"; # Get Your Badge's status message my $status = $my_object->get_status(); # Check Your Badge's away status my $away_status = $my_object->is_away(); my $aw_status = $away_status == 1 ? "Away" : "Online"; # Check Your Badge's Style my $style = $my_object->is_classic_style(); my $style_status = $style == 1 ? "Classic badge or one/two line style" : "Hyperlink and status icon style"; # Your Badge's in HTML format my $badge = $my_object->get_badge(); # Your chat link for your website my $chat_link = $my_object->get_chat_box_link(); To create a simple Badge::GoogleTalk you must pass the key; key is your identification from the google authentication. To create your chatback badge, visit http://www.google.com/talk/service/badge/New. If you're using a Google Apps account, you can create a chatback badge by visiting http://www.google.com/talk/service/a/DOMAIN/badge/New where DOMAIN is the name of your domain. Use the alphanumeric account hash to pass as key in constructor DESCRIPTION A simple perl module for retrieving a user's Google Talk status Google does provide a badge, to post your status/images/links to your website to start a chat. Using this code, we can extract the status messages, online status, chat box link and return that information to our perl application to keep up the live chat. METHODS is_online Title : is_online Function: this will return your online status return : 1 if online, 0 if offline is_away Title : is_away Function: this will return your away status return : 1 if away get_status Title : get_status Function: this will return your status message return : 1 if away is_classic_style Title : is_classic_style Function: this will return your badge style return : 1 if Classic badge or one/two line style, 0 if Hyperlink and status icon style get_chat_box_link Title : get_chat_box_link Function: this will return you the link of you chat box get_badge Title : get_badge Function: this will return you the badge iframe to use for your website DIAGNOSTICS This module depends on the output from a hosted web page by Google. If Google decides at any time to change this output, the module will likely fail. Please e-mail me if this is the case, so we can get it working again. INSTALLATION To install this module, run the following commands: perl Makefile.PL make make test make install Alternatively, to install with Module::Build, you can use the following commands: perl Build.PL ./Build ./Build test ./Build install COPYRIGHT AND LICENCE Copyright (C) 2009, Rakesh Kumar Shardiwal This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.