[-
 use TEK::Utils;
 use TEK::Database;
 use TEK::Config;

 my $conf   = new TEK::Config;
 my $db     = new TEK::Database;


 %data   = ();
 $passed_inspection = 0;

 $db->debug();

 if($fdat{ SUBMIT })
 {
    $err = "Please enter a password."            if (!$fdat{ $PACS_PASSWORD });
    $err = "Please enter a vaild email address." if (!validate_email($fdat{ $PACS_EMAIL }));
    $err = "Please enter an email address."      if (!$fdat{ $PACS_EMAIL });

    if(!$err)
    {
       $where = "$PACS_EMAIL = '$fdat{ $PACS_EMAIL }'";

       %data = $db->select1( "$PACS_ID, $PACS_PASSWORD, $PACS_DELETED", $PACS_TABLE, $where);

       $err = "Invalid Password, Please try again."      if ($data{ $PACS_PASSWORD } ne $fdat{ $PACS_PASSWORD });
       $err = "Invalid Email address, Please try again." if(!exists($data{ $PACS_PASSWORD }));
       $err = "Invalid User, Please try again." if($data{ $PACS_DELETED } == 1);

       if( exists($data{ $PACS_ID }) &&
           $data{ $PACS_PASSWORD } eq $fdat{ $PACS_PASSWORD } && #Just making sure..
           !$err )
       {
          $expires = TEK::Date::cookiedatetime( time +
					  ( $TEK::Date::SecondsYear * 10 ) );
#          $cookie1 = "PAC_ID=$data{ $PACS_ID }; expires=$expires; path=/";
          $cookie1 = "PAC_ID=$data{ $PACS_ID }; path=/";

          $passed_inspection = 1;
       }
   }
}


 #Auto Login if Cookie has already been set

 if($ENV{ HTTP_COOKIE })
 {
    ($pac_id) = $ENV{ HTTP_COOKIE } =~ m/\=(.*)/;

#    print STDERR "COOKIE: $ENV{ HTTP_COOKIE }\n";

    $data{ $PACS_ID } = $pac_id || 0;

    $deleted = $db->value($PACS_DELETED, $PACS_TABLE, "$PACS_ID = $pac_id");
    $passed_inspection = 1 if !$deleted;
 }

-]

