ServerChecker - Historia wersji

KaszpiR: /* Linki */

2008-01-23T19:39:24Z

Linki

KaszpiR: /* Linki */

2008-01-23T19:34:19Z

Linki

KaszpiR: adding author website :)

2008-01-23T19:34:05Z

adding author website :)

KaszpiR: /* Linki */

2007-01-03T20:43:57Z

Linki

Trawiator: +kategoria skrypty

2007-01-03T17:21:16Z

+kategoria skrypty

PawelS: +Kat.

2006-09-10T13:49:12Z

+Kat.

PawelS: +Lnk, Drobne.

2006-09-06T17:05:28Z

+Lnk, Drobne.

PawelS: Drobne.

2006-09-06T16:51:56Z

Drobne.

PawelS: Perl.

2006-09-06T16:44:38Z

Perl.

Nowa strona

'''ServerChecker''' – Skrypt napisany w Perl'u, dzięki któremu osiągniemy większy uptime serwera ;).

Generalnie chodzi o to, że dzięki temu, gdy serwer przestanie odpowiadać (''zawiesi się'') to skrypt wykona odpowiedni skrypt, bądż inną komendę odpowiedzialną za restart serwera gry, bez interwencji administratora.

Bardzo przydatne, jeżeli testujemy różne dodatki, które mają wycieki pamięci, a chcemy, aby ludzie mogli grać na srwerze bez większych przeszkód.

== Skrypt ==
<perl>
#!/usr/bin/perl -X
use Socket;

#-----------------------------------------------------------
# Konfiguracja (Do ustawienia według opisu)
#-----------------------------------------------------------

my $host = "x.x.x.x"; # Adres IP serwera do sprawdzania (''To jest ten zbindowany'').
my $port = "27015"; # Port serwera, na którym chodzi.
use constant CHECKEVERY => 90; # Jak często sprawdzać serwer ? (''Tutaj ustawiono co 90 sekund'').
use constant TIMEOUT => 20; # Jak długo czekać na jego odpowiedź zanim go zrestartujemy.

# Poniżej podaj ścieżkę do skryptu uruchamiającego/restartującego serwer.
# Oczywiście może to być także zwykła komenda zawierające odpowiednie opcje.

my $cmd = "/home/hlds_l/scripts/hlds restart";

#-----------------------------------------------------------
# Nie edytuj tego poniżej, chyba, że wiesz co robisz :)
#-----------------------------------------------------------

my $MAXLEN = 128;
my $msg="\xFF\xFF\xFF\xFF\x54\x53\x6F\x75\x72\x63\x65\x20\x45\x6E\x67\x69\x6E\x65\x20\x51\x75\x65\x72\x79\x00";
my $RET = "NONE!";
$SIG{ALRM} = sub { &TimeOut };
&Start;
sub CheckServer {
my $ipaddr = inet_aton($host);
my $portaddr = sockaddr_in($port, $ipaddr);
$RET = "NONE!";
socket(SOCKET, PF_INET, SOCK_DGRAM, getprotobyname("udp")) or die "socket: $!";
send(SOCKET, $msg, 0, $portaddr) == length($msg) or die "Error Sending Query.\n";
alarm(TIMEOUT);
recv(SOCKET, $RET, $MAXLEN, 0);
close SOCKET;
sleep(CHECKEVERY);
}
sub Start {
while (1) {
&CheckServer;
}
}
sub TimeOut {
if ($RET eq "NONE!") {
print "SERVER DOWN, RESTARTING!\n";
$STARTSERV = `/usr/bin/perl -w $cmd`;
print $STARTSERV . "\n";
}
sleep(CHECKEVERY);
close SOCKET;
}
</perl>
And again PawelS saves the world ;)

@@ Linia 6: / Linia 6: @@
 Bardzo przydatne, jeżeli testujemy różne dodatki, które mają wycieki pamięci, a chcemy, aby ludzie mogli grać na serwerze bez większych przeszkód.
 =Linki=
