began adding streaming support for view method

This commit is contained in:
JT Smith 2006-01-30 21:26:22 +00:00
parent 80fc76691f
commit 46fa7e78e7
15 changed files with 240 additions and 188 deletions

View file

@ -85,6 +85,7 @@ Returns true if the user meets the condition to see debugging information and de
sub canShowDebug {
my $self = shift;
return 0 unless ($self->session->setting->get("showDebug"));
return 0 unless ($self->session->http->getMimeType eq "text/html");
return 1 if ($self->session->setting->get("debugIp") eq "");
my @ips = split(" ",$self->session->setting->get("debugIp"));
my $ok = 0;