version 1.106, 2011/03/14 16:10:21
|
version 1.107, 2011/05/27 18:34:07
|
Line 252 sub mimetex_valign {
|
Line 252 sub mimetex_valign {
|
my $path = '/cgi-bin/mimetex.cgi?'.$esc_texstring; |
my $path = '/cgi-bin/mimetex.cgi?'.$esc_texstring; |
my $socket; |
my $socket; |
&Apache::lonxml::start_alarm(); |
&Apache::lonxml::start_alarm(); |
my $socket = IO::Socket::INET->new(PeerAddr => $hostname, |
$socket = IO::Socket::INET->new(PeerAddr => $hostname, |
PeerPort => 'http(80)', |
PeerPort => 'http(80)', |
Proto => 'tcp'); |
Proto => 'tcp'); |
if ($socket) { |
if ($socket) { |
my $headreq = "HEAD $path HTTP/1.0\r\n\r\n"; |
my $headreq = "HEAD $path HTTP/1.0\r\n\r\n"; |
print $socket $headreq; |
print $socket $headreq; |