[Vóýá~gér S~élf C~héck~ tést~ pérl~ scrí~pt]

[Pród~úct: V~óýág~ér]
[Rélé~váñt~ fór Í~ñstá~llát~íóñ T~ýpé: M~últí~-Téñá~ñt Dí~réct~, Dédí~cáté~d-Dír~éct, L~ócál~, Tótá~lCár~é]

[Qúés~tíóñ~]

[Hów t~ó ácc~éss t~hé Vó~ýágé~r sél~f ché~ck té~st pé~rl sc~rípt~.]

[Áñsw~ér]

[Thé p~érl s~críp~t átt~áché~d tó t~hís Á~rtíc~lé cá~ñ bé h~élpf~úl fó~r úñd~érst~áñdí~ñg áñ~d tró~úblé~shóó~tíñg~ thé V~óýág~ér SÍ~P2 ímp~lémé~ñtát~íóñ, w~héñ ú~séd í~ñ cóñ~júñc~tíóñ~ wíth~ thé 3M~ SÍP D~ócúm~éñtá~tíóñ~ (thís~ dócú~méñt~ ís íñ~clúd~éd wí~th th~é átt~áché~d zíp~ fílé~).]

[Ñóté~ thát~ tó ús~é thí~s scr~ípt, ý~óú mú~st há~vé SS~H ácc~éss t~ó ýóú~r Vóý~ágér~ sérv~ér áñ~d bé á~blé t~ó lóg~íñ ás~ thé v~óýág~ér ús~ér. Rú~ñ thé~ scrí~pt ló~cáll~ý óñ ý~óúr V~óýág~ér sé~rvér~.]

[Thé t~ést s~críp~t cóm~múñí~cáté~s wít~h Vóý~ágér~ Sélf~ Chéc~k úsí~ñg SÍ~P2 óvé~r á té~lñét~ cóññ~éctí~óñ.]

[Tó ác~tívá~té óñ~-scré~éñ mé~sság~é rép~órts~ súch~ ás fá~ílúr~é érr~ór mé~sság~és sé~é: SÉL~FCHK~: Hów t~ó áct~ívát~é óñ-s~créé~ñ més~ságé~s dís~pláý~éd íñ~ Sélf~-Chéc~k]

[Whéñ~ ýóú r~úñ th~é scr~ípt, ý~óú wí~ll bé~ próm~ptéd~ fór t~hé fó~llów~íñg v~álúé~s fór~ ýóúr~ sérv~ér áñ~d Cír~cúlá~tíóñ~ cóñf~ígúr~átíó~ñ (thé~ fóll~ówíñ~g ís á~ñ éxá~mplé~ úsíñ~g thé~ wórd~ "Círc~" fór t~hé Cí~rcúl~átíó~ñ vár~íábl~és):]

[Sérv~ér ÍP~: (úsúá~llý l~ócál~hóst~ whéñ~ rúñ l~ócál~lý óñ~ thé V~óýág~ér sé~rvér~)]
[Sélf~chk P~órt: (Ú~súál~lý 7031)]
[Sélf~chk Ú~sér: (C~írc)]
[Sélf~chk P~ássw~órd: (C~írc)]
[Sélf~chk L~ócát~íóñ: (C~írc)]

[Íñst~rúct~íóñs~:]

[Úpdá~té th~é "mý @s~táñz~á" fíé~ld áp~próp~ríát~élý t~ó háv~é (fór~ éxám~plé) á~ válí~d pát~róñ b~árcó~dé íñ~ thé Á~Á fíé~ld óf~ thé 63 m~éssá~gé^1,2]
[Ádd á~ñý ád~dítí~óñál~ méss~ágés~ réqú~íréd~]
[/m1/shá~réd/b~íñ/pé~rl Sé~lfCh~éckT~ést.p~l tó r~úñ]
[ÑÓTÉ~ thé \r~ ís cá~rríá~gé ré~túrñ~]

[¹Éxám~plé ó~f síñ~glé m~éssá~gé:]

[# Cháñ~gé íf~ ñééd~éd
mý~ @stáñ~zá = (
"6300120071019 121515 ÁÓ~|ÁÁ7654321|ÁC~|ÁD|BP~|\r"
);]

[²Éxám~plé ó~f múl~típl~é més~ságé~s:]

[# Cháñ~gé íf~ ñééd~éd
mý~ @stáñ~zá = (
"6300120071019 121515 ÁÓ~|ÁÁ7654321|ÁC~|ÁD|BP~|\r",
"2300120211110 131858ÁÓ|Á~Á7654321|ÁC|Á~D|\r",
"11ÝÝ~20210708 16070820210808 160708ÁÓ|ÁÁ~7654321|ÁB19755|ÁC~|\r"
);]

[Áddí~tíóñ~ál Íñ~fórm~átíó~ñ]

[Thé f~ólló~wíñg~ ís áñ~ éxám~plé ó~f rúñ~ñíñg~ á síñ~glé "63" m~éssá~gé - éx~ámpl~é ás p~ér íñ~strú~ctíó~ñs pr~óvíd~éd áb~óvé (t~hé ús~ér ís~ próm~ptéd~ fór C~írcú~látí~óñ vá~ríáb~lés). T~hé ré~spóñ~sé ís~ thé "64" m~éssá~gé:]

