/[hr-web]/index.php
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /index.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (hide annotations)
Wed Jun 13 09:29:26 2001 UTC (22 years, 10 months ago) by ravilov
Branch: MAIN
Changes since 1.5: +5 -6 lines
Removed some test code... ;-)

1 dpavlin 1.1 <?php
2     include("inc/global.php");
3     $warning = 0;
4 dpavlin 1.3 if (isset($x)) $warning = 3;
5 dpavlin 1.1 if (!isset($password)) $password = "";
6 dpavlin 1.3 if (!$warning && isset($login)) {
7 dpavlin 1.1 $password = StripSlashes($password);
8     include("inc/auth_POP3.php");
9     $pop3 = new POP3();
10     $pop3->connect($POP3);
11     $ret = $pop3->checklogin($login, $password);
12     $pop3->quit();
13     if ($ret) {
14 ravilov 1.6 include("inc/conn.php");
15     DBOpen("informatika", "dpavlin", "", "intranet.pliva.hr");
16     $row = DBQuery("SELECT sifra FROM racuni,osobe WHERE (osobe.id=osoba_id) AND (login LIKE '$login')");
17     DBClose();
18     $row = $row[0];
19 dpavlin 1.1 if (isset($row)) {
20     $sifra = $row[0];
21     Header("Location: $pages[0]".Params());
22     exit;
23     }
24     $warning = 1;
25     } else
26     $warning = 2;
27     }
28     if (!isset($login)) $login = "";
29 dpavlin 1.3 $tpl = new MySmarty;
30 dpavlin 1.1 $tpl->assign("action", $PHP_SELF);
31     $tpl->assign("page", $page);
32     $tpl->assign("login", $login);
33     $tpl->assign("warning", $warning);
34 dpavlin 1.3 $tpl->show();
35 dpavlin 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26