Sophos UTM v.9.006005 GA

all of my customers (even at customers which are using only mail protection and web protection on a device in the dmz, no IPS active) have the same problem with swap file. It's always at 100%, only a restart can bring it down. Sophos needs to react fast cause I can't argue anymore...

William it is happening at ASG320, ASG425 and also on UTM220.

You will tell us that with 25 (!) users you need to buy a UTM 325 or UTM 425? When this are official recommended devices, nobody will buy a Sophos UTM anymore! Nobody will pay for this! 25 users can work easily with UTM120.

.....
One of my V9 customers runs a 100IP software version on a machine with 6GB of RAM and the swap never grows because it's never used!

When Sophos figures out why the swap file is getting clogged, this problem will disappear and I'll move other clients up to V9.0, but I bet that it will be solved in 9.1 or 9.2.  I'm betting on some time in 9.3 will be when I'm first comfortable moving V8 devices to V9 - I did upgrades in 7.3 and 8.3 from 6 and 7, respectively.

#!/usr/bin/perl
use warnings;
use strict;

my $overall = 0;
my %out = ();

opendir(my $dh, '/proc/') || die "Can't open /proc: $!";
my @pids = grep { -d "/proc/".$_ && /^[0-9]+$/} readdir($dh);
closedir($dh);
foreach my $pid (@pids) {
    my $sum = 0;
    next unless -d "/proc/$pid";
    print ".";
    foreach my $swap ( `grep Swap /proc/$pid/smaps 2>/dev/null` ){
        next unless $swap;
        $swap = (split(/\s+/,$swap))[-2];
        $sum += $swap;
        $overall += $swap;
    }

    my $progname = `ps -p $pid  -o comm --no-headers`;
    chomp($progname);
    $sum = t($sum);
    $out{$pid} = [$progname,$sum] unless $sum == 0;
}
$overall = t($overall);
my $total = t(`grep SwapTotal /proc/meminfo`);
print "\nSwapTotal: $total MB\n";
print "SwapUsed:   $overall MB\n";
print "========================================\n";
print "MB\t%\tPID\tprocess\n";
foreach my $pid ( sort{ $out{$b}[1]  $out{$a}[1] } keys(%out) ) {
  print $out{$pid}[1]."\t".p($total,$out{$pid}[1])."\t".$pid."\t".$out{$pid}[0]."\n";
}

sub t {
    my $x = shift;
    $x = (split(/\s+/,$x))[-2] if $x =~ /\s/;
    sprintf("%.1f",$x/1024);
}

sub p {
    my $total = shift;
    my $x = shift;
    return sprintf("%.1f",100*$x/$total);
}