forked from freemed/freemed
-
Notifications
You must be signed in to change notification settings - Fork 0
/
chtml.php
61 lines (51 loc) · 1.95 KB
/
chtml.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
<?php
// $Id$
//
// Authors:
// Jeff Buchbinder <[email protected]>
//
// FreeMED Electronic Medical Record and Practice Management System
// Copyright (C) 1999-2012 FreeMED Software Foundation
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
include_once ( 'lib/freemed.php' );
error_reporting ( );
set_error_handler("chtml_standard_error_handler");
unset ( $parts ); unset ( $file );
$parts = explode ( '/', $_SERVER['PATH_INFO'] );
$file = $parts[1];
$path = str_replace ( $parts[0].'/'.$parts[1], '', $_SERVER['PATH_INFO'] );
if ( !file_exists( dirname(__FILE__)."/doc/${file}.chtml" ) ) {
print "Help index ${file} not present.";
exit;
}
unset ( $chtml );
$chtml = CreateObject ( "org.freemedsoftware.core.CHTMLReader", dirname(__FILE__)."/doc/${file}.chtml" );
// Strip leading slash if it exists ...
if ( substr( $path, 0, 1 ) == '/' ) {
$path = substr ( $path, - (strlen($path)-1) );
}
print $chtml->GetResource ( $path );
//----------------- Functions ----------------------------------------------
function chtml_standard_error_handler ($no, $str, $file, $line, $context) {
switch ($no) {
case E_USER_ERROR:
die('
<div style="border: 1px solid #000000; background-color: #ffff00; color: #000000; font-family: sans-serif; padding: 1em; font-size: 8pt;">'.$str.'</div>
');
break;
}
}
?>