Quoted
- Today, 10:59 AM
At about 10:00am, ns1/2.ev1servers.net lost all zones on the front end DNS servers. All the zones and the data for the zones is intact. During the hourly update, an untrapped exception occured and only a portion of the zones were seen as active and thus disabling the remaining zones on the front end servers. We've disabled updates to ns1/2 till the issue can be examined. We are working to restore those zones to the front end servers and should be up soon.
- Today, 11:26 AM
DNS service has been restored on ns1/2.ev1servers.net
--------------------
Kevin Landreth
HOU- Lead Unix Administrator
This post has been edited 4 times, last edit by "Xenia" (Apr 12th 2007, 6:18pm)
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Option Explicit
Function GreatestSequence(Area As Range, MinMax As Integer) As Integer
Dim CurrentSequence, Result As Integer
Dim Cell As Range
If MinMax <> -1 And MinMax <> 1 Then
Error 1
Else
CurrentSequence = 0
Result = 0
For Each Cell In Area.Cells
If Sgn(Cell.Value) = MinMax Then
CurrentSequence = CurrentSequence + 1
Else
If Sgn(Cell.Value) <> 0 Then ' ignore break even only trades without counting
If CurrentSequence > Result Then Result = CurrentSequence
CurrentSequence = 0
End If
End If
Next Cell
If CurrentSequence > Result Then Result = CurrentSequence
GreatestSequence = Result
End If
End Function
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Option Explicit
Function GreatestSequence(Area As Range, MinMax As Integer) As Integer
Dim CurrentSequence, Result As Integer
Dim Cell As Range
If MinMax <> -1 And MinMax <> 1 Then
Error 1
Else
CurrentSequence = 0
Result = 0
For Each Cell In Area.Cells
If Sgn(Cell.Value) = MinMax Then
CurrentSequence = CurrentSequence + 1
Else
If CurrentSequence > Result Then Result = CurrentSequence
CurrentSequence = 0
End If
Next Cell
If CurrentSequence > Result Then Result = CurrentSequence
GreatestSequence = Result
End If
End Function
|
This post has been edited 1 times, last edit by "janson" (Mar 11th 2007, 6:31pm)
Forum Software: Burning Board® 3.1.6, developed by WoltLab® GmbH