#!/bin/sh
eval 'if [ -x /usr/local/cpanel/3rdparty/bin/perl ]; then exec /usr/local/cpanel/3rdparty/bin/perl -x -- $0 ${1+"$@"}; else exec /usr/bin/perl -x $0 ${1+"$@"}; fi;'
if 0;

#!/usr/bin/perl
###############################
#
# Installed by cPGS
# http://cpgs.cpanel.net
#
###############################

my %args=@ARGV;
my $user = $args{'user'};
if(!$user) {
	exit(0);
}

my @remfiles=('/var/cpanel/gameserv.cfg','/var/cpanel/gameserv_ips.cfg','/var/cpanel/gameserv_ports.cfg','/var/cpanel/gameserv_rem.cfg','/var/cpanel/gameserv_restart');

foreach my $fil(@remfiles) {

	if(open(GS,$fil)) {
		my @cfg = (<GS>);
		close(GS);
		open(GS,'>',$fil) or exit(0);
		foreach my $line(@cfg) {
			if($line =~ m/^$user\_/) { 
				next; 
			} else { 
				print GS $line; 
			}
		}
		close(GS);
		
	} else { exit(0); }

}

opendir(D,'/var/cpanel/gameserv_saved/') or exit(0);
my @saved=readdir(D);
closedir(D);

foreach my $sav(@saved) {
	if($sav =~ m/^$user\_/) {
		unlink('/var/cpanel/gameserv_saved/'. $sav);
	}
}
