Bestanden

   ...
   ...
    i = 1
lockfile:
    OPEN $path + "index.lck" FOR OUTPUT AS #1
    IF ERRCLEAR THEN
        IF i>5 THEN
            PRINT #htmout, "<font color=red>Geen toegang tot de bestanden.<p>
            PRINT #htmout, "<a href='javascript:history.go(0)'>Probeer opnieuw</a>.</font></body></html>
            CLOSE
            EXIT FUNCTION
        END IF
        SLEEP i * 100
        INCR i
        GOTO lockfile
    END IF

Hier werk ik met één enkele lockfile (semaphore) dat ik probeer te openen voor het programma gegevens gaat wegschrijven. Van zodra ik de file kan openen, kan ik in alle bestanden schrijven omdat andere processen niet verder geraken. Dit is een veiligheid om je te verzekeren dat je toegang zal hebben tot alle files en dat je niet eindigd met een gebroken database, dat wil zeggen een deel van de ebstanden dat bijgewerkt is, en de andere niet (een nachtmerrie, dat kan ik je verzekeren, als je achteraf de database opnieuw consistent moet maken).

Het versturen van een mail vertraagd het gehele proces.

Synchroon een mailbericht sturen vertraagt je programma. Een mail sturen kan gemakkelijk 5 seconden duren; tijdens al die tijd blijft je programma 'hangen' en dit is zeker niet goed.

Soms moet je je aanmelden bij de mailserver

daarvoor moet je pop before smtp of CRAM-MD5 gebruiken. Dit maakt het versturen van mail nodeloos ingewikkeld.
Als een gebruiker meermalen op de verstuur-knop drukt, dan wordt er ieder keer een mailbericht verstuurd, en sommige providers plaatsen een limiet op het aantal mails dat je per uur kan versturen.

Sommige smtp servers gebruiken ongestandardiseerde headers.

De mailserver geeft bijvoorbeeld 2 regels tekst als antwoord, terwijl je programma één regel verwachtte en dus niet meer in de pas loopt.

Wat als de mailserver niet beschikbaar is?.

Het kan gebeuren dat de mailserver dat je wilt gebruiken niet beschikbaar is. Hoe moet je deze situatie oplossen?

Mail versturen met een asynchrone SHELL.

Maak je mailbericht op en roep een ander programma aan. Dit tweede programma dat asynchroon moet draaien zal het opgemaakte mailbericht versturen. Het hoofdprogramma kan dan normaal afsluiten, terwijl het mailprogramma het bericht zal proberen te versturen.

Gebruik een lokale mailserver.

Het voordeel daarvan is dat de server altijd beschikbaar is. Een mailserver zal rekening houden met alle mogelijke problemen en eventueel het bericht later versturen als de ontvangende server offline is. Een eigen lokale mailserver kan je dan ook verder gebruiken voor mailings en dergelijke. De configuratie van een mailserver is niet eenvoudig, zeker als je het onderste uit de kan wilt halen.

Mail drop funktie van de locale mail server.

Een mailserver heeft altijd een 'mail drop' directory. Bestanden die je in deze directory plaatst worden automatisch verstuurd (als ze aan de juiste formatering voldoen). Mail drop is sneller dan een smtp sessie voeren met de mailserver, zelfs al is die lokaal.

Een eenvoudige timer

DECLARE FUNCTION GetTimer LIB "WINMM.DLL" ALIAS "timeGetTime" () AS DWORD ' de timer-funktie zit in de windows DLL genaamd "WINMM.DLL" waar het "timeGetTime" genoemd wordt DIM starttime AS DWORD starttime = GetTimer ... ' Verwerking komt hier ... PRINT #1, "Total processing time: " GetTimer - starttime

Nog een paar opmerkingen

• Op een NT systeem (windows 2000, 2003 en XP) zal je programma normaal draaien als LOCAL SYSTEM zonder toegang tot netwerkresources. Dit kan voor problemen zorgen als je bijvoorbeeld iets wilt uitprinten op een netwerkprinter. Voor de webserver maak je best een nieuwe gebruiker aan en in de windows services geef je aan dat de service met de rechten van de nieuw aangemaakte gebruiker moet werken.

• Een bestand over het netwerk openen is vreselijk traag:

       OPEN "\\server1\public\file1.txt" FOR OUTPUT AS #1
  

  Dit is beter: maak het bestand lokaal aan en copieer het nadien naar zijn uiteindelijke lokatie:

      OPEN "file1.txt" FOR OUTPUT AS #1
      ...
      CLOSE #1
      FILECOPY "file1.txt", "\\server1\public\file1.txt"