[$ if(exists($data{ $PACS_ID }) && $passed_inspection) $]
  [$ if $cookie1 $]
     [# print STDERR "Here $cookie1 \n"; #]
     <META HTTP-EQUIV="Set-Cookie" CONTENT="[+ $cookie1 +]">
  [$ endif $]
  [- redirect("/download/mfr_list_catts.html") -]

[$ endif $]


[- $head_title = "Digital Templates" -]
[- $skipredirect = 1 -]
[+ includeexec2( "$ROOT_DIR/include/header.html" ) +]


<TABLE WIDTH="650" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">
  <TR>
    <TD VALIGN="TOP"><TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">
        <TR VALIGN="TOP">
          <TD WIDTH="5" VALIGN="TOP"><IMG SRC="/images/header_left.gif" WIDTH="5" HEIGHT="38"></TD>
          <TD BACKGROUND="/images/header_back.gif" BGCOLOR="#584291" CLASS="table_title">[+ $head_title +]</TD>
          <TD WIDTH="5" VALIGN="TOP"><IMG SRC="/images/header_right.gif" WIDTH="5" HEIGHT="38"></TD>
        </TR>
      </TABLE></TD>
  </TR>
  <TR>
    <TD VALIGN="TOP"><TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">
        <TR>
          <TD CLASS="table_center"><TABLE WIDTH="100%"  BORDER="0" CELLSPACING="7" CELLPADDING="7">
              <TR VALIGN="TOP">
                <TD WIDTH="63%"><FONT FACE="[+ $DEFAULT_FONT +]" COLOR=#000000 SIZE=2>
                  <B>Three easy steps to get started:<BR>
                  <BR>
                  </B>1. Complete the PACS Vendor Registration<BR>
                  <BR>
                  2. Upon submission, you will be approved and given a <BR>
                  &nbsp; &nbsp; password to use for all future inquiries.<BR>
                  <BR>
                  3. Once approved, enter your password to select the <BR>
                  &nbsp; &nbsp; manufacturer and files for download.</FONT></TD>
                <TD WIDTH="37%"><IMG SRC="/images/front_image.jpg" WIDTH="220" HEIGHT="159" ALIGN="RIGHT"></TD>
              </TR>
              <TR VALIGN="TOP">
                <TD COLSPAN="2">

                    <table cellspacing="0" cellpadding="0" border="0" width="100%">
                    <tr>
                    <td>
                    <TABLE WIDTH="100%"  BORDER="0" CELLSPACING="0" CELLPADDING="0">
                    <TR>
                      <TD VALIGN="TOP" BGCOLOR="#8C8989"><TABLE WIDTH="100%"  BORDER="0" CELLSPACING="1" CELLPADDING="5">
                          <TR VALIGN="TOP" BGCOLOR="#D0D0D0">
<!--                            <TD><FONT FACE="[+ $DEFAULT_FONT +]" COLOR=#000000 SIZE=2>
                              <B>Not registered to get digital templates?</B></FONT></TD> -->
                            <TD><FONT FACE="[+ $DEFAULT_FONT +]" COLOR=#000000 SIZE=2>
                              <B>Already registered? Log in here.</B></FONT></TD>
                          </TR>
                          <TR>
                          <FORM METHOD="POST" NAME="login" ACTION="index.html">
<!--                              <TD VALIGN="TOP" BGCOLOR="#DEDEDE">
                                <A HREF="/register/register_all_catts.html"><FONT FACE="[+ $DEFAULT_FONT +]" SIZE=2><B>Click here to register</B></FONT></A><BR></TD>-->
                              <TD ROWSPAN="3" VALIGN="TOP" BGCOLOR="#DEDEDE">
                                <TABLE CELLSPACING="0" CELLPADDING="0" BORDER="0" WIDTH="100%"x>
                                  <TR>
                                    <TD COLSPAN="2">
                                      <FONT FACE="[+ $DEFAULT_FONT +]" SIZE=2>
                                        E-Mail Address:<BR>
                                        <INPUT NAME="[+ $PACS_EMAIL +]" TYPE="TEXT" CLASS="style" VALUE=""
                                          SIZE="20" MAXLENGTH="512"><BR>
                                      </FONT>
                                    </TD>
                                  </TR>
                                  <TR>
                                    <TD NOWRAP>
                                      <FONT FACE="[+ $DEFAULT_FONT +]" SIZE=2>
                                        Password: <BR>
                                        <INPUT NAME="[+ $PACS_PASSWORD +]" TYPE="PASSWORD" CLASS="style" VALUE=""
                                          SIZE="20" MAXLENGTH="512"><IMG SRC="/images/spacer.gif" HEIGHT="3" WIDTH="1">
                                      </FONT>
                                    </TD>
                                    <TD VALIGN="BOTTOM" ALIGN="CENTER" WIDTH="43%">
                                      <INPUT TYPE="IMAGE" NAME="SUBMIT" SRC="/images/login.gif" WIDTH="97" HEIGHT="24"
                                        ALT="Request Files" VSPACE="0" HSPACE="0" BORDER="0">
                                      <INPUT TYPE="HIDDEN" NAME="SUBMIT" VALUE="1">
                                    </TD>
                                  </TR>
                                  [$ if($err) $]
                                    <TR>
                                      <TD COLSPAN="2" ALIGN="CENTER"><BR>
                                        <FONT COLOR="#AA0000" FACE="[+ $DEFAULT_FONT +]" SIZE="2">
                                          <B>[+ $err +]</B>
                                        </FONT><BR><BR>
                                      </TD>
                                    </TR>
                                  [$ endif $]

                                </TABLE>
                             </TD>
                            </FORM>
                          </TR>
<!--                          <TR>
                            <TD VALIGN="TOP" BGCOLOR="#D0D0D0">
                              <FONT FACE="[+ $DEFAULT_FONT +]" COLOR=#000000 SIZE=2>
                                <B>Are you a manufacturer?</B></FONT></TD>
                          </TR>
                          <TR>
                            <TD VALIGN="TOP" BGCOLOR="#DEDEDE"><A HREF="/admin/"><FONT FACE="[+ $DEFAULT_FONT +]" SIZE=2><B>Click here to login to administration</B></FONT></A></TD>
                          </TR> -->
                        </TABLE>
                      </td>
                      <td valign="top">
                        <FONT FACE="[+ $DEFAULT_FONT +]" COLOR=#000000 style="font-size: 9pt;">
                          &nbsp; Not registered to get digital templates?<br />
                          &nbsp; <A HREF="/register/register_all_catts.html"><B>Click here to register</B></A>.<br />
                        </font>
                      </td>
                      </tr>
                      </table>
                    </TD>
                    </TR>
                  </TABLE></TD>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE></TD>
  </TR>
  <TR>
    <TD VALIGN="TOP"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="footer">
        <TR VALIGN="TOP">
          <TD WIDTH="5" VALIGN="TOP"><IMG SRC="/images/bottom_left.gif" WIDTH="5" HEIGHT="35"></TD>
          <TD BGCOLOR="#C4CCDB" CLASS="footer_text" ALIGN="CENTER">[+ includeexec2( "$ROOT_DIR/include/footer.html" ) +]</TD>
          <TD WIDTH="5" VALIGN="TOP"><IMG SRC="/images/bottom_right.gif" WIDTH="5" HEIGHT="35"></TD>
        </TR>
      </TABLE></TD>
  </TR>
</TABLE>
<P>&nbsp;</P>
</BODY>
</HTML>