Revision 262

Date:
2010/01/31 16:44:56
Author:
dpavlin
Revision Log:
send Refresh: header
Files:

Legend:

 
Added
 
Removed
 
Modified
  • trunk/lib/Sack/Server.pm

     
    168 168 warn "ERROR: $@" if $@;
    169 169 }
    170 170
    171 print $send "HTTP/1.0 200 OK\r\nContent-Type: text/html\r\n\r\n";
    171 print $send "HTTP/1.0 200 OK\r\nContent-Type: text/html"
    172 , ( $param->{refresh} ? "\r\nRefresh: " . $param->{refresh} : '' )
    173 , "\r\n\r\n"
    174 ;
    172 175
    173 176 print $send qq|
    174 177