Web,
What a dozy git! Should really have thought of that myself.
Cheers!
Dave
What a dozy git! Should really have thought of that myself.
Cheers!
Dave
-
-
Returning results from several sites on different servers is relatively simple. Install a copy of Normans script on each server then on whichever server you wish to use to query add the following lines into the script:-
use LWP::Simple;
getprint("http://www.myurl.com/cgi/myscript.pl");
Insert it after the print lines and it will display the results from the relevant site. Insert this for each server you wish to query.
DaveComment
-
assumes LWP::Simple is available though... not available on some of our servers.
HTML and frames are universally available - (I know - some ancient browsers... )Comment
-
We have been using this useful script for a few years now and just wonder if it would be possible to display how many current visitors are online.
Many thanks
JasonComment
-
Such a great script (see page 2)
Having trouble getting this to work on V10 site.
Any ideas?
Many thanks
JasonComment
-
Comment
-
Having been using this for years, once again, many thanks Norman.
We are using this on V14, and have just changed to SSL and now the script has stopped working.
Does anything need to be changed, or is it not possible to view on https ?
A test url is here https://www.jewellery-workshop.co.uk/cgi-bin/758445.pl
Code here
#!/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 = '../httpdocs/buy/';
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>";Comment
-
An 11 year old thread with over 50 posts including many updates, tweaks, suggestions, etc..
It's unlikely that anyone but yourself knows what "this" you are using.Norman - www.drillpine.biz
Edinburgh, U K / Bitez, TurkeyComment
-
Hi Norman, it was your original code.
I have updated the post now.Comment
-
Could this line:
need to be changed to point to the place where your SSL files now live?Code:$dir = '../httpdocs/buy/';
Norman - www.drillpine.biz
Edinburgh, U K / Bitez, TurkeyComment
Comment