woc-commit

[Egon W. <eg...@us...>]

Update of /cvsroot/woc/woc/bin/lire
In directory sc8-pr-cvs1:/tmp/cvs-serv24304/lire

Modified Files:
	report.pl.in 
Log Message:
Getting this baby started again (monday evening session)

Index: report.pl.in
===================================================================
RCS file: /cvsroot/woc/woc/bin/lire/report.pl.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** report.pl.in	21 Jul 2002 15:47:12 -0000	1.1
--- report.pl.in	14 Jan 2004 13:10:52 -0000	1.2
***************
*** 4,9 ****
  
  # these parameters can be customized
! #my $EMAIL = "woc\@sci.kun.nl";
! my $EMAIL = "egonw\@sci.kun.nl";
  my $TMPLOG = "/tmp/woc/woc.log";
  my $WOCLOG = "/tmp/woc/woc";
--- 4,9 ----
  
  # these parameters can be customized
! my $EMAIL = "woc\@sci.kun.nl";
! #my $EMAIL = "egonw\@sci.kun.nl";
  my $TMPLOG = "/tmp/woc/woc.log";
  my $WOCLOG = "/tmp/woc/woc";
***************
*** 21,31 ****
  push(@reports, "grep woc");
  push(@titles, "Complete file");
! # BELOW IS NOT WORKING PROPERLY
! #push(@reports, "grep items/");
! #push(@titles, "item/*.shtml only");
! #push(@reports, "grep cgi-bin-woc | sed -e 's/\?[^\s\"]*//g'");
! #push(@titles, "cgi-bin scripts only");
! #push(@reports, "grep translation");
! #push(@titles, "translation/ only");
  
  print "Extracting information on /woc server...$/";
--- 21,26 ----
  push(@reports, "grep woc");
  push(@titles, "Complete file");
! 
! `mkdir -p /tmp/woc`;
  
  print "Extracting information on /woc server...$/";
***************
*** 37,45 ****
    for (my $i=1; $i<=scalar(@reports); $i++) {
        print "Compiling report $WOCLOG$i.txt (with $reports[$i-1])...\n";
!       my $command = "cat $TMPLOG | $reports[$i-1] | $LIRE $LIRE2 www combined > $WOCLOG$i.txt";
        print "$command\n";
        `$command`;
        if (-r "$WOCLOG$i.txt") {
! 	  `cat $WOCLOG$i.txt | /usr/ucb/mail -s '$titel $titles[$i-1]' $EMAIL`;
        }
    }
--- 32,40 ----
    for (my $i=1; $i<=scalar(@reports); $i++) {
        print "Compiling report $WOCLOG$i.txt (with $reports[$i-1])...\n";
!       my $command = "cat $TMPLOG | $reports[$i-1] | $LIRE $LIRE2 combined > $WOCLOG$i.txt";
        print "$command\n";
        `$command`;
        if (-r "$WOCLOG$i.txt") {
!           `cat $WOCLOG$i.txt | /usr/ucb/mail -s '$titel $titles[$i-1]' $EMAIL`;
        }
    }