version 1.106, 2011/03/14 16:10:21
|
version 1.108, 2011/06/06 16:08:45
|
Line 247 sub init_math_support {
|
Line 247 sub init_math_support {
|
sub mimetex_valign { |
sub mimetex_valign { |
my ($esc_texstring)=@_; |
my ($esc_texstring)=@_; |
my $valign = 0; |
my $valign = 0; |
my $lonhost = $Apache::lonnet::perlvar{'lonHostID'}; |
|
my $hostname = &Apache::lonnet::hostname($lonhost); |
|
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 => 'localhost', |
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; |