Koozali.org: home of the SME Server

Detect Squid Version in Template

gbl

Detect Squid Version in Template
« on: November 14, 2003, 09:07:05 PM »
Hi, there.

How can I detect the SQUID Version (inside templates-custom) installed in SME 5.6?

sincerly
Guenter

Michiel

Re: Detect Squid Version in Template
« Reply #1 on: November 14, 2003, 11:30:28 PM »
Maybe 'rpm -q squid' ?

Greg Zartman

Re: Detect Squid Version in Template
« Reply #2 on: November 14, 2003, 11:41:10 PM »
Maybe:

if (open (SQUID, "/usr/sbin/squid -v |")) {

    @squid_output = ;
    @squid_output_parts = split (/\s/,$squid_output[0]);
     $squid_version = $squid_output_parts[3];
}

else {$squid_version = "unknown";}

Greg Zartman

gbl

Re: Detect Squid Version in Template
« Reply #3 on: November 15, 2003, 03:36:01 PM »
Thank you.

Based on your Posting I have extend the Script to the following:

#!/usr/bin/perl -w

use strict;

my @part0;
my @o_part0;
my $erg0;
my @o_part1;
my $erg1;
my $sver;

if (open (SQUID, "/usr/sbin/squid -v |"))
{
  @part0 = ;

  @o_part0 = split (/\s/,$part0[0]);
  $erg0 = $o_part0[3];

  @o_part1 = split (/\./, $erg0);
  $erg1 = $o_part1[0] . $o_part1[1];

  $sver = $erg1;
}
else
{
  $sver = "-.-";
}

close SQUID;

print "\nVersion: $sver \n";



I think I work fine.
Any suggestions?

Günter