Onlydot.net

Protected: BB Dump Clean Archive

Andres — Fri, 02 Dec 2011 20:50:04 +0000

Monkey Jazz

Andres — Tue, 12 Jul 2011 18:12:12 +0000

[There is a video that cannot be displayed in this feed. Visit the blog entry to see the video.]
…

Adios

Andres — Fri, 17 Jun 2011 19:40:45 +0000

[There is a video that cannot be displayed in this feed. Visit the blog entry to see the video.]…

RSS Parser Email Script 2

Andres — Thu, 16 Jun 2011 15:10:19 +0000

The following file is a perl script that reads RSS URLs and notifies of new items via email. This is an upgrade from an earlier php script.

Please note some CPAN modules are required:

XML::Simple
Data::Dumper
Net::SMTP
LWP
URI

#!/usr/bin/perl

##################################
# Andres #
# afelotreyu @ gmail . com #
# Date: June 20 2011 #
##################################
#
# This perl Script reads RSS URLS and emails its contents to a given address.
# The RSS urls must be in a file see below.
# ########### Log Format
# Please note the 'rss_log' file must have the following format
# URL|||title
# http://file.xml|||title
# http://file.xml

use vars qw/ $REVISION $VERSION /;
$REVISION='0.01';
$VERSION="1.0 (Build $REVISION)";

# Use CPAN modules
use strict;
use XML::Simple;
use Data::Dumper;
use CGI;
use LWP;
use URI;
use Net::SMTP;
my $cgi = new CGI;
my $browser = LWP::UserAgent->new;

########################
# Configuration
# please modify carefully as needed
my %configval = (
'rss_log' => 'somelog.txt', # File where to find RSS list and log it
'tmp_xml_file' => 'sometimefile.xml',
'subject_email' => 'RSS Parse email',
'email_method' => 'sendmail', # sendmail or smtp
'email_to' => 'some_user@somedomain.com', # To - Email Address(es)
'email_from' => 'some_user@somedomain.com', # From - email address
'sendmail' => '/usr/sbin/sendmail -t', # Sendmail Location and params
'smtp_server' => 'somedomain.local', # This is the SMTP
'smtp_timeout' => '30',
);
########################

# Important Variables
my ($data,$source,$content);
my $new = 0; # New items = no!
my $send = 0; # Send Email = no!
# Temporal variables that we use over the script
my ($tmp,$a,$e,$line,$link,$last);

########################
# Lest get started
# First we read the log file
$source = ReadLOG_file();
# $content builds the email message
$content = "RSS Parse Email Listing\n\n";
# Be nice, print some output for html
print $cgi->header('text/html');

# Loop over every RSS link
for ( $a=0;$a < = $#{$source}; $a++) {
$last = 0;
$content = $content."RSS->[$a]: \n";
# Download the File of the RSS
&DownloadXML_file($source->[$a]->[0]);
# Read the file
$data = &ReadXML_file($configval{'tmp_xml_file'});
# Check if there are any items defined
if ($data->{channel}->{item}) {
# We have items, lets chech output
if (ref($data->{channel}->{item}) eq 'ARRAY') {
foreach $e ( @{$data->{channel}->{item}} ) {
# OK we are in, now we store all posts since last one
if ("$e->{title}" eq "$source->[$a]->[1]" ) {
$content = $content."\nLast Item: $source->[$a]->[1] \n";
last;
} else {
# New Item, we need to store it!
if ( $new == 0 ) { $new = 1; }
if ( $last == 0 ) { $source->[$a]->[2] = $e->{title}; $last = 1; }
$send = 1; # Send Email
$content = $content."\nTitle: $e->{title} \n";
$content = $content."Link: $e->{link} \n";
$content = $content."Description: $e->{description} \n";
$content = $content."Date: $e->{pubDate} \n";
}
}
} else {
# Only one item, is it the same as log?
if ("$data->{channel}->{item}->{title}" eq "$source->[$a]->[1]") {
# Same item as before
$content = $content."\nLast Item: $source->[$a]->[1] \n";
} else { # New Item
# New Item, we need to store it!
if ( $new == 0 ) { $new = 1; }
if ( $last == 0 ) { $source->[$a]->[2] = $data->{channel}->{item}->{title}; $last = 1; }
$send = 1; # Send Email
$content = $content."title: $data->{channel}->{item}->{title} \n";
$content = $content."Link: $data->{channel}->{item}->{link} \n";
$content = $content."Description: $data->{channel}->{item}->{description} \n";
$content = $content."Date: $data->{channel}->{item}->{pubDate} \n";
}
}
} else { # No items, maybe empty?
$content = $content."RSS Feed is currently Empty - \n";
}
# Next RSS!
$content = $content."\n_____________________________________\n\n";
};

