ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/Coro/myhttpd/httpd.pl
(Generate patch)

Comparing cvsroot/Coro/myhttpd/httpd.pl (file contents):
Revision 1.91 by root, Thu Feb 4 22:35:47 2010 UTC vs.
Revision 1.92 by root, Tue Mar 9 16:46:23 2010 UTC

… …
52} 52}
53 53
54sub slog { 54sub slog {
55 my $level = shift; 55 my $level = shift;
56 my $format = shift; 56 my $format = shift;
57
58 $format = sprintf $format, @_ if @_;
59
57 my $NOW = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $::NOW); 60 my $NOW = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $::NOW);
58 printf "$NOW: $format\n", @_; 61 print "$NOW: $format\n";
59 printf $errorlog "$NOW: $format\n", @_ if $errorlog; 62 printf $errorlog "$NOW: $format\n", @_ if $errorlog;
60} 63}
61 64
62our $connections = new Coro::Semaphore $::MAX_CONNECTS || 250; 65our $connections = new Coro::Semaphore $::MAX_CONNECTS || 250;
63our $httpevent = new Coro::Signal; 66our $httpevent = new Coro::Signal;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines