Servers Crashing.

Anything to do with the game America's Army and our America's Army servers.
Post Reply
User avatar
ADF-Sniper
Admin - Founder
Admin - Founder
Posts: 2916
Joined: Sat Jul 19, 2003 12:00 am
Location: Wangaratta, Australia
Contact:

Servers Crashing.

Post by ADF-Sniper »

As you proberly know, servers around the world and many games have been rebooting over and over. I have make a fix for our servers so at least we can play on them. The down side is that the server has to be hacked once to ban the person, after that they cant attack it again from the IP they are using. Our server will just come back up and hopefully stay up for a while. This is the best protection until a patch is released.

Here is all you need to know about it
http://www.google.com.au/search?hl=en&q ... arch&meta=

Note the fixes are for other games.

Enjoy

Code: Select all

09/14/08 22:41:13 Log: PB Enabled Server: Game Version [2.8.3.1]
09/14/08 22:41:13 ScriptLog: Tours.ini file is up-to-date.
09/14/08 22:41:13 Log: PB Enabled Server: Running PB Scheduled Task (slot #1) pb_sv_cvarval"a3e8b8df9e699100885c172e3d24b9ed *"
09/14/08 22:41:13 Log: PB Enabled Server: Unknown Command/Setting: pb_sv_cvarval"a3e8b8df9e699100885c172e3d24b9ed *"
09/14/08 22:41:14 NetComeGo: Open myLevel 09/14/08 22:41:14 122.108.118.148:2339
09/14/08 22:41:14 Critical: Assertion failed: VoiceIndex<VOICE_MAX_CHATTERS [File:C:\dev\AA2_PublicApps\ArmyOps\Project\Engine\Src\UnChan.cpp] [line: 1789]
09/14/08 22:41:14 Exit: Executing UObject::StaticShutdownAfterError
09/14/08 22:41:14 Critical: UVoiceChannel::Destroy
09/14/08 22:41:14 Critical: UObject::ConditionalDestroy
09/14/08 22:41:14 Critical: (VoiceChannel Package.VoiceChannel)
09/14/08 22:41:14 Critical: NotifyAcceptingRefused
09/14/08 22:41:14 Critical: CreateNewChannel
09/14/08 22:41:14 Critical: BunchData
09/14/08 22:41:14 Critical: UNetConnection::ReceivedPacket
09/14/08 22:41:14 Critical: UNetConnection::ReceivedRawPacket
09/14/08 22:41:14 Critical: UTcpNetDriver::TickDispatch
09/14/08 22:41:14 Critical: UpdatePreNet
09/14/08 22:41:14 Critical: ULevel::Tick
09/14/08 22:41:14 Critical: (NetMode=1)
09/14/08 22:41:14 Critical: TickLevel
09/14/08 22:41:14 Critical: UGameEngine::Tick
09/14/08 22:41:14 Critical: Level Pipeline
09/14/08 22:41:14 Critical: UpdateWorld
09/14/08 22:41:14 Critical: UServerCommandlet::Main
09/14/08 22:41:14 Exit: Exiting.
09/14/08 22:41:14 Log: FileManager: Reading 0 GByte 29 MByte 791 KByte 762 Bytes from HD took 0.032000 seconds (0.032000 reading, 0.000000 seeking).
09/14/08 22:41:14 Log: FileManager: 0.159000 seconds spent with misc. duties
09/14/08 22:41:14 Uninitialized: Name subsystem shut down
09/14/08 22:41:14 Uninitialized: Log file closed, 09/14/08 22:41:14
My Quick Fix

Code: Select all

'By ADF-Sniper
'http://www.adfteam.com
'Evolution is just so unlikely to produce complex life forms.

Private Sub Form_Load()
    Dim myArr() As Variant, myLine As String
    Dim i As Integer, intNum As Integer
    Dim back As String
    Dim GOTIT As String
       
' Open the log file and search for the previous ip connection before crash
       intNum = FreeFile
Open "1716.log" For Input As intNum
   Do While Not EOF(intNum)
        i = i + 1
        ReDim Preserve myArr(1 To i) As Variant
        back = myLine
        Line Input #intNum, myLine
        If myLine Like "*VoiceIndex<VOICE_MAX_CHATTERS*" Then
              Close #intNum
              GoTo GOTIT
            Else
         myArr(i) = myLine
    myArr(i) = Trim(myArr(i))
End If
    Loop
    End
    Close #intNum
    
' Hooah found the line with the IP. Lets now get the ip out of the line
GOTIT:
      Dim sometext As String
Dim AAA As String
    sometext = back
    AAA = Mid(sometext, InStrRev(sometext, "/") + 13)
    BBB = Left(AAA, InStrRev(AAA, ":") - 1)

CCC = BBB & ":" & BBB & "-" & BBB

' Kill Peerguardian to update the bans
Shell "net stop pgfilter"
Shell "pskill.exe pg2.exe"


' Write the new bans
Dim fno As Integer
Dim writestring As String
fno = FreeFile
Open "Firewall.p2b" For Append As #fno
Print #fno, CCC
Close #fno

' Wait a little no need to rush
dblClock = Timer
        While Timer < dblClock + 1
            DoEvents
        Wend
' Better start up Peerguardian again hey?
Dim path As String
Dim runExe As Double
path = "C:\Program Files\PeerGuardian2\"
runExe = Shell(path & "pg2.exe", vbMaximizedFocus)

End
End Sub
Evolution is just so unlikely to produce complex life forms.
Image

User avatar
ADF-Baby
ADF Member
ADF Member
Posts: 975
Joined: Mon Dec 13, 2004 11:00 pm
Location: Townsville

Post by ADF-Baby »

haha uber noob.
Live long and procreate
Image

Image[img]http://www.gametracker.com/player_info/202.

ADF-CaptCC
Im a man of the forums!!
Posts: 4530
Joined: Tue Mar 08, 2005 11:00 pm
Location: Freo. W.A. Aussie
Contact:

Post by ADF-CaptCC »

GOOD JOB M88Y

MADOZ
[smilie=smiley_abzv[1].gif]

User avatar
ADF-Medic
ADF-Team Admin
ADF-Team Admin
Posts: 2800
Joined: Fri May 12, 2006 12:00 am
Location: Brisbane Q.L.D
Contact:

Post by ADF-Medic »

HOOAH Snipe. MADOZ
Image

User avatar
G-Mick
I said my first word today!!!
Posts: 6
Joined: Tue Sep 16, 2008 12:00 am

Post by G-Mick »

Yes Medic, Hooah Sniper. Let hope this keep these little buggers out.

Thanks for your Help Sniper from all of GBHTEAM. Much appreciated Mate.

GBH.Mick
Dispite the cost of living... It still remains quite popular...

[IMG:500:146]http://i300.photobucket.com/albums/nn28 ... st1111.gif[/img]

User avatar
ADF-Sniper
Admin - Founder
Admin - Founder
Posts: 2916
Joined: Sat Jul 19, 2003 12:00 am
Location: Wangaratta, Australia
Contact:

Post by ADF-Sniper »

You can find our fix in the downloads section.
Evolution is just so unlikely to produce complex life forms.
Image

Post Reply