Announcement

**NormanRouxel** · 09-Apr-2005, 12:36 AM

Here's the same thing done in Perl.

Code:

#!/usr/bin/perl
# Configuration: look in Actinic / Advanced / Network Setup and do the following 2 changes
# Set top line to be #!<Path to the Perl shell>       
# Set following line to be $dir = '<Path From CGI-BIN to acatalog Directory>';
$dir = '../acatalog/';
print "content-type: text/html\n\n<head><title>Live Info: $dir</title></head><body>";
print '<table bgcolor="#aaccee"><tr><td colspan=2><h3>' . (localtime time) . '</h3></td></tr>';
opendir D, $dir; 
@entries = readdir D;
closedir D;
$sess = $ord = $occ = 0;
foreach $entry (@entries)
  {
  if ($entry =~ /\.ord$/){ $ord++ }
    elsif ($entry =~ /\.occ$/){ $occ++ }
      elsif ($entry =~ /\.session$/){ $sess++ }
  }
print "<tr><td>Orders:</td><td>$ord</td></tr>";
print "<tr><td>Occ Sessions:</td><td>$occ</td></tr>";
print "<tr><td>Sessions:</td><td>$sess</td></tr>";
print "</table></body></html>";

Look in Actinic / Advanced / Network Setup and make the 2 changes as per the comments in the code above.
Save the file as secretname.pl or secretname.cgi depending on your server (that suffix is in Advanced / Network Setup / Extension).
Then FTP into your servers cgi-bin directory in ascii mode.
Run the script via http://myserver.com/cgi-bin/secretname.pl

**webyourbusiness** · 09-Apr-2005, 02:04 AM

s'not at all the same - it's blue!

**dscontroller** · 09-Apr-2005, 08:53 AM

Hi Greg and Norman,

To be fair, it is a nice blue though.

Thanks very much for the perl script Norman - it works a treat on my other sites!!

Still trying to get Greg's working on my main site. If not possible, I'll email the details, thank you.

Regards,
David

**omulcock** · 09-Apr-2005, 12:01 PM

I think I agree, blue looks quite nice and relaxing.

**NormanRouxel** · 09-Apr-2005, 12:29 PM

I've just amended the code above slightly - - better layout - more nice blue.

**Buzby** · 09-Apr-2005, 10:20 PM

I have now implemented this script on both my sites and added both pages to 1 single framed page so that I can monitor both sites at once.

Many thanks to you both for this very useful script.

**NormanRouxel** · 09-Apr-2005, 10:58 PM

Here's my patch rejigged to handle an arbitrary number of sites on the same server.

Code:

#!/usr/bin/perl
# Configuration: look in Actinic / Advanced / Network Setup for the following 2 entries
# Set top line to be #!<Path to the Perl shell>       
# Set following line to be @dirs = ('<Path From CGI-BIN to acatalog Directory>');
# If more than 1 site to monitor then use @dirs = ('<Path1>', '<Path2>', '<Path3>');
@dirs = ('../acatalog/');
print "content-type: text/html\n\n<head><title>Live Info</title></head><body>";
print '<table bgcolor="#aaccee"><tr><td colspan=2><h3>' . (localtime time) . '</h3></td></tr>';
foreach $dir (@dirs)
  {
  opendir D, $dir; 
  @entries = readdir D;
  closedir D;
  $sess = $ord = $occ = 0;
  foreach $entry (@entries)
    {
    if ($entry =~ /\.ord$/){ $ord++ }
      elsif ($entry =~ /\.occ$/){ $occ++ }
        elsif ($entry =~ /\.session$/){ $sess++ }
    }
  print "<tr bgcolor=\"#88aaee\"><td colspan=2><b>$dir</b></td></tr>";
  print "<tr><td>Orders:</td><td>$ord</td></tr>";
  print "<tr><td>Occ Sessions:</td><td>$occ</td></tr>";
  print "<tr><td>Sessions:</td><td>$sess</td></tr>";
  print "<tr><td colspan=2>&nbsp;</td></tr>";
  }
print "</table></body></html>";

Look in Actinic / Advanced / Network Setup and make the 2 changes as per the comments in the code above.
Save the file as secretname.pl or secretname.cgi depending on your server (that suffix is in Advanced / Network Setup / Extension).
Then FTP into your servers cgi-bin directory in ascii mode.
Run the script via http://myserver.com/cgi-bin/secretname.pl

**webyourbusiness** · 09-Apr-2005, 11:56 PM

if anyone is in doubt as to which script to use - mine, or the perl version from Norman, I highly recommend using the Perl version - shell can be disabled on certain hosts, or crippled by setting up users with a "restricted" shell - this prevents cd from working... which would stop my original script from functioning... it can be rewritten to include the folder in each of the ls commands, but even these can be crippled, so perl is DEFINITELY the better solution.

Which is ironic, as it's probably a LOT easier to mess up a system using a few choice perl scripts if you know what you're doing than using any practically any shell scripts... oh well... lots of web hosts REALLY don't know diddley...

**NormanRouxel** · 10-Apr-2005, 12:21 AM

And (like death and taxes) the one other thing you can be sure off, is that an Actinic site will have Perl available.

**webyourbusiness** · 10-Apr-2005, 12:33 AM

lol - yes - or it won't be doing much business Norman!

**TraceyHand** · 10-Apr-2005, 12:11 PM

I give up!
Despite idiot-proof instructions, I still can't get this to work!
Am using Normans perl version and saving as .pl, uploaded to my cgi bin.
Jo... if you're out there... what's wrong with the one I've uploaded? Am I a total idiot? (a question only to be answered by those "in the know" LOL)
Tracey

**wjcampbe** · 10-Apr-2005, 12:17 PM

Did you set permissions on the uploaded file through your ftp program?

**TraceyHand** · 10-Apr-2005, 12:33 PM

Originally posted by wjcampbe

Did you set permissions on the uploaded file through your ftp program?

I think so, yes!
I right clicked and selected "change file attributes" (using CuteFTP)
and checked ALL the boxes. Still didn't work.
When I went back in to see the settings again, however, all boxes were UNchecked?
DUnno...maybe even my website knows it's sunday!
Will tackle it when I have less to do, I guess.. along with my blooming Froggle submissions!

Tracey

**Buzby** · 10-Apr-2005, 04:19 PM

Tracey,

When I uploaded mine I then had to select the file, right click and selet properties. Change the number in the permissions box to 755.

**NormanRouxel** · 10-Apr-2005, 04:42 PM

Tracey

You can always let us know the URL of your script so we can see what's happening. Once it's fixed, rename it to something private.

Announcement

Order counting script

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment