taggiasca.com ![]() To manage a site means also to spread his name in the world: this is a PR job. Analog (http://www.statslab.cam.ac.uk/~sret1/analog/) can help us to know if the PR man is doing a good job using the FULLDAILY report: if the number of your visitors is going down it's time to fire the PR. To see what happens when a newspaper print something about taggiasca.com, I wrote this small perl "helper" to merge a FULLDAILY report with a list of dates. Here is our press report, so you can see the result: don't care of slighty customizations. First of all, you need an ad-hoc configuration file for analog. Comments and things to change to fit your box are in this color (you too have color-impaired friends?). # set your logs path here! LOGFILE logs/* OUTFILE press0.htm GOTOS OFF DEBUG ON TIMECOLS P # exclude and include what do you mean for "pages" PAGEEXCLUDE *.jpg,*.gif,*.ra,*.png,*.wrl,*.swf PAGEINCLUDE *.shtm* # every day from the start of your logs FULLDAYROWS 0 FULLDAILY ON #Daily Report #Remove any other report GENERAL OFF #General Summary MONTHLY OFF #Monthly Report WEEKLY OFF #Weekly Report DAILY OFF #Daily Summary FULLHOURLY OFF #Hourly Report HOURLY OFF #Hourly Summary QUARTER OFF #Quarter-Hour Report FIVE OFF #Five-Minute Report HOST OFF #Host Report ORGANISATION OFF #Organisation Report DOMAIN OFF #Domain Report REQUEST OFF #Request Report DIRECTORY OFF #Directory Report FILETYPE OFF #File Type Report SIZE OFF #File Size Report PROCTIME OFF #Processing Time Report REDIR OFF #Redirection Report FAILURE OFF #Failure Report REFERRER OFF #Referrer Report REFSITE OFF #Referring Site Report SEARCHQUERY OFF #Search Query Report SEARCHWORD OFF #Search Word Report REDIRREF OFF #Redirected Referrer Report FAILREF OFF #Failed Referrer Report FULLBROWSER OFF #Browser Report BROWSER OFF #Browser Summary OSREP OFF #Operating System Report VHOST OFF #Virtual Host Report USER OFF #User Report FAILUSER OFF #Failed User Report STATUS OFF #Status Code Report Are you lazy? Good! You can be a Perl programmer. Click here to download the configuration file instead of type it. Then you need a file containing dates, titles and links. The format must be this: |dd-Mmm-yy|title|url| Where: - dd-Mmm-yy is the date as shown in your report - title is what you need to see underlined in the list - url is the url of a related web page Example: | 1-apr-99|Hoboken Howl: foo.com does NASDAQ|http://foo.com| |29-Feb-00|Amargosa tribune: foo.com strikes again|nevada.htm| And at last the perl list. #/usr/bin/perl -w remember to set your Perl path here! # press.pl # merge press releases with # Analog FULLDAY report # (c) Feb 2000 Marco Bernardini - webmaster@taggiasca.com # under PERL ARTISTIC LICENSE - see # http://www.perl.com/pub/language/misc/Artistic.html # for details use strict; # FILES set your filenames here! my $mylog = "press0.htm"; my $newlog = "press.htm"; my $presslog = "press.log"; ########################## my $line; my $newpage =""; open (PAGE ,"<$mylog") || die $!; my @page = <PAGE>; close PAGE; open (PAGE ,"<$presslog") || die $!; my @press = <PAGE>; close PAGE; foreach $line (@page) { my @temp = split (/: / , $line); if ($temp[0] gt " ") { my @isthere = grep (/$temp[0]/,@press); if (scalar(@isthere) > 0){ foreach (@isthere ){ my @temp = split (/\|/ , $_); $newpage .= "<A HREF=\"$temp[3]\">$temp[2]</A>\n"; } } $newpage .= $line; } } open (PAGE ,">$newlog") || die $!; print PAGE $newpage; close PAGE; I'm really a good boy: you can download here the previous listing. You can use this utility freely, and you can modify and improve it (let me know, if you do this!): it is under Perl Artistic License. It may be used for commercial use only by prior arrangement with the author (Marco Bernardini, webmaster of taggiasca.com). ![]() ![]() ![]() ![]() ![]() ![]() ![]() copyright © 1999 - 2000 by It-Web Information Technology - all rights reserved |