NetAdminTools used to use PHP-Nuke. For those of you who don’t know, PHP-Nuke is a fabulous Open Source project that gives you everything you need to bring up your own website with a database backend and other features. Now, one annoying thing with PHP-Nuke, and most web based interfaces is that it is quite difficult to embed program listings. We do that a lot at NetAdminTools. Greater than signs, slashes, etc. get all munged up. Well, there is a cool program called txt2html that converts a lot of these special characters. With this program and the following perl script (cm.pl) we can just run a text file into the scripts and out comes html ready to stick in Story Text right before posting. Here is the program:

#!/usr/bin/perl
print '<TABLE BORDER="0" BGCOLOR="#E0E0E0" WIDTH="99%" ><TR ><TD>';
while(<>){
s|\\|\\\\\\\\|g;
print;
}
#The above is used to render \b (slash b) and \\ (slash slash) 
print '</TD ></TR ></TABLE>';

This was generated using the very same program. 🙂 Use the –extract option:

./txt2html.pl --extract --prebegin 0 --preend 0 < cm.pl | ./cm.pl

Here is the perl script in text form.
Note that the rendering of the printer view is different, and that this only works for the the article on non-printer view pages.