/[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.2 - (hide annotations)
Sat Apr 21 09:01:53 2001 UTC (23 years ago) by dpavlin
Branch: MAIN
Changes since 1.1: +4 -9 lines
connect to informatika on support.pliva.hr

1 dpavlin 1.1 <?php
2     include("inc/global.php");
3     $warning = 0;
4     if (!isset($password)) $password = "";
5     if (isset($login)) {
6     $password = StripSlashes($password);
7     include("inc/auth_POP3.php");
8     $pop3 = new POP3();
9     $pop3->DEBUG = 1;
10     $pop3->connect($POP3);
11     $ret = $pop3->checklogin($login, $password);
12     $pop3->quit();
13     if ($ret) {
14 dpavlin 1.2 include("inc/conn.php");
15     DBOpen("informatika", "dpavlin", "", ";host=support.pliva.hr");
16     $row = DBQuery("SELECT sifra FROM racuni,osobe WHERE (osobe.id=osoba_id) AND (login LIKE '$login')");
17     DBClose();
18 dpavlin 1.1 $row = $row[0];
19     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     include("inc/Smarty.class.php");
30     $tpl = new Smarty;
31     $tpl->template_dir = "./tpl";
32     $tpl->compile_dir = "./tpc";
33     $tpl->assign("action", $PHP_SELF);
34     $tpl->assign("language", $language);
35     $tpl->assign("page", $page);
36     $tpl->assign("sifra", $sifra);
37     $tpl->assign("login", $login);
38     $tpl->assign("warning", $warning);
39     $pg = basename($PHP_SELF);
40     $pg = eregi_replace("\.php$", "", $pg);
41     $tpl->display("$pg-$language.tpl");
42     ?>

  ViewVC Help
Powered by ViewVC 1.1.26