| … | |
… | |
| 23 | readFile |
23 | readFile |
| 24 | formatDateTime |
24 | formatDateTime |
| 25 | parseDateTime |
25 | parseDateTime |
| 26 | writeLog |
26 | writeLog |
| 27 | writeTimingLogEntry |
27 | writeTimingLogEntry |
|
|
28 | list2hash |
|
|
29 | max |
| 28 | dbDecode |
30 | dbDecode |
| 29 | dbEncode |
31 | dbEncode |
| 30 | decodeAnswers |
32 | decodeAnswers |
| 31 | encodeAnswers |
33 | encodeAnswers |
| 32 | ref2string |
34 | ref2string |
| … | |
… | |
| 93 | sub writeTimingLogEntry($$$$) { |
95 | sub writeTimingLogEntry($$$$) { |
| 94 | my ($ce, $function, $details, $beginEnd) = @_; |
96 | my ($ce, $function, $details, $beginEnd) = @_; |
| 95 | return unless defined $ce->{webworkFiles}->{logs}->{timing}; |
97 | return unless defined $ce->{webworkFiles}->{logs}->{timing}; |
| 96 | $beginEnd = ($beginEnd eq "begin") ? ">" : ($beginEnd eq "end") ? "<" : "-"; |
98 | $beginEnd = ($beginEnd eq "begin") ? ">" : ($beginEnd eq "end") ? "<" : "-"; |
| 97 | writeLog($ce, "timing", "$$ ".time." $beginEnd $function [$details]"); |
99 | writeLog($ce, "timing", "$$ ".time." $beginEnd $function [$details]"); |
|
|
100 | } |
|
|
101 | |
|
|
102 | sub list2hash { |
|
|
103 | map {$_ => "0"} @_; |
|
|
104 | } |
|
|
105 | |
|
|
106 | sub max { |
|
|
107 | my $soFar; |
|
|
108 | foreach my $item (@_) { |
|
|
109 | $soFar = $item unless defined $soFar; |
|
|
110 | if ($item > $soFar) { |
|
|
111 | $soFar = $item; |
|
|
112 | } |
|
|
113 | } |
|
|
114 | return $soFar; |
| 98 | } |
115 | } |
| 99 | |
116 | |
| 100 | # ----- |
117 | # ----- |
| 101 | |
118 | |
| 102 | sub dbDecode($) { |
119 | sub dbDecode($) { |
Parent Directory
| 
Revision Log
| 
Patch