I'm sorry; the original post/responses were not showing up in Outlook
Express, and I thouught the post never went out. I have done some digging
on groups.google.c om and found it all.
***I am now offering to pay someone who can fix this.***
***contact me: tsides AT intelligentsyst emsconsulting SPOT com***
The file is not transferred via FTP. My mistake. I went looking for FTP
logs, and then remembered: it is simply copied from one server to another,
both of which are on the same domain. The file size is almost always <100Kb
(2,000 CSV records @ approx. 50 bytes per), so it takes less than a second
between file creation and the completion of the write. Processing the file
finishes in a matter of seconds.
The other server is an Interactive Voice Response server. Each record in
the file represents an inbound phone call that the IVR system expects. As
of 2AM, the IVR server must wait until nobody is on the phone giving it
data. At the first opportunity when nobody is on the line, it stops
answering the calls, cuts the file, sends it to me, and waits for my
outbound file in return. While most calls are less than 10 minutes long,
and calls are not likely to be received at 2AM anyway, it never takes long
for the process to kick off. So, if the file hasn't arrived within the
hour, it isn't coming.
In 2.5 years, the file has failed to arrived only once.
The time interval is always updated (AutoReset = False). This way, the
inexperienced operators can change the expected arrival time in the config
file, but they don't have to know how to reboot the service to have it take
effect. Also, the timer expires at the interval, is shut off, and then is
turned back on after the new calculation.
I'll check the file sizes. Even though the inbound file is usually ready
for processing less than a second after it is recognized by
System.IO.FileS ystemWatcher, maybe the 20 second wait time is too short.
There'd be no harm in increasing that. However, I suspect the file on this
day was not unusual. Unfortunately, one of the things the process does is
delete files that are older than a month, to make sure the hard drive
doesn't fill up, so I can only back to the most recent one.
There is no "millisecon ds since startup" variable that is overloading.
I like the FileSystemWatch er because it enables the service to process a
file no matter when it comes. Also, this allows the operators to drop an
"empty" file out there and get an output file. If , for example, they ever
need to reboot the IVR server and start over with a new set of records
(expected calls). Also, it mamkes the whole thing somewhat foolproof if
someone changes the daily export time from the IVR server, but forgets to
change it on my end.
I suppose I could go to a Windows Scheduler process, but I'd have to
redesign the thing; I'd have to start checking the file system for the
existence of the inbound AND outbound files, I guess. Or I could write
"LastExecut ed" time to the database. I'd also have to move the
"UpdateFromConf iguration" process to the FileSystemWatch er, because ther are
other things in there that operators could change during the day, such as
the e-mail address to which errors and warnings are sent. (Regularly, not
all records in the inbound process can be loaded into the database, which is
not entirely unexepected, so they're written into an e-mail which goes out
as a warning for someone to verify.)
But I'd like to see if I can find out what's wrong with this code, first.
Again: ***I will pay someone to fix this***
More code, if it helps:
Private Sub DailyTimer_Elap sed(ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles DailyTimer.Elap sed
Dim MyLog As New EventLog
MyLog.Source = "MyCompany"
DailyTimer.Enab led = False
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("The daily timer has expired: performing batch
functions and checking time of last execution.",
EventLogEntryTy pe.Information)
End If
Try
'clean the fieldlink output folder (defined by
OutputFolder.Te xt, which is populated from the config file automatically)
PurgeDirectory( FieldLinkOutput Folder.Text,
CInt(FieldLinkO utputDaysToKeep .Text))
'clean the out folder (defined by PathOut.Text, which is
populated from the config file automatically)
PurgeDirectory( PathOut.Text, CInt(OutDaysToK eep.Text))
'clean the in folder (defined by FileSystemWatch er1.Path, which
is populated from the config file sautomatically from PathIn)
PurgeDirectory( FileSystemWatch er1.Path, CInt(InDaysToKe ep.Text))
Catch ex As Exception
MyLog.WriteEntr y("The following problem occured while purging
directories: " & ex.Message, EventLogEntryTy pe.Warning)
End Try
Try
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("Executing the SetExpectedMerc handisers
stored procedure to update the Visit table.", EventLogEntryTy pe.Information)
End If
Dim retVal As Int32 =
VisitManager.Se tExpectedMercha ndisers(Connect ionString.Text, Nothing,
DateTime.Now.Da te, "IVRImport" )
Catch ex As Exception
MyLog.WriteEntr y("The following problem occured while updating
Expected Merchandisers: " & ex.Message, EventLogEntryTy pe.Warning)
End Try
Try
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("Executing the
ReleaseValidNon ReportedVisits stored procedure to update the Visit table.",
EventLogEntryTy pe.Information)
End If
VisitManager.Re leaseValidNonRe portedVisits(Co nnectionString. Text,
"AUTO", "IVRImport" )
Catch ex As Exception
MyLog.WriteEntr y("The following problem occured while releasing
valid non-reported visits: " & ex.Message, EventLogEntryTy pe.Warning)
End Try
'if the last executed date/time is not within the last 1.25 hours,
log an error and send an e-mail
If LastExecuted < Date.Now.AddHou rs(-1.25) Then
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("Sending an e-mail because no Import file
was processed within the last 75 minutes.", EventLogEntryTy pe.Information)
End If
Dim ErrorMessage = String.Format(" As of {0:hh:mm} the IVR
Import/Export Launch service has still not detected a successful
Import/Export (which was expected to occur at about {1}). This may be
because the process failed (see previous Event Log entries) or because
{2}\{3} never arrived. Investigation into the problem is recommended.
Note: the IVR Import/Export will always process the expected file no matter
when it arrives.", DateTime.Now, Time.Text, FileSystemWatch er1.Path,
FileSystemWatch er1.Filter)
MyLog.WriteEntr y(ErrorMessage, EventLogEntryTy pe.Error)
If ToAddress.Text. ToLower <> "none" Then
SmtpMail.SmtpSe rver = "localhost"
SmtpMail.Send(F romAddress.Text , ToAddress.Text, "ERROR
NOTIFICATION: IVR Import did not occur", ErrorMessage)
End If
Else
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("Determined that an Import file was
processed within the last 75 minutes; no e-mail was sent.",
EventLogEntryTy pe.Information)
End If
End If
UpdateFromConfi guration()
End Sub
Private Sub UpdateFromConfi guration()
Dim MyLog As New EventLog
MyLog.Source = "MyCompany"
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("Updating from configuration." ,
EventLogEntryTy pe.Information)
End If
CType(Me.FileSy stemWatcher1,
System.Componen tModel.ISupport Initialize).Beg inInit()
CType(Me.DailyT imer,
System.Componen tModel.ISupport Initialize).Beg inInit()
Try
'DSR - 8/14/2003
'Use .NET AppSettingsRead er instead of parsing XML
Dim AppSettings As AppSettingsRead er = New AppSettingsRead er
Me.FileSystemWa tcher1.Filter =
CType(AppSettin gs.GetValue("Fi leNameIn", GetType(System. String)), String)
Me.FileSystemWa tcher1.Path =
CType(AppSettin gs.GetValue("Pa thIn", GetType(System. String)), String)
Me.Time.Text = CType(AppSettin gs.GetValue("Ti me",
GetType(System. String)), String)
Me.PathOut.Text = CType(AppSettin gs.GetValue("Pa thOut",
GetType(System. String)), String)
Me.FileNameOut. Text = CType(AppSettin gs.GetValue("Fi leNameOut",
GetType(System. String)), String)
Me.OutDaysToKee p.Text =
CType(AppSettin gs.GetValue("Ou tDaysToKeep", GetType(System. String)), String)
Me.InDaysToKeep .Text =
CType(AppSettin gs.GetValue("In DaysToKeep", GetType(System. String)), String)
Me.FieldLinkOut putFolder.Text =
CType(AppSettin gs.GetValue("Fi eldLinkOutputFo lder", GetType(System. String)),
String)
Me.FieldLinkOut putDaysToKeep.T ext =
CType(AppSettin gs.GetValue("Fi eldLinkOutputDa ysToKeep",
GetType(System. String)), String)
Me.ToAddress.Te xt = CType(AppSettin gs.GetValue("To Address",
GetType(System. String)), String)
Me.FromAddress. Text = CType(AppSettin gs.GetValue("Fr omAddress",
GetType(System. String)), String)
Me.DefaultExten sion.Text =
CType(AppSettin gs.GetValue("Ma rketCoordinator DefaultExtensio n",
GetType(System. String)), String)
Me.ConnectionSt ring.Text =
CType(AppSettin gs.GetValue("Co nnectionString" , GetType(System. String)),
String)
Catch ex As Exception
MyLog.WriteEntr y("Unable to load configuration settings: " &
ex.Message, EventLogEntryTy pe.Warning)
End Try
CType(Me.FileSy stemWatcher1,
System.Componen tModel.ISupport Initialize).End Init()
CType(Me.DailyT imer,
System.Componen tModel.ISupport Initialize).End Init()
DailyTimer.Inte rval = ProperTimerInte rval()
DailyTimer.Enab led = True
End Sub
"Stephany Young" <noone@localhos t> wrote in message
news:u%******** *******@tk2msft ngp13.phx.gbl.. .
Did any of the responses posted in response to your original post on this
subject 5 days ago help?
"Trevor" <tsides @ intelligentsyst emsconsulting.c om> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. .. Argh! This problem is driving me nuts! Can you help?
In November of 2003, I installed a web service on Windows Server 2003
built in VB.NET for v1.1.4322 of the framework. It contains a timer
(System.Timers. Timer) which has an interval of 24 hours. Actually, it
reads a time like 2AM out of the config file, and calculates the time
between the start of the service to 2AM, and sets the timer. When the
timer expires, it re-reads the configuration file (in case it has
changed) and re-sets the timer (which usually ends up being 24 hours).
When the timer expires, it compares the current system time against a
global variable (Private LastExecuted As Date). LastExecuted is set as
the current time when a File Watcher (System.IO.File SystemWatcher) is
tickled. So, when the timer expires at 2AM, it makes a database update,
then checks to see that LastExecuted is not more than an hour ago,
otherwise it sends an e-mail (the file we expected to receive today
didn't arrive).
After running continuously since November 2003, the timer suddenly
started setting itself to sub-second intervals in May, 2005. When people
came to work in the morning to 5,000+ e-mail messages, I got the call. I
rebooted the service, and all was fine until Dec. 2005, when it happened
again. Now, in Feb. 2006, it has happened again, and the only way to stop
the sub-second time intervals was to reboot the whole server.
Interstingly, even though the timer expired several times per second and
sending an e-mail every time, it wasn't re-reading the configuration file
(the next subroutine call after sending the e-mails) and recognizing
changes to the values therein. A week later, though, the timer now has
some unknown interval (because it's not expiring at all, or, the elapsed
logic - database update, e-mails and configuration file read - are not
happening).
This server used to be rebooted on a daily basis, but that stopped
sometime in 2004 or 2005. I don't know if that's a clue to the problem.
I use the Event Log a lot. Should I be releasing the memory reserved by
the MyLog variable? Otherwise, I have no idea what might be wrong with
the code. Please help!
In case this helps - the code which sets the interval of the timer:
Private Function ProperTimerInte rval() As Double
Dim MyLog As New EventLog
MyLog.Source = "MyCompany"
Dim NextCheckTime As Date
If CInt(Time.Text. Substring(0, 2)) < CInt(Date.Now.H our) Then
NextCheckTime = Date.Parse(Date .Now.AddDays(1) .Date & " " &
Time.Text)
Else
NextCheckTime = Date.Parse(Date .Now.Date & " " & Time.Text)
End If
NextCheckTime = NextCheckTime.A ddHours(1)
Dim IntervalToRetur n As Double =
NextCheckTime.S ubtract(Date.No w).TotalMillise conds
If Debug.Text.ToLo wer = "true" Then
MyLog.WriteEntr y("The daily timer is set to expire in " &
IntervalToRetur n & " milliseconds, which is " & IntervalToRetur n / 1000 /
60 / 60 & " hours.", EventLogEntryTy pe.Information)
End If
Return IntervalToRetur n
End Function
