/[informatika.old]/html/inc/head.inc
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 /html/inc/head.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1.2.3 - (show annotations) (vendor branch)
Mon Jul 31 13:14:56 2000 UTC (23 years, 9 months ago) by dpavlin
Branch: dbi
Changes since 1.1.1.1.2.2: +7 -5 lines
interbase, a ne informix

1 <?
2 if ($what == "relogin") {
3 session_destroy();
4 Header("Location: $PHP_SELF");
5 }
6
7 $charset="iso-8859-2";
8 if ( ereg("MSIE.*[Mm][Aa][Cc]",$HTTP_USER_AGENT) ) {
9 $charset="x-mac-roman";
10 } elseif ( ereg("[Mm][Aa][Cc]",$HTTP_USER_AGENT) ) {
11 $charset="MacCE";
12 }
13 header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
14 header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); // always modified
15 header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
16 header("Pragma: no-cache"); // HTTP/1.0
17 header("Content-Type: text/html;charset=$charset");
18
19 session_name("pcst");
20 if (isset($kontakt_osoba_id) && !session_is_registered("kontakt_osoba_id")) { session_register("kontakt_osoba_id"); }
21 if (isset($md5_passwd) && !session_is_registered("md5_passwd")) { session_register("md5_passwd"); }
22
23 ?>
24
25
26 <html>
27 <head>
28 <title>Informatika -- web suรจelje</title>
29
30 </head>
31
32
33 <body bgcolor="#FFFFFF">
34
35 <?
36 $conn = pg_connect("dbname=informatika user=dpavlin");
37 $result=pg_Exec($conn,"set datestyle = 'german'");
38
39 require('class.DBI');
40 if (0) {
41 $dbh = new DBI("dbi:pg:informatika","dpavlin");
42 $dbh->dbh_do("set datestyle = 'german'");
43 } else {
44 $dbh = new DBI("dbi:interbase:/tmp/informatika","dpavlin","dpavlin");
45 }
46
47 ?>

  ViewVC Help
Powered by ViewVC 1.1.26