/[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

Contents of /index.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show 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 <?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 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 $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