Re: [Active4d-dev] 3.01b7 - 4D get's to busy & stops serving

[Peter Schumacher]

At 12:54 Uhr +0000 16.07.2004, Aparajita Fishman wrote:
After disabling the trigger, it  works 1 hour longer, then it hangs 
again (4D is busy, using about 80% of the CPU).

BTW, these are all static pages, only the logfile display is 
dynamic. The websites worked unchanged for over 2 years flawless 
with WebStar V.
Then there must be something in the logfile display that is causing 
it. Maybe you could share the code in those pages.
Just one page - if you need all the stuff (4D db source, all pages) 
let me know.

<h3>Current date: <%=current date%> and time <%=current time%></h3>
<p>
  <%
c_longint($i)
c_boolean($Color)
c_text($TimeFrame)
$TimeFrame:=""
$Color:=false
array text($aSites;0)
all records([WebLog])
distinct values([WebLog]Domain;$aSites)
sort array($aSites;>)
$Site:=get form variable("Sites")
if(($Site="Select a site@")|($Site="All sites"))
        $Site:=""
end if
case of
        :(get form variable("Today")#"")
                $TimeFrame:="Today "+string(current date)
                query([WebLog];[WebLog]LogDate=current date)
        :(get form variable("Last7days")#"")
                $TimeFrame:="Last 7 days"
                query([WebLog];[WebLog]LogDate>=(current date-7))
        :(get form variable("Last30days")#"")
                $TimeFrame:="Last 30 days"
                query([WebLog];[WebLog]LogDate>=(current date-30))
        :(get form variable("All")#"")
                $TimeFrame:="All"
                query([WebLog];[WebLog]LogDate>=(current date-30))
        else
                $TimeFrame:="Today "+string(current date)
                query([WebLog];[WebLog]LogDate=current date)
end case
if($Site#"")
        query selection([WebLog];[WebLog]domain=$Site)
end if
order by([WebLog];[WebLog]LogDate;<;[WebLog]Logtime;<)
%>
</p>
<form name="form1" method="post" action="/4dcgi/weblog.html">
<strong><%=records in selection([WebLog])%></strong> Hits
- time frame: <strong><%=$TimeFrame%></strong>&nbsp;
<select name="Sites">
  <option <%=choose($Site="";"selected";"")%>><%=choose($Site#"";"All 
sites";"Select a site...")%></option>
  <%
  for($i;1;size of array($aSites))
  %>
  <option 
<%=choose($Site=$aSites{$i};"selected";"")%>><%=$aSites{$i}%></option>
  <%
  end for
  %>
</select>

<table width="75%"  border="0">
  <tr align="center" valign="middle" bgcolor="#FFFF66">
    <td><input name="Today" type="submit" id="Today" value="Today"></td>
    <td><input name="Last7days" type="submit" id="Last7days" 
value="Last 7 days"></td>
    <td><input name="Last30days" type="submit" id="Last30days" 
value="Last 30 days"></td>
    <td><input name="All" type="submit" id="All" value="All">
    (<%=records in table([WebLog])%>) </td>
  </tr>
  <tr align="center" valign="middle" bgcolor="#00CCFF">
    <td><strong>Date</strong></td>
    <td><strong>Time</strong></td>
    <td><strong>Site</strong></td>
    <td><strong>URL</strong></td>
  </tr>
  <% for($i;1;records in selection([WebLog])) %>
  <tr bgcolor="<%=choose($Color;"#FFFF00";"#FFFFFF")%>">
    <td><%write([WebLog]LogDate)%></td>
    <td><%write([WebLog]LogTime)%></td>
    <td><%write([WebLog]Domain)%></td>
    <td><%write([WebLog]MasterURL)%></td>
  </tr>
  <% next record([WebLog])
  if($Color)
  $Color:=false
  else
  $Color:=true
  end if
  end for %>
</table>
</form>

--
Greetings,
[4D-Consulting.com]eK, Wiesbaden
Peter Schumacher
--------------------------------------------------------
Web: http://www.4D-Consulting.com/
AIM/iChat: PeterInWiesbaden
0800-4D-Infos / 0800-43.46.367  -  Fax: 0800-43.46.637
Intl +49-611-9406.850        -  Intl: +49-611-9406.744
_______________________________________________
Active4D-dev mailing list
[EMAIL PROTECTED]
http://mailman.aparajitaworld.com/mailman/listinfo/active4d-dev
Archives: http://mailman.aparajitaworld.com/archive/active4d-dev/