# A new item was set, update log file
if ( $new == 1 ) {
open (NEWLOG,">",$configval{'rss_log'}) or die (print "$configval{'rss_log'} - File could not open to write $!");
# Loop over every RSS link
for ( $a=0;$a < = $#{$source}; $a++) {
if ($source->[$a]->[2]) {
print NEWLOG $source->[$a]->[0].'|||'.$source->[$a]->[2]."\n";
} else {
print NEWLOG $source->[$a]->[0].'|||'.$source->[$a]->[1]."\n";
}
}
close NEWLOG;

}
# Do we need to email?
if ($send == 1) {
&SendMail($configval{'subject_email'},$content);
}
# Print something for HTML access
print "

Finished

";

########################
# Subroutines go here
########################
# ReadXML_file
# Needs to get a file location to read its contents
# It returns a dereference hash ref
########################
sub ReadXML_file() {

my $file = $_[0];
# Read the XML file
my $xml = new XML::Simple (
KeyAttr => [],
SuppressEmpty => undef);

# read XML file
$data = $xml->XMLin($file);
return $data

##### Sample code!
# Use of the XML::Simple output!
# dereference hash ref
# access array
#foreach $e (@{$data->{data}->{robots}->{robot}})
#{
#print $e->{name}, "\n";
#print "Age/Sex: ", $e->{id}, "/", $e->{icon}, "\n";
#print "Department: ", $e->{url_company}, "\n";
#print "\n";
#}
}

########################
# ReadLOG_file
########################
sub ReadLOG_file() {
open (READLOG,"< ",$configval{'rss_log'}) or die "File $configval{'rss_log'} could not open $! \n";
flock (READLOG,2);
seek(READLOG,0,0);
$e = 0;
foreach $line () {
chomp $line;
if ($line =~ m/^http/ ) {
my @pair = split(/\|\|\|/,$line);
$source->[$e]->[0] = $pair[0];
$source->[$e]->[1] = $pair[1];
$e++;
}
}
close READLOG;
return $source;
}

########################
# DownloadXML_file
# needs a URL to connect to and download the XML file.
########################
sub DownloadXML_file() {
# Download XML
# We are going to connect to the page and download the XML file
my $url = URI->new($_[0]);
$url->query_form();
my $mfilecont = $browser->get($url);

$tmp = $configval{'tmp_xml_file'};
open (TEMPORAL,">", $tmp) or die (print "$tmp - File could not open $!");
print TEMPORAL $mfilecont->content;
close TEMPORAL;

# Return a success signal '
return 1;
}

########################
# SendMail(subject,message);
# Needs Subject and Message content
# Uses SMTP configuration
########################
sub SendMail() {
my $subject = $_[0];
my $message = $_[1];

#### Email
# Here is where the email is created
for ($configval{'email_method'}) {
if (/^smtp$/) {
my $smtp = Net::SMTP->new(
$configval{'smtp_server'}, # MailHost
Timeout => $configval{'smtp_timeout'}, # TimeOut
);
$smtp->mail("$configval{'email_from'}") || die ( print "From_email call bad $! \n" ); # Address Email is created from (Check if exist)
$smtp->to("$configval{'email_to'}") || die ( print "To email call bad $! \n" ); # Address Email is going to (Check if exist)
$smtp->data();
$smtp->datasend("To: $configval{'email_to'} \n"); # Address Email is going to
$smtp->datasend("Subject: $subject \n"); # Subject
$smtp->datasend("\n");
$smtp->datasend("$message");
$smtp->dataend();
$smtp->quit;
} elsif (/^sendmail$/) {
open(SENDMAIL, "| $configval{'sendmail'} ") or die "Cannot open $configval{'sendmail'}: $!";
print SENDMAIL "Reply-to: ".$configval{'email_from'}."\n";
print SENDMAIL "Subject: ".$subject."\n";
print SENDMAIL "To: ".$configval{'email_to'}."\n";
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $message."\n";
print SENDMAIL '.';
close(SENDMAIL);
}
}
#### Done Email
}
########################

1;
__END__

Poetry is about truth

Andres — Fri, 13 May 2011 15:27:54 +0000

[There is a video that cannot be displayed in this feed. Visit the blog entry to see the video.]

