[-
 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" +]

<TABLE WIDTH="100%"  BORDER="0" CELLSPACING="5" CELLPADDING="0">
          <TR>
            <TD CLASS="headline">LIST OF SPECIAL MACHINES </TD>
            <TD CLASS="smalltext" ALIGN="RIGHT">
              <A HREF="/services/special_machines.html">
              Back To Special Machines</A> &nbsp </TD>
          </TR>
          <TR>
            <TD VALIGN="TOP" COLSPAN="2">

[$ 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<BR>#sg; 
# $body =~ s#(\w+\@\w+\.\w+)#<A HREF="mailto:$1">$1</A>#sg;
-]
<SPAN CLASS="frntmenusmall">
<A HREF="[+ $link +]">
<B>[+ $l->{ $SPECIAL_TITLE } +]</B></A><BR></SPAN>
<SPAN CLASS="bodytext">[+ $body +]... &nbsp; 
<SPAN CLASS="bodytext"><A HREF="[+ $link +]"><B>Read More>></B></A></SPAM>
<BR>
<BR></SPAN>
[$ endforeach $]
    </TD>
  </TR>
</TABLE>

[+ includeexec2 "$FRONT_FOOTER" +]