[-
 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 })
 {
	$fdat{ $PACS_EMAIL } =~ s/^\s*|\s*$//g if ($fdat{ $PACS_EMAIL });

	$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 }' and $PACS_DELETED = 0";

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

		  $crypted_password = crypt($fdat{ $PACS_PASSWORD }, substr($fdat{$PACS_PASSWORD}, 0, 2) );
		  $err = 1 if ($data{ $PACS_PASSWORD } ne $crypted_password);
		  $err = 1 if (!exists($data{ $PACS_PASSWORD }));
		  $err = 1 if ($data{ $PACS_DELETED } == 1);

		$err = "Invalid Login Credentials.<br>Please try again or contact us if the problem persists." if $err == 1;

		  if ( exists($data{ $PACS_ID }) &&
			  $data{ $PACS_PASSWORD } eq $crypted_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/ )
 {
	($pac_id) = $ENV{ HTTP_COOKIE } =~ m/PAC_ID\=(\d*)/;

    print STDERR "COOKIE pac_id: $pac_id\n";

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

	$deleted = $db->value($PACS_DELETED, $PACS_TABLE, { $PACS_ID => $pac_id });
	$passed_inspection = 1 if !$deleted;
 }
 else
 {
	print STDERR "NO COOKIE pac_id!\n";
 }

-]

[$ if (exists($data{ $PACS_ID }) && $passed_inspection) $]
  [$ if $cookie1 $]
	 [- print STDERR "Here Cookie1: $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 BACKGROUND="/images/header_back.gif" BGCOLOR="#584291" CLASS="table_title"><a href="javascript:history.back();"><FONT COLOR="#FFFFFF">[Back]</FONT></a></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_image2.jpg" WIDTH="220" HEIGHT="159" ALIGN="RIGHT"></TD>
				</TR>
				<TR VALIGN="TOP">
				<TD COLSPAN="2">

					<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>Already registered? Log in here.</B></FONT></TD>
							</TR>
							<TR>
							<TD bgcolor="#DEDEDE" style="padding: 10px;">
								<FORM METHOD="POST" NAME="login" ACTION="index.html" style="margin: 0px;">
								<TABLE CELLSPACING="0" CELLPADDING="5" BORDER="0" ALIGN="CENTER">
									<TR>
									<TD COLSPAN="2">
										<FONT FACE="[+ $DEFAULT_FONT +]" SIZE=2>
										E-Mail Address:<BR>
										<INPUT NAME="[+ $PACS_EMAIL +]" TYPE="TEXT" CLASS="style" VALUE="" SIZE="42" 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="42" MAXLENGTH="512"><IMG SRC="/images/spacer.gif" HEIGHT="3" WIDTH="1"><br />
										<a href="javascript:void(0);" onclick="window.open('forgot_password.html','forgotpassword', 'status=no,height=375,width=550,resizable=yes,toolbar=no,location=no,menubar=no,scrollbars=no');">Forgot Password?</a>
										</font>
									</TD>
									<TD VALIGN="CENTER" ALIGN="LEFT">
										<INPUT TYPE="IMAGE" NAME="SUBMIT" SRC="/images/login.gif" WIDTH="97" HEIGHT="24"
										ALT="Request Files" VSPACE="0" HSPACE="20" BORDER="0">
										<INPUT TYPE="HIDDEN" NAME="SUBMIT" VALUE="1">
									</TD>
									</TR>
									<TR>
									<TD ALIGN="LEFT" style="font: bold 13px Arial, sans-serif; padding-top: 10px;">
										Not registered to download digital templates?<br />
										<A HREF="/register/register_all_catts.html"><B>Click Here to Register</B></A>
									</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>
								</FORM>
							</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="45"></TD>
			<TD BGCOLOR="#C4CCDB" CLASS="footer_text">[+ includeexec2( "$ROOT_DIR/include/footer.html" ) +]</TD>
			<TD WIDTH="5" VALIGN="TOP"><IMG SRC="/images/bottom_right.gif" WIDTH="5" HEIGHT="45"></TD>
		</TR>
		</TABLE></TD>
  </TR>
</TABLE>
<P>&nbsp;</P>
</BODY>
</HTML>