[- use TEK::Config; use TEK::Database; use TEK::Utils; use TEK::Date; my $conf = new TEK::Config; my $db = new TEK::Database; @list = $db->select( "*", $SPECIAL_TABLE, "order by $SPECIAL_ID using >" ); -] [+ includeexec2 "$FRONT_HEADER" +]
LIST OF SPECIAL MACHINES Back To Special Machines  
[$ foreach $l ( @list ) $] [- my $url_name = $l->{ $SPECIAL_TITLE }; $url_name =~ s/'//ig; $url_name =~ s/"//ig; $url_name =~ s/ /_/ig; $link = $l->{ $SPECIAL_ID }. "/" . $url_name . ".html"; $l->{ $SPECIAL_BODY } = cat GetSpecialFilePath( $l->{ $SPECIAL_ID } ); $body = $l->{ $SPECIAL_BODY }; $body =~ s/^(.{1,510}(\.|\b))\s+.*$/$1/s; # $body =~ s#\n#\n
#sg; # $body =~ s#(\w+\@\w+\.\w+)#$1#sg; -] [+ $l->{ $SPECIAL_TITLE } +]
[+ $body +]...   Read More>>

[$ endforeach $]
[+ includeexec2 "$FRONT_FOOTER" +]