DayZ Linux

11:36:25 "Second Hand Zombie Initialized: [[13258.7,6705.39,0],Agent 0x304ccd80,true]"


11:36:25 "CLEANUP: DELETE UNCONTROLLED ZOMBIE: z_new_worker2 OF: Agent 0x304ccd80"


11:36:25 "Second Hand Zombie Initialized: [[13284,6700.48,-1.43051e-06],Agent 0x304c0e10,true]"


11:36:25 "CLEANUP: DELETE UNCONTROLLED ZOMBIE: z_new_worker2 OF: Agent 0x304c0e10"


11:36:25 "Second Hand Zombie Initialized: [[13262.6,6664.81,4.76837e-07],Agent 0x304d89d0,true]"


11:36:25 "CLEANUP: DELETE UNCONTROLLED ZOMBIE: z_worker1 OF: Agent 0x304d89d0"


11:36:41 Player RoadRunner disconnected.


11:36:41 BattlEye Server: Player #0 RoadRunner disconnected


11:36:41 Warning: Cleanup player - person 3:74 not found


11:37:04 "TIME SYNC: Local Time set to [2013,8,3,5,4]"


11:37:04 "CLEANUP:TOTAL 30 LOOT BAGS"


11:38:04 "CLEANUP:TOTAL 30 LOOT BAGS"


11:38:07 "DEBUG FPS  : 49.6894"


11:39:05 "CLEANUP:TOTAL 30 LOOT BAGS"

#!/usr/bin/perl## Copyright 2013 by Denis Erygin,# denis.erygin@gmail.com#


use warnings;use strict;


use constant PATH      => $ENV{'PWD'}.'/'; # Set your dayz server diruse constant PIDFILE   => PATH.'2302.pid';use constant CACHE_DIR => PATH.'cache/players';


unless (-f PATH.'server') {    print STDERR "Can't found server binary!\n";    exit;}


set_time  ();logrotate ();


if (-f PIDFILE) {    open  (IN, '<'.PIDFILE) or die "Can't open: $!";    my $pid = int(<IN>);    close (IN);


    my $res = `kill -TERM $pid 2>&1`;    print STDERR $res,"\n" if $res;       unlink (PIDFILE) if (-f PIDFILE);        backup_cache();}


print STDERR "Restart Dayz server...\n";chdir (PATH);


my $cmd = '/usr/bin/screen -h 20000 -fa -d -m -S dayz '.PATH.'server.sh';my $res = `$cmd`;print STDERR $res,"\n" if $res;exit;


#-----------------------------------------------------------------------------------------------sub set_time {    my ($s, $m, $h, $day, $mon, $y) = localtime(time() - 3*3600);    $y += 1900;    $mon++;        ($h, $m) = (20, 0) if ($h > 20 || ($h >= 0 && $h < 4));        my $file = PATH.'cache/set_time.sqf';    open  (IN, ">$file") or die "Can't find $file";    #print IN '["PASS",['.$y.','.$mon.','.$day.','.$h.','.$m.']]';    print IN '["PASS",[2012,6,6,'.$h.','.$m.']]';    close (IN);}


sub logrotate {    my $log = PATH.'dump.log';    if (-f $log) {        my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = stat($log);            if ($size && $size >= 100000000) {            print STDERR "logrotate $size\n";                    my $nlog = $log.'.'.time();            my $res  = `cp $log $nlog 2>&1`;            print STDERR $res,"\n" if $res;                    $res = `echo '' > $log 2>&1`;            print STDERR $res,"\n" if $res;        }    }}


sub backup_cache {    return unless (-d CACHE_DIR);    opendir (DIR, CACHE_DIR) or die $!;


    while (my $file = readdir (DIR)) {        next unless ($file =~ m/^\d+$/ && $file ne '1');        my $dir    = CACHE_DIR.'/'.$file;        my $backup = CACHE_DIR.'/1';        next unless (-d $dir);                my $res = `mv -f $dir $backup 2>&1`;        print STDERR $res,"\n" if $res;    }


    closedir (DIR);}