WackoWiki : NekipelovAlex/раскраска

Мой вариант подсветки кода для email`ов отличается от стандартного следующим:
Разумеется для использования нужно определить все стили.

<?php
# (c) Nekipelov Alex (mailto:nalex <AT> pisem.net)
    
$text htmlspecialchars($text);
    
$text preg_replace("/\b(https?|ftp|file|nntp|telnet):\/\/\S+/","<a href='\\0'>\\0</a>"$text);
    
$text preg_replace("/\bmailto:[\w\.]+\x40[\w\.]+/","<a href='\\0'>\\0</a>"$text);

    
$text str_replace("&gt;"">"$text); # fixme!

    
preg_match_all"/^(.*?)\n{2}(.*?)$/s"$text$matches );
    
$header $matches[1][0];
    
$body $matches[2][0];

    
$header preg_replace"/(<[\w\.-]+\x40[\w\.-]+>)/m""<span class=email_email>\\1</span>"$header );
    
$header preg_replace"/([\w\.-]+\x40[\w\.-]+)/m""<span class=email_email>\\1</span>"$header );
    
$header preg_replace"/^(Date:) /m""<span class=email_date>\\1</span> "$header );
    
$header preg_replace"/^(From:) /m""<span class=email_from>\\1</span> "$header );
    
$header preg_replace"/^(To:) /m""<span class=email_to>\\1</span> "$header );
    
$header preg_replace"/^(Subject:) /m""<span class=email_subject>\\1</span> "$header );
    
$header preg_replace"/^([\w\-]:) /m""<span class=email_keywords>\\1</span> "$header );
    
$header .= "\n\n";

    
$body preg_replace"/^(\w*[\x20\t]*>{1}[ \t].+)$/m""<span class=email_quote1>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{2}[ \t].+)$/m""<span class=email_quote2>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{3}[ \t].+)$/m""<span class=email_quote3>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{4}[ \t].+)$/m""<span class=email_quote4>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{5}[ \t].+)$/m""<span class=email_quote5>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{6}[ \t].+)$/m""<span class=email_quote6>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{7}[ \t].+)$/m""<span class=email_quote7>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{8}[ \t].+)$/m""<span class=email_quote8>\\1</span>"$body );
    
$body preg_replace"/^(\w*[\x20\t]*>{9,}[ \t].+)$/m""<span class=email_quote9>\\1</span>"$body );

echo 
"<div class=\"code\"><pre>";
echo 
"<span class=email_header>" $header "</span>";
echo 
"<span class=email_body>" $body "</span>";
echo 
"</pre></div>";

?>


Вы не владеете cтраницей NekipelovAlex/раскраска и поэтому не можете получить список наблюдающих за ней