Here is a link to the words of this great poem
http://www.amiribaraka.com/blew.html…

Internet Stats for 2010

Andres — Tue, 12 Apr 2011 17:53:10 +0000

So I came across this page and found some very interesting information:

Emails

107 trillion – The number of emails sent on the Internet in 2010.
294 billion – Average number of email messages per day.

Websites

255 million – The number of websites as of December 2010.

Web servers

39.1% – Growth in the number of Apache websites in 2010.
15.3% – Growth in the number of IIS websites in 2010.
55.7% – Growth in the number of Lighttpd websites in 2010.

Check out the entire article and stats at: http://royal.pingdom.com/2011/01/12/internet-2010-in-numbers/

Quebec 2011 – Le Massif / Mont Saint-Anne

Andres — Wed, 16 Mar 2011 03:34:21 +0000

Two ski resorts one weekend, here is the compilation of videos and photos.

[There is a video that cannot be displayed in this feed. Visit the blog entry to see the video.]…

Just say yes _ Ken Andrews

Andres — Sun, 09 Jan 2011 23:51:28 +0000

I don’t know which way I should turn
I’m too afraid of getting burned
When all the wells have come up dry
It’s hard to take another try

But I pick myself up of the floor
And tried my best just like I did before
Just say yes… just say yes

Everytime I take a chance
This hesitation pulls me back
From finding out who I should be
I want to know the real me

So I pick myself up off the floor
And realized just who I was before
I can’t listen to the voice inside that keeps on saying I should never try
Just say yes
Just say yes

I don’t know which way I should go
I’m too afraid of letting go
With all this doubt to overcome
It’s hard to see all that I’ve done

But I pick myself up off the floor
And tried my best just like I did before
I just set aside the fear within and walk on through the door that held me in
Just say yes
Just say yes

Life

Andres — Sun, 02 Jan 2011 06:51:55 +0000

A song without words, nature giving the path to another insight. Desperation of life turns in my words, receptive to suffocate the spirit of this mind, expressions of the heart, satisfaction to the soul.

It seemed confusing at first, but when the lights began to flash the corner of my eyes, it was my soul I found, speaking to me from a song with no words. Cherry Hill begins the revelation of my life. Memories, smiles, and friends, come to mind across my eyes. Heroic moments where the only hero is the heart that gives us the strength to live this incomprehensive life, capturing my mind while I move across my path. The root of this path did not start tonight, but years ago, when tears of joy displayed the start. Roots of bass and gentle notes to the ears of my heart, grow with every second of this beat, until they are on their own scale in a melody. And so, they become an Acoustic Alchemy into the expression of a living song: “Whenever we doubt our own path, or lose sight of the process, we must remember what we are evolving toward, what the process of living is all about. Reaching heaven on Earth is why we are here. And now we know how it can be done…how it will be done.” (Celestine Prophecy)

As the path where we walk becomes a usual melody, our eyes see the truth of life, the meaning of this quest we call life. So questions are asked, speculations are made, but no truth is yet discovered. Why do we bring our youth to what they are today? How is it that we enjoy the deformation of our must powerful hero; our heart?. Submerged in alcohol and lies of what we just don’t want to see or confront anymore. A joyful truth that enlightens our selves and the surroundings of this world, a hero that hides under the influence of handmade poisons and destruction.

Left by our side, our only companion looks for the explanation of these hidden notes that uncover the secrets of life. Smaller and bigger with every passing light, he is the only one that has been there all the time. With you since the beginning, since the bass first beat, you find that we are not alone in this walk. Our every move is watch and judge, or mistakes are seen by this romantic union, but yet our lies hide under the shadows created by the eyes of this silent hero. With a pure expression of acceptance for who we are, our hero walks with us through a beautiful song with no words:

“If A. can probe, however conclusively, that he may, of right, enslave B. –why may not B. snatch the same argument, and prove equally, that he may enslave A?- You say A. is white, and B. is black. It is color, then; the lighter, having the right to enslave the darker? Take care. By this rule, you are to be slave first man you meet, with a fairer skin than your own.” (July 1, 1854, Abraham Lincoln)

No material thing can break this union, a heroic combination of soul and life, roots are born within. Even in the darkest moments of life, our fellow companion is there to support us, to give the strength to walk this path, where each decision made counts towards a new step. Yet when our blood stops, our companion joins the darkness of those that matter in life, and touches the hero within them, to remind them that no alcohol or poison can ever forget the great steps taken by their side throughout this unforgiven life.

