Home     |     .Net Programming    |     cSharp Home    |     Sql Server Home    |     Javascript / Client Side Development     |     Ajax Programming

Ruby on Rails Development     |     Perl Programming     |     C Programming Language     |     C++ Programming     |     IT Jobs

Python Programming Language     |     Laptop Suggestions?    |     TCL Scripting     |     Fortran Programming     |     Scheme Programming Language


 
 
Cervo Technologies
The Right Source to Outsource

MS Dynamics CRM 3.0

Perl Programming Language

Simple commandline tool to aid reading the posts of this or any group


This is a little commandline tool I wrote to help myself read the
posts in this group. It fetches the thread urls with the latest posts
and opens them in firefox. I use this from cygwin command prompt in my
windows machine. I hope someone else will be interested enough to
enhance it.

Why did I create it: I use a feed reader too to read the posts of the
groups i subscribed from google groups. I click on the the links on
summary/description of each post in my reader. Then I reach the page
with only one post, then I click on another link to reach to the
thread. I find do that fewtimes everyday really painful.

example useage:

browse.pl
browse.pl perl.beginners
browse.pl comp.unix.shell

(comp.lang.perl.misc is the default group)

------------------------------------------------------------------
#!/usr/bin/perl
#browse.pl

use strict;
use warnings;
use WWW::Mechanize;

my $browser_path = '/cygdrive/c/Program\ Files/Mozilla\ Firefox/
firefox.exe ';
my $group_name = 'comp.lang.perl.misc'; # default group. it will be
used if you don't provide one as parameter
$group_name = $ARGV[0] if @ARGV; # user specified group, from
commandline parameter
my $url = 'http://groups.google.com/group/'.$group_name.'/topics?
gvc=2';
my $limit = 10; # limit number of posts to open

print "Group: [$group_name]\n";
my $m = WWW::Mechanize->new();
print "Getting $limit links of threads...\n";
$m->get($url);
my $html = $m->content();
#print $html;

my @links = ($html =~ m{<td><a href="(/group/$group_name/browse_thread/
thread/[^/]+/[^/]+)#[^/]+">}igs);
if (@links)     {
        @links = map {'http://groups.google.com' . $_} @links;
        my @links_limited = splice @links, 0, $limit;
        my $url_string = sprintf (qq/"%s"/, join q/" "/, @links_limited);
        #print $url_string."\n";
        print "Opening browser...\n";
        system ($browser_path . $url_string . ' &');

}else{

        print "oooops! could not load main page\n";

}

exit 0;
------------------------------

So, anyone interested to enhance it?

Regards,
Sumon

Group,

Sorry for the typos. :-s

Regards,
Sumon

Add to del.icio.us | Digg this | Stumble it | Powered by Megasolutions Inc