/[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.5 - (hide annotations)
Wed Jun 13 09:13:42 2001 UTC (22 years, 10 months ago) by ravilov
Branch: MAIN
Changes since 1.4: +6 -5 lines
Dodao novi ekran (Patenti).

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.5 # 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     $row = array(962708);
20 dpavlin 1.1 if (isset($row)) {
21     $sifra = $row[0];
22     Header("Location: $pages[0]".Params());
23     exit;
24     }
25     $warning = 1;
26     } else
27     $warning = 2;
28     }
29     if (!isset($login)) $login = "";
30 dpavlin 1.3 $tpl = new MySmarty;
31 dpavlin 1.1 $tpl->assign("action", $PHP_SELF);
32     $tpl->assign("page", $page);
33     $tpl->assign("login", $login);
34     $tpl->assign("warning", $warning);
35 dpavlin 1.3 $tpl->show();
36 dpavlin 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26