“Don’t forget whose path you walk” and don’t forget that the only heroes in life hide within our shoes, each of these heroes know their path well, and no poison or substance can ever hide it. Darkness will enlighten the hero and the bass beat that walks each step of this song with no words.

A. Q. (thank you mother)

Written: “May 25, 2006″

Edited: “Dec 16, 2010″

Soledad

Andres — Thu, 16 Dec 2010 17:49:03 +0000

Some times we just have no words to explain.

…

My Wish – Rascal Flatts

Andres — Fri, 26 Nov 2010 19:43:20 +0000

not really my type of music, but this song has great lyrics and its means more than anyone could ever know

…

Good So Far

Andres — Fri, 19 Nov 2010 04:29:36 +0000

Great Song Produced by Mackintosh Braun

…

Giving Up, Giving In

Andres — Wed, 17 Nov 2010 14:55:45 +0000

A bit of a head rush

…

How We Do by Mount Sims

Andres — Tue, 16 Nov 2010 23:27:55 +0000

…

Torrent Client – Basic Loop

Andres — Mon, 15 Nov 2010 15:46:53 +0000

This is a basic loop for a text torrent client, this file is only for testing and has not been cleaned up or commented.

#!c:\Perl\bin\perl.exe

my $tor_client = 'C:\WINDOWS\slm\ghoster.exe'; # Path to torrent Client
my $tor_url = 'http://download.opensuse.org/distribution/11.1/iso/openSUSE-11.1-DVD-i586.iso.torrent';
my $save_to = 'D:\temp1';
my $infofile = 'some.txt';
######

# Declare when file open
%tor_cli_inf; $counter;

my $cmd = "$tor_client --url $tor_url --saveas $save_to ";

$tor_cli_inf{'pid'} = open(PROGRAM_OUTPUT, "$cmd |"); #or client.exe

while ($t2mp < = 10 ) {

##############################
#### Loop 100 Lines of output
# Set main check counter to 0

$counter = 0; $er = 0; $errc = 0; $problem = 0;
$success = 0;
FIN: while (){
$line = $_; # Grab the line printed by PROGRAM_OUTPUT

# Check Counter
if ($counter >= 100) { last FIN; } # Check if $counter is equal or higher to 100
$counter++; # Increase $counter

if ($line =~ /^\n$/) { $counter--; } # If empty line, decrease counter by 1

## Check output and append to a variable
if ($line =~ /^ERROR:/) { next FIN; } # Error, Jump to next line
elsif ($line =~ /^IO Error: \[Errno 13\] Permission denied$/) {
$tor_cli_inf{'error'} = "Download Failed - $line"; $problem = 1; }
elsif ($line =~ /^rejected by tracker/) { }
elsif ($line =~ /bad url$/) { } # TODO! Email Admin
elsif ($line =~ /^saving:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $tor_cli_inf{'saving'} = $pair[1]; }
elsif ($line =~ /^percent done:/) {
if ($line =~ /^percent done: 100?$/) { # Finished Download / Updated Variables
$tor_cli_inf{'percent'} = 100;
$tor_cli_inf{'error'} = "Image Ready";
$success = 1; }
else {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $tor_cli_inf{'percent'} = $pair[1]; }
}
elsif ($line =~ /^time left:/) {
if ($line =~ /Download Failed!$/) {
if ($tor_cli_inf{'error'} =~ /^IO Error: \[Errno 13\] Permission denied$/) {
$problem = 1;
last FIN; }
}
elsif ($line =~ /^time left: checking existing data$/) {
$tor_cli_inf{'error'} = "checking existing data"; }
elsif ($line =~ /^time left: Download Succeeded!$/) {
$tor_cli_inf{'percent'} = 100;
$tor_cli_inf{'error'} = "Image Ready";
last FIN; }
else {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $tor_cli_inf{'timeleft'} = $pair[1]; }
}

}

print "$t2mp \n";
$t2mp++;
}

close (PROGRAM_OUTPUT);
print "close client";
$killgho = "taskkill \/IM ghoster.exe \/F";
system($killgho);

exit 0;

