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
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
// $Id: profile.pike,v 1.3 1998/06/01 13:34:41 grubba Exp $ 
#ifndef PROFILE 
constant action_disabled = 1; 
#else /* PROFILE */ 
inherit "wizard"; 
 
constant name = "Maintenance//Profiling information..."; 
constant doc = "Show average access time for all pages accessed on your server."; 
constant wizard_name = "Profiling information"; 
 
mapping preprocess(mapping in) 
{ 
  // remove final part after '/' if any. 
  mapping q = ([]); 
  foreach(indices(in), string i) 
  { 
    string oi = i; 
    i = reverse(i); 
    sscanf(i, "%*s/%s", i); 
    i  = reverse(i); 
    if(!strlen(i)) i = "/"; 
    if(!q[i]) 
      q[i]=copy_value(in[oi]); 
    else  
    { 
      q[i][0] += in[oi][0]; 
      q[i][1] += in[oi][1]; 
      if(q[i][2] < in[oi][2]) 
        q[i][2] = in[oi][2]; 
    } 
  } 
  return q; 
} 
 
 
string page_0(object id, mixed f, int|void detail) 
{ 
  string res = ""; 
  foreach(roxen->configurations, object c) 
  { 
    res += "<h1>"+c->name+"</h1><p>"; 
     
    mapping q = detail?c->profile_map:preprocess(c->profile_map); 
    array ind = indices(q); 
    array val = values(q); 
    array rows = ({}); 
 
    sort(column(val,2), val, ind); 
    for(int i = sizeof(val)-1; i>=0; i--) 
      rows += ({ ({ ind[i], (string)val[i][0],  
                    sprintf("%.2f",val[i][1]),  
                    sprintf("%.3f",val[i][1]/val[i][0]), 
                    sprintf("%.3f",val[i][2]),  
      }) }); 
 
    res += html_table( ({"Page", "Accesses", "Total time", "Avg. time", "Max time" }), rows ); 
  } 
  return res+"<p><i>Press 'next' for detailed information</i>"; 
} 
 
string page_1(object id) 
{ 
  return page_0(id,0,1); 
} 
 
string handle(object id) 
{ 
  return wizard_for(id,0); 
} 
#endif /* PROFILE */