taggiasca.com
press.pl

--

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).


--

indietroPrevious page   indietroUpper level   *Main page

*Producers   *Site Map

--
copyright © 1999 - 2000 by It-Web Information Technology - all rights reserved