sub imageinfo()
{
if (-e $infofile) {
&log_print("print","Image Info file exist, getting information");
open(INFFILE,"< ",$infofile) or die ( &log_print("print","$infofile -File could not open $!") );
flock(INFFILE,0); seek (INFFILE,0,0);
foreach $line () {
if ($line =~ /^saving:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $in_1 = $pair[1]; }
elsif ($line =~ /^percent done:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $in_2 = $pair[1]; }
elsif ($line =~ /^time left:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $in_3 = $pair[1]; }
elsif ($line =~ /^counter:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $in_4 = $pair[1]; }
elsif ($line =~ /^ErrorLog:/) {
@pair = split(' ',$line); # Do not Change
$pair[1] =~ s/\s+$//; $errlog = $pair[1]; }
}
close INFFILE;
$img_inf_file = [$in_1,$in_2,$in_3,$in_4,$errlog];
return $img_inf_file;
} else {
$img_inf_file = ["0","0","0","0","none"];
&log_print("print","No image information file");
return $img_inf_file;
}
}

Batch remove file generator

Andres — Mon, 15 Nov 2010 15:36:12 +0000

A second file needed for the Cleanup output – Blackboard enrollment post.

#!c:\Perl\bin\perl.exe

##################################
# Version 1.0 Nov 26 2009 #
##################################
##

$employeeid = '000000000';

# Read this file
$readthis = './cleaned.txt';
$writeto = './batchremove.txt';

# Open files
open(WRITE,">",$writeto) or die ( print "$writeto - File could not open $!");
open(READ,"< ",$readthis) or die (print "$readthis - File could not open $!");
flock(READ,0);
seek(READ,0,0);
$y = 0;
foreach $line () {
chomp $line;
$line =~ s/\s+$//;
#ICA001AK.BUNH.20083|Teaching Assistant
# /^(.{7,8})\.(.{4})\.(.{5})\|(Teaching Assistant|Instructor|Course Builder|Student|)$/
# 1 2 3 4
if ($line =~ /^(.{7,8})\.(.{4})\.(.{5})\|(Teaching Assistant|Instructor|Course Builder|Grader|Student|)$/) {
#print WRITE "$1|$2 \n";
$coursecode = $1;
$year = $3;
$facl = $2;
$role = $4;
if ($coursecode =~ /^.{7}$/) {
print WRITE"$employeeid|$year$coursecode-$facl|$role|y|enabled\n";
}
else {
print WRITE "$employeeid|$year$coursecode$facl|$role|y|enabled\n";
}
$y++;
}
};
close READ;
print WRITE $y;
close WRITE;

Cleanup output – Blackboard enrollment (html page)

Andres — Mon, 15 Nov 2010 15:17:36 +0000

This perl script is used to clean up the output of a users enrolment when the “course enrolment” is listed in the web page.

file name “cleanup.pl”

#!c:\Perl\bin\perl.exe

##################################
# Version 1.0 Nov 26 2009 #
##################################
##

# Read this file
$readthis = './output.txt';
$writeto = './cleaned.txt';

# Open files
open(WRITE,">",$writeto) or die ( print "$writeto - File could not open $!");
open(READ,"< ",$readthis) or die (print "$readthis - File could not open $!");
flock(READ,0);
seek(READ,0,0);
$y = 0;
foreach $line () {
chomp $line;
$line =~ s/\s+$//;
if ($line =~ /^\t(.{7,8}\..{4}\..{5})(.*)\t(Teaching_Assistant|Instructor|Course_Builder|Grader|Student)$/) {
print WRITE "$1|$3 \n";
$y++;
}
};
close READ;
print WRITE $y;
close WRITE;

Usage:
1) Search for the user in the “Admin panel”
2) Access the “Course Enrolments”
3) Display all pages
4) Select all the list “copy and paste” in to a text file named “output.txt” (use notepad)

output will look similar to this:

SOMECUR1.SETS.20083
Menu Options:Course ID

* Close Menu
* Manage
* Open

SOMECUR1.SETS.20083 - Introduction to Computers Teaching Assistant
SOMECUR2.SETS.20083
Menu Options:Course ID

* Close Menu
* Manage
* Open

SOMECUR2.SETS.20083 - Introduction to Computers Teaching Assistant

AS a requirement the course ID must be part of the name

5) Place output.txt in the same directory as cleanup.pl
6) execute cleanup.pl
7) A new file ‘cleaned.txt’ will be created.

The Sky

Andres — Wed, 10 Nov 2010 19:39:17 +0000

A collection of Sky photos taken with different cameras.

View as slideshow

[View with PicLens]

…

Perl Binary Download

Andres — Wed, 10 Nov 2010 18:11:36 +0000

The following script will allow a client machine to download a binary file from a web server.

#!c:\Perl\bin\perl.exe

