Gecko [ v3.cesa.co.za ]

Linux cesa-www-main 6.1.0-49-cloud-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.174-1 (2026-05-26) x86_64
Apache/2.4.68 (Debian)
Server IP : 10.218.0.2 & Your IP : 216.73.216.28
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
damemtop	15.52 KB	-rwxr-xr-x	2023-01-12 00:02
damemtop.yaml	294 B	-rw-r--r--	2023-01-12 00:02
memcached-tool	6.85 KB	-rwxr-xr-x	2023-01-12 00:02
start-memcached	2.71 KB	-rwxr-xr-x	2023-01-12 00:02
systemd-memcached-wrapper	1.39 KB	-rwxr-xr-x	2023-01-12 00:02

Rename

#!/usr/bin/perl -w

# systemd-memcached-wrapper
# 2014 - Christos Trochalakis <yatiohi@idepolis.gr>
#
# Heavily based on start-memcached script by Jay Bonci
# <jaybonci@debian.org>
#
# This script handles the parsing of the /etc/memcached.conf file
# and was originally created for the Debian distribution.
# Anyone may use this little script under the same terms as
# memcached itself.

use strict;

if($> != 0 and $< != 0)
{
    print STDERR "Only root wants to run systemd-memcached-wrapper.\n";
    exit;
}

my $params; my $etchandle; my $etcfile = "/etc/memcached.conf";

# This script assumes that memcached is located at /usr/bin/memcached
my $memcached = "/usr/bin/memcached";

if (scalar(@ARGV) == 1) {
    $etcfile = shift(@ARGV);
}

# systemd capture stdout by default
my $ignore_directives = ("logfile");

if(open $etchandle, $etcfile)
{
    foreach my $line (<$etchandle>)
    {
        $line ||= "";
        $line =~ s/(?<!\\)\#[^\#]*//g;
        $line =~ s/\s+$//g;
        $line =~ s/^\s+//g;
        next unless $line;
        next if $line =~ /^\-[dh]/;

if($line =~ /^[^\-]/)
        {
            my ($directive, $arg) = $line =~ /^(.*?)\s+(.*)/;
	    next if(grep $directive, $ignore_directives);
        }

push @$params, $line;
    }

}else{
    $params = [];
}

push @$params, "-u root" unless(grep "-u", @$params);
$params = join " ", @$params;

exec "$memcached $params";
exit(0);