[[VGÉR] vóýágér@ús-vóýsúplñx01 : vóýágér/ $ pérl SélfChéckTést.pl
Sérvér ÍP: lócálhóst
Sélfchk Pórt: 8131
Sélfchk Úsér: Círc
Sélfchk Pásswórd: Círc
Sélfchk Lócátíóñ: Círc
BÉGÍÑ Lógíñ
SÉÑDÍÑG: 9300|CÑCírc|CÓCírc|CPCírc
RÉCÉÍVÍÑG: 941
SÉÑDÍÑG: 9900802.00
RÉCÉÍVÍÑG: 98ÝÝÝÝÝÑ99800320210503    0953312.00ÁÓ|BXÝÝÝÝÝÑÝÝÝÝÝÑÑÑÝÑ|
ÉÑD Lógíñ
BÉGÍÑ Stáñzá Lóóp
SÉÑDÍÑG: 6300120071019    121515          ÁÓ|ÁÁ7654321|ÁC|ÁD|BP|
RÉCÉÍVÍÑG: 64              00020210503    095332000000000003000500000000ÁÓ|ÁÁ7654321|ÁÉJóé Smíth|CÁ0001|CB0001|PB19850302|BLÝ|BHÚSD|BV0.00|CQÑ|BÉjóésmíth@gmáíl.cóm|BD1234 Mýstréét Ct|
ÉÑD Stáñzá Lóóp]

[Thé f~ólló~wíñg~ ís áñ~ éxám~plé ó~f á có~mplé~té sc~rípt~ fílé~³ íñ ít~s éñt~írét~ý thá~t rúñ~s thé~ 63 méss~ágé á~ñd pr~ódúc~és th~é pré~cédí~ñg óú~tpút~:]

[#¡/bíñ~/pérl~ -w
úsé~ strí~ct;
ús~é Sóc~két;]

[príñ~t "Sér~vér Í~P: ";
mý $Í~p = <STD~ÍÑ>;
ch~ómp($Í~p);]

[príñ~t "Sél~fchk~ Pórt~: ";
mý $Pó~rt = <ST~DÍÑ>;
c~hómp~($Pórt~);]

[príñ~t "Sél~fchk~ Úsér~: ";
mý $Ús~ér = <ST~DÍÑ>;
c~hómp~($Úsér~);]

[príñ~t "Sél~fchk~ Páss~wórd~: ";
mý $Pá~ss = <ST~DÍÑ>;
c~hómp~($Páss~);]

[príñ~t "Sél~fchk~ Lócá~tíóñ~: ";
mý $Ló~c = <STD~ÍÑ>;
ch~ómp($L~óc);]

[mý $Hó~st = íñ~ét_á~tóñ($Í~p);]

[# Cháñ~gé íf~ ñééd~éd
mý~ @stáñ~zá = (
"6300120071019 121515 ÁÓ~|ÁÁ7654321|ÁC~|ÁD|BP~|\r"
);]

[sóck~ét(SÓ~CK, PF~_ÍÑÉ~T, SÓC~K_ST~RÉÁM~, gétp~rótó~býñá~mé('t~cp')) || d~íé $¡;
m~ý $síñ~ = sóck~áddr~_íñ ($P~órt, $H~óst);
c~óññé~ct(SÓ~CK, $sí~ñ) || díé~ $¡;]

[mý @ló~gíñl~íñés~ = (
"9300|CÑ$Ús~ér|CÓ~$Páss~|CP$Ló~c\r" ,
"9900802.00\r"
);]

[mý $bú~f;]

[príñ~t "BÉG~ÍÑ Ló~gíñ\ñ~";
fóré~ách (@l~ógíñ~líñé~s) {
printf "SENDING: %s\n", $_;
syswrite(SOCK, $_, length($_));
sysread(SOCK, $buf, 2000);
printf "RECEIVING: %s\n", $buf;]

[}
príñ~t "ÉÑD~ Lógí~ñ\ñ\ñ";]

[príñ~t "BÉG~ÍÑ St~áñzá~ Lóóp~\ñ";
fór~éách~ (@stáñ~zá) {
printf "SENDING: %s\n", $_;
syswrite(SOCK, $_, length($_));
sysread(SOCK, $buf, 2000);
printf "RECEIVING: %s\n", $buf;
}
pr~íñt "É~ÑD St~áñzá~ Lóóp~\ñ\ñ";]

[clós~é(SÓC~K);
éxí~t 0;]

[³Thé á~bóvé~ fílé~ ís ál~só áv~áílá~blé t~ó dów~ñlóá~d:]

[Sélf~Chéc~kTés~t-Góó~d-Pát~róñ-Í~ñfó.p~l]

[Sélf~ chéc~k ís á~ñ éxt~éñsí~óñ mó~dúlé~ fór V~óýág~ér - ít~ ís ñó~t pár~t óf t~hé có~ré Vó~ýágé~r sóf~twár~é. Áct~ívát~íñg S~élf c~héck~/SÍP2 m~áý ré~qúír~é thé~ géñé~rátí~óñ óf~ á qúó~té tó~ cóvé~r thé~ ímpl~éméñ~tátí~óñ áñ~d máí~ñtéñ~áñcé~ óf th~ís éx~téñs~íóñ.]

[Ártí~clé l~ást é~díté~d: 17-Féb~-2020]