|
version 1.98.2.1, 2011/02/10 20:07:00
|
version 1.112.2.1, 2012/05/10 19:19:30
|
|
Line 50 use LONCAPA;
|
Line 50 use LONCAPA;
|
| use URI::Escape; |
use URI::Escape; |
| use IO::Socket::INET; |
use IO::Socket::INET; |
| |
|
| |
|
| |
# |
| |
# Table of substitutions to unicode characters. |
| |
# |
| |
my %unicode_translations = ( |
| |
'\rightleftharpoons' => 0x21cc, |
| |
|
| |
# Brackets - unicode is commented out with pure 8-bit ascii ugliness while we need it. |
| |
|
| |
# '' => 0x23a1, |
| |
# '' => 0x23a2, |
| |
# '' => 0x23a3, # when unicode catches up with browsers |
| |
# '' => 0x23a4, # use these instead of the cheesey brackets below |
| |
# '' => 0x23a5, |
| |
# '' => 0x23a6 |
| |
'' => 0x5b, |
| |
'' => 0x5b, # '[' |
| |
'' => 0x5b, |
| |
'' => 0x5d, # ']' |
| |
'' => 0x5d, |
| |
'' => 0x5d, |
| |
|
| |
# Parens..again the unicode is commented out with the 8-bit ascii ugliness |
| |
# turned on until browsers catch up with the unicode world. |
| |
|
| |
# '' => 0x239b, |
| |
# '' => 0x239c, |
| |
# '' => 0x239d, |
| |
# '' => 0x239e, |
| |
# '' => 0x239f, |
| |
# '' => 0x23a0 |
| |
|
| |
'' => 0x28, |
| |
'' => 0x28, # '(' |
| |
'' => 0x28, |
| |
|
| |
'' => 0x29, |
| |
'' => 0x29, # '(' |
| |
'' => 0x29 |
| |
|
| |
|
| |
); |
| |
|
| |
## |
| |
# Utility to convert elements of a string to unicode: |
| |
# |
| |
# @param input - Input string |
| |
# @param pattern - Pattern to convert |
| |
# @param unicode - Unicode to substitute for pattern. |
| |
# |
| |
# @return string - resulting string. |
| |
# |
| |
sub unicode_subst { |
| |
my ($input, $pattern, $unicode) = @_; |
| |
|
| |
my $char = pack('U', $unicode); |
| |
|
| |
$input =~ s/$pattern/$char/g; |
| |
|
| |
return $input; |
| |
} |
| |
|
| # ====================================================================== Header |
# ====================================================================== Header |
| |
|
| sub init_tth { |
sub init_tth { |
|
Line 106 sub convert_real {
|
Line 168 sub convert_real {
|
| $xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s; |
$xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s; |
| $xmlstring=~s/^\s*//; |
$xmlstring=~s/^\s*//; |
| $xmlstring=~s/\s*$//; |
$xmlstring=~s/\s*$//; |
| |
&Apache::lonxml::end_alarm(); |
| |
|
| # |
# |
| # \rightleftharpoons is not converted by tth but maps |
# Several strings produced by tth require |
| # reasonably well to ⇔. If we get many more of these, |
# transliteration -> unicode equivalents to render reliably |
| # we're going to need to have a translation sub. |
# in browsers. %unicode_translations is a table of |
| # |
# string->substitution which we now apply: |
| my $lrharpoon = pack("U", 0x21cc); |
|
| $xmlstring=~s/\\rightleftharpoons/$lrharpoon/g; |
foreach my $pattern (keys(%unicode_translations)) { |
| |
my $unicode = $unicode_translations{$pattern}; |
| |
$xmlstring = &unicode_subst($xmlstring, $pattern, $unicode); |
| |
} |
| |
|
| |
|
| &Apache::lonxml::end_alarm(); |
|
| return ($xmlstring,$errorstring); |
return ($xmlstring,$errorstring); |
| } |
} |
| |
|
|
Line 165 sub clean_out_math_mode {
|
Line 232 sub clean_out_math_mode {
|
| |
|
| sub displaystyle { |
sub displaystyle { |
| my ($texstring)=@_; |
my ($texstring)=@_; |
| #has a $$ or \[ or \displaystyle in it, guessinng it's display mode |
#has a $$ or \[ or \displaystyle or eqnarray in it, guessinng it's display mode |
| if ($$texstring=~/[^\\]\$\$/ || |
if ($$texstring=~/[^\\]\$\$/ || |
| $$texstring=~/\\\[/ || |
$$texstring=~/\\\[/ || |
| $$texstring=~/\\displaystyle/) { return 1; } |
$$texstring=~/\\displaystyle/ || |
| |
$$texstring=~/eqnarray/ |
| |
) { return 1; } |
| return 0; |
return 0; |
| } |
} |
| |
|
|
Line 245 sub init_math_support {
|
Line 314 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; |
|
Line 289 sub mimetex_converted {
|
Line 356 sub mimetex_converted {
|
| my $valign = &mimetex_valign($esc_texstring); |
my $valign = &mimetex_valign($esc_texstring); |
| my $result='<img src="/cgi-bin/mimetex.cgi?'.$esc_texstring.'" style="vertical-align:'.$valign.'px" alt="'.$alt_string.'" />'; |
my $result='<img src="/cgi-bin/mimetex.cgi?'.$esc_texstring.'" style="vertical-align:'.$valign.'px" alt="'.$alt_string.'" />'; |
| if ($displaystyle) { |
if ($displaystyle) { |
| $result='<center>'.$result.'</center>'; |
$result='<div style="text-align:center">'.$result.'</div>'; |
| } |
} |
| return $result; |
return $result; |
| } |
} |
|
Line 313 sub converted {
|
Line 380 sub converted {
|
| |
|
| sub to_convert { |
sub to_convert { |
| my ($string) = @_; |
my ($string) = @_; |
| |
&init_tth(); |
| $string=~s/\<br\s*\/?\>/ /gs; |
$string=~s/\<br\s*\/?\>/ /gs; |
| # $string=~s/\s/ /gs; |
# $string=~s/\s/ /gs; |
| $string=&HTML::Entities::decode($string); |
$string=&HTML::Entities::decode($string); |
|
Line 321 sub to_convert {
|
Line 389 sub to_convert {
|
| |
|
| sub smiley { |
sub smiley { |
| my $expression=shift; |
my $expression=shift; |
| if ($env{'browser.imagesuppress'} eq 'on') { return $expression; } |
my %smileys=( |
| my %smileys=('\:\-\)' => 'smiley', |
'\:\-*\)' => 'face-smile.png', |
| '8\-\)' => 'coolsmile', |
'8\-\)' => 'face-cool.png', |
| '8\-(I|\|)' => 'coolindiff', |
'8\-(I|\|)' => 'face-glasses.png', |
| ':\-(I|\|)' => 'neutral', |
'\:\-(I|\|)' => 'face-plain.png', |
| '\:\-(o|O|\(\))' => 'shocked', |
'\:\-(o|O|\(\))' => 'face-surprise.png', |
| ':\-\(' => 'frowny', |
':\-\(' => 'face-sad.png', |
| '\;\-\)' => 'wink', |
'\;\-\)' => 'face-wink.png', |
| '\:\-P' => 'baeh', |
'\:\-(P|p)' => 'face-raspberry.png', |
| '\:\-(\\\|\\/)' => 'hrrm', |
'\:\-(\\\|\\/)' => 'face-uncertain.png', |
| '\:\-D' => 'bigsmile', |
'\:\-D' => 'face-smile-big.png', |
| '\:\-C' => 'angry', |
'\:\-(C|\@)' => 'face-angry.png', |
| '\:(\'|\`)\-\(' => 'cry', |
'\:(\'|\`)\-*\(' => 'face-crying.png', |
| '\:\-(X|\#)' => 'lipsrsealed', |
'\:\-(X|x|\#)' => 'face-quiet.png', |
| '\:\-S' => 'huh'); |
'\:\-(s|S)' => 'face-uncertain.png', |
| |
'\:\-\$' => 'face-embarrassed.png', |
| |
'\:\-\*' => 'face-kiss.png', |
| |
'\+O\(' => 'face-sick.png', |
| |
'(\<\;3|\(heart\))' => 'heart.png', |
| |
'\(rose\)' => 'rose.png', |
| |
'\(pizza\)' => 'food-pizza.png', |
| |
'\(cake\)' => 'food-cake.png', |
| |
'\(ninja\)' => 'face-ninja.png', |
| |
'\(pirate\)' => 'face-pirate.png', |
| |
'\((agree|yes)\)' => 'opinion-agree.png', |
| |
'\((disagree|nay)\)' => 'opinion-disagree.png', |
| |
'(o|O)\-\)' => 'face-angel.png', |
| |
); |
| my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; |
my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; |
| foreach my $smiley (keys(%smileys)) { |
foreach my $smiley (keys(%smileys)) { |
| $expression=~s/$smiley/\<img src="$iconpath\/$smileys{$smiley}.gif" \/\>/gs; |
$expression=~s/$smiley/\<img src="$iconpath\/$smileys{$smiley}" \/\>/gs; |
| } |
} |
| return $expression; |
return $expression; |
| } |
} |
|
Line 346 sub smiley {
|
Line 427 sub smiley {
|
| sub msgtexconverted { |
sub msgtexconverted { |
| my ($message,$email) = @_; |
my ($message,$email) = @_; |
| $errorstring=''; |
$errorstring=''; |
| &init_tth(); |
|
| my $outmessage=''; |
my $outmessage=''; |
| my $tex=0; |
my $tex=0; |
| foreach my $fragment (split(/(?:\<\;|\<)\/*m\s*(?:\>\;|\>)/i,$message)) { |
foreach my $fragment (split(/(?:\<\;|\<)\/*m\s*(?:\>\;|\>)/i,$message)) { |
|
Line 367 sub msgtexconverted {
|
Line 447 sub msgtexconverted {
|
| foreach my $fragment (split(/(?:\<\;|\<)\/*algebra\s*(?:\>\;|\>)/i, |
foreach my $fragment (split(/(?:\<\;|\<)\/*algebra\s*(?:\>\;|\>)/i, |
| $message)) { |
$message)) { |
| if ($tex) { |
if ($tex) { |
| |
my $algebra = &algebra($fragment, 'web', undef, undef, undef, undef, 'tth'); |
| if ($email) { |
if ($email) { |
| $outmessage.='</pre><tt>'.&algebra($fragment,'web').'</tt><pre>'; |
$outmessage.='</pre><tt>'.$algebra.'</tt><pre>'; |
| $tex=0; |
$tex=0; |
| } else { |
} else { |
| $outmessage.=&algebra($fragment,'web'); |
$outmessage.=$algebra; |
| $tex=0; |
$tex=0; |
| } |
} |
| } else { |
} else { |
| $outmessage.=$fragment; |
$outmessage.=$fragment; |
| $tex=1; |
$tex=1; |
| } |
} |
| } |
} |
|
Line 388 sub msgtexconverted {
|
Line 469 sub msgtexconverted {
|
| |
|
| sub algebra { |
sub algebra { |
| use AlgParser; |
use AlgParser; |
| |
my ($string,$target,$style,$parstack,$safeeval,$tth)=@_; |
| my ($string,$target,$style,$parstack,$safeeval)=@_; |
|
| my $parser = new AlgParserWithImplicitExpand; |
my $parser = new AlgParserWithImplicitExpand; |
| |
if ($tth eq 'tth') {&init_tth();} |
| $string=&prepare_algebra($string); |
$string=&prepare_algebra($string); |
| my $ret = $parser->parse($string); |
my $ret = $parser->parse($string); |
| my $result='['.&mt('Algebra unconverted due to previous errors').']'; |
my $result='['.&mt('Algebra unconverted due to previous errors').']'; |
|
Line 495 Header
|
Line 576 Header
|
| |
|
| =item jsMath_converted() |
=item jsMath_converted() |
| |
|
| |
|
| =item tex_engine() |
=item tex_engine() |
| |
|
| |
|
|
Line 503 Header
|
Line 583 Header
|
| |
|
| =item mimetex_valign() |
=item mimetex_valign() |
| |
|
| Makes a HEAD call to /cgi-bin/mimetex.cgi via IO:: to retrieve the |
Makes a HEAD call to /cgi-bin/mimetex.cgi via IO:: to retrieve the |
| vertical alignment, before the subsequent call to mimetex_converted() |
vertical alignment, before the subsequent call to mimetex_converted() |
| which generates the <img> tag and the corresponding image. |
which generates the <img> tag and the corresponding image. |
| |
|
| Input: 1. $esc_texstring (escaped TeX to be rendered by mimetex). |
Input: 1. $esc_texstring (escaped TeX to be rendered by mimetex). |
| Output: 1. $valign - number of pixels: positive or negative integer |
Output: 1. $valign - number of pixels: positive or negative integer |
| which will be included in <img> tag for mimetex image to |
which will be included in <img> tag for mimetex image to |
| support vertical alignment of image within a line of text. |
support vertical alignment of image within a line of text. |
| |
|
| If a server is running SSL, and Apache rewrite rules are in place |
If a server is running SSL, and Apache rewrite rules are in place |
| to rewrite requests for http to https, modification will most likely |
to rewrite requests for http to https, modification will most likely |
| be needed for pass through for HEAD requests for /cgi-bin/mimetex.cgi. |
be needed for pass through for HEAD requests for /cgi-bin/mimetex.cgi. |
| |
|
| Example rewrite rules which rewrite all http traffic to https, |
Example rewrite rules which rewrite all http traffic to https, |
| except HEAD requests for /cgi-bin/mimetex.cgi are: |
except HEAD requests for /cgi-bin/mimetex.cgi are: |
| |
|
| <IfModule mod_rewrite.c> |
<IfModule mod_rewrite.c> |
|
Line 525 Header
|
Line 605 Header
|
| |
|
| RewriteCond %{HTTPS} off |
RewriteCond %{HTTPS} off |
| RewriteCond %{HTTP:Host} (.*) |
RewriteCond %{HTTP:Host} (.*) |
| RewriteCond %{REQUEST_METHOD} !HEAD |
RewriteCond %{REQUEST_METHOD} !HEAD |
| RewriteRule ^/(.*) https://%1/$1 [R=301,L] |
RewriteRule ^/(.*) https://%1/$1 [R=301,L] |
| |
|
| RewriteCond %{HTTPS} off |
RewriteCond %{HTTPS} off |
![[BACK]](/icons/back.gif){kind=icon}
Return to lontexconvert.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml