/[Sack]/trunk/lib/Sack/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Sack/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 244 by dpavlin, Thu Nov 26 15:22:12 2009 UTC revision 245 by dpavlin, Thu Nov 26 19:02:01 2009 UTC
# Line 142  while (1) { Line 142  while (1) {
142                                          return 1;                                          return 1;
143                                  } elsif ( $method =~ m{^/gnuplot} ) {                                  } elsif ( $method =~ m{^/gnuplot} ) {
144                                          eval {                                          eval {
145                                                  my $path = Sack::Server::Gnuplot::date( Sack::Merge->out );                                                  my $path = Sack::Server::Gnuplot::date( Sack::Merge->out, $param );
146                                                  if ( -e $path ) {                                                  if ( -e $path ) {
147                                                          print $send "HTTP/1.0 200 OK\r\nContent-Type: image/png\r\n\r\n";                                                          print $send "HTTP/1.0 200 OK\r\nContent-Type: image/png\r\n\r\n";
148                                                          open(my $fh, '<', $path) || die $path;                                                          open(my $fh, '<', $path) || die $path;
# Line 151  while (1) { Line 151  while (1) {
151                                                                  print $send $b;                                                                  print $send $b;
152                                                          }                                                          }
153                                                          return 1;                                                          return 1;
154                                                    } else {
155                                                            print $send "HTTP/1.0 404 no graph\r\n\r\n";
156                                                            return 1;
157                                                  }                                                  }
158                                          };                                          };
159                                          warn "ERROR: $@" if $@;                                          warn "ERROR: $@" if $@;
Legend:
Removed from v.244  
changed lines
  Added in v.245
  ViewVC Help
Powered by ViewVC 1.1.26