-* [http://www.dumbclan.co.uk/downloads/serverchecker/ Oficjalna strona] twórców skryptu, czyli klanu '''[Dumb]''' - znajdziecie tam nowszą wersję pod serwery [[Source]].
+* [http://www.dumbclan.co.uk/downloads/serverchecker/ Oficjalna strona] twórców skryptu, czyli klanu '''[Dumb]''' - znajdziecie tam nowszą wersję pod serwery [[Source]] i nie tylko  - (wersaj pod Windows).
 * [http://developer.valvesoftware.com/wiki/Server_Queries Protokół Source] - do komunikacji rcon oraz sprawdzania statusu serwera (serwer query)

@@ Linia 6: / Linia 6: @@
 Bardzo przydatne, jeżeli testujemy różne dodatki, które mają wycieki pamięci, a chcemy, aby ludzie mogli grać na serwerze bez większych przeszkód.
 =Linki=
-* [http://www.dumbclan.co.uk/downloads/serverchecker/ Oficjalna strona] twórców skryptu, czyli klanu [Dumb] - znajdziecie tam nowszą wersję pod serwery [[Source]].
+* [http://www.dumbclan.co.uk/downloads/serverchecker/ Oficjalna strona] twórców skryptu, czyli klanu '''[Dumb]''' - znajdziecie tam nowszą wersję pod serwery [[Source]].
 * [http://developer.valvesoftware.com/wiki/Server_Queries Protokół Source] - do komunikacji rcon oraz sprawdzania statusu serwera (serwer query)

@@ Linia 1: / Linia 1: @@
 '''ServerChecker''' – Skrypt napisany w Perl'u, dzięki któremu osiągniemy większy uptime serwera ;).
@@ Linia 4: / Linia 5: @@
 Bardzo przydatne, jeżeli testujemy różne dodatki, które mają wycieki pamięci, a chcemy, aby ludzie mogli grać na serwerze bez większych przeszkód.
 == Skrypt ==
@@ Linia 64: / Linia 68: @@
 * [[HLDS - skrypcior]]
 * [[SRCDS - skrypcior]]
 * [http://www.int64.org/docs/gamestat-protocols/index.html Protokoły Gier]

@@ Linia 66: / Linia 66: @@
 == Linki ==
 * [http://www.int64.org/docs/gamestat-protocols/index.html Protokoły Gier]
 ** [http://www.int64.org/docs/gamestat-protocols/halflife.html Protokół Counter-Strike'a w wersji 1.6]

← poprzednia wersja		Wersja z 17:21, 3 sty 2007
Linia 73:		Linia 73:
	[[Kategoria:SRCDS]]		[[Kategoria:SRCDS]]
	[[Kategoria:Serwery gier]]		[[Kategoria:Serwery gier]]
		+	[[Kategoria:Skrypty]]

← poprzednia wersja		Wersja z 13:49, 10 wrz 2006
Linia 69:		Linia 69:
	** [http://www.int64.org/docs/gamestat-protocols/halflife.html Protokół Counter-Strike'a w wersji 1.6]		** [http://www.int64.org/docs/gamestat-protocols/halflife.html Protokół Counter-Strike'a w wersji 1.6]
	** [http://www.int64.org/docs/gamestat-protocols/source.html Protokół Counter-Strike'a w wersji Source]		** [http://www.int64.org/docs/gamestat-protocols/source.html Protokół Counter-Strike'a w wersji Source]
		+
		+	[[Kategoria:HLDS]]
		+	[[Kategoria:SRCDS]]
		+	[[Kategoria:Serwery gier]]

@@ Linia 14: / Linia 14: @@
   #-----------------------------------------------------------
-  my $host = "x.x.x.x"; # Adres IP serwera do sprawdzania (''To jest ten zbindowany'').
+  my $host = "x.x.x.x"; # Adres IP serwera do sprawdzania (To jest ten zbindowany).
   my $port = "27015";   # Port serwera, na którym chodzi.
-  use constant CHECKEVERY => 90; # Jak często sprawdzać serwer ? (''Tutaj ustawiono co 90 sekund'').
+  use constant CHECKEVERY => 90; # Jak często sprawdzać serwer ? (Tutaj ustawiono co 90 sekund).
-  use constant TIMEOUT => 20;      # Jak długo czekać na jego odpowiedź zanim go zrestartujemy.
+  use constant TIMEOUT => 20;    # Jak długo czekać na jego odpowiedź zanim go zrestartujemy.
   # Poniżej podaj ścieżkę do skryptu uruchamiającego/restartującego serwer.
@@ Linia 60: / Linia 60: @@
 </perl>
 And again PawelS saves the world ;)