my $ScriptDir = 'C:\Windows\slm'; # Directory where script is downloaded
my $temporal = "$ScriptDir\\some.exe"; # Location of the binary to be downloaded

# Web Browser generation
use URI;
use LWP;

$mfilecont ='';
my $browser = LWP::UserAgent->new;

# Some File hosted somewhere
$url = URI->new('http://1.1.5.10/some.exe');
$url->query_form();
$mfilecont = $browser->get($url);
open (TEMPORAL,">",$temporal) or die (print "$temporal - File could not open $!");
binmode(TEMPORAL);
print TEMPORAL $mfilecont->content;
close TEMPORAL;

exit(0);

If “Non-binary” download is required, simply comment out binmode(TEMPORAL);

Adding Browsers to awstats

Andres — Wed, 10 Nov 2010 16:52:09 +0000

Recently I’ve been implementing awstats, to obtain some statistics and information about the usage of some the services for work. Its been quite challenging as you may have noticed from earlier posts to gather the log files in a single location where they can all be analyzed, but it has been accomplished.

As soon as I obtain my first day of statistics, I found loads of useful information but required something a bit more specific. I was requested to investigate the use of web browsers, specifically for tools that make use of our “WebDav” system. So I needed to add a browser(s) to the list generated by awstats. with no time to put in a request and wait for an update from the developers at awstats (I really didn’t think of contacting them), I decided to get my hands a little dirty and try to add the WebDrive tool in the list of browsers.

My First attempt was to modify the ./lib/browsers.pm file. Simple enough as describes by many sources in the Internet, I added a few lines of code:

In the @BrowsersSearchIDOrder Array I added an ID for ‘webdrive’ in a new line. Be sure to add a comma to follow the structure of the array and avoid errors.
In the %BrowsersHashIDLib Hash I added an ID/Name reference like so; ‘webdrive’,'WebDrive’. Again be careful with the commas!.
A .png icon file was added ./wwwroot/icon/browser/webdrive.png to make it a little fancy. Of course a reference is needed to be added in the %BrowsersHashIcon Hash that reference the browser Id and the file, like so ‘webdrive’,'webdrive’.

And that was it, next time the awstats ‘cron’ job run, the browser was in the Browsers > Versions area. That was simple and now I had some information to show to my boss if he needed it.

Of course that was not the end, later I noticed I had multiple versions of the same “browser” and like Firefox, IE, or Safari I wanted to see the different versions listed with their individual stats, not just a single item with all the statistics, but how?. Well here is where I needed to get my hands a little dirty. (The information below requires modifying your awstats.pl file version 6.95 at the time of this post, please make a backup of the file and don’t blame me for breaking it, you are fully responsible of any changes you make!)

So I open the ./wwwroot/cgi-bin/awstats.pl file (Note: file location may change based on OS and installation) and modify a few things to get my different versions of the browser listed:

In line 400 you will find the %BrowsersFamily hash which contains a list of all browser families, here I added a new line for my web browser as follows 'webdrive' => 9. Please be sure to add the commas where required.
In line 10567 you will find “# Define precompiled regex”, here the developers create multiple regular expressions to check and grab the browser information/version. Using the “konqueror” regular expression I added my own right below it:
my $regverwebdrive = qr/WebDrive\s([\d\.]*)/i; # WebDrive
This will basically check for the string “WebDrive 8.0.1.2″ or similar, but I was not done yet.
further down, in line 12096 (or near it), is where I found the “Analyze: Browser” starts. Here I added a statement to check for “WebDrive” just before “# Other known Browsers” (near line 12180).
# WebDrive Version ...? Hopefully this works :) elsif ($UserAgent =~ /$regverwebdrive/o ) { $_browser_h{"webdrive$1"}++; $TmpBrowser{$UserAgent} = "webdrive$1"; }
Ideally the operation checks the string against my regular expression and if we have a match we first add a counter to the $_browser_h{“webdrive$1″} variable, then we also add the browser and version to the $TmpBrowser{$UserAgent} variable.

Thats it!!, let awstats run and you will find the browser and different versions listed in your awstats analysis.

I really hope this information gives you and idea of what you need to do and good luck!.

UPDATE (May-10/2011): So I made an update of the Awstats Version 6.95 to 7.0 and of course I wanted my changes to go over. So Here are a few tips:

%BrowserFamily is now located in the ./lib/browsers.pm folder.
The “Define precompile regex” are now located in line 17454.
The “Analyze: Browser” is now located in line 19001.