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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
<?php
// uncomment when developing, comment for shipping version
//error_reporting (E_ALL);
// Retain some compatibility backwards like.
/* jared.20021003 I think we're always going to make sure these are extracted by hand
so I'll comment this out for now, otherwise, uncomment this
if(phpversion() >= '4.2.0')
{
extract($HTTP_GET_VARS);
extract($HTTP_POST_VARS);
}
*/
include('./config.inc.php');
include('./functions/error.php');
// subscribe link prefix, doesn't need to be user configureable
// language support
$language = strtolower($language);
$lang_file = './languages/'.$language.'.inc.php';
if (file_exists($lang_file)) {
include($lang_file);
} else {
exit(error('Requested lanugage "'.$language.'" is not a supported language. Please consult the configuration file to choose a supported language.'));
}
if (isset($HTTP_GET_VARS['getdate']) && ($HTTP_GET_VARS['getdate'] !== '')) {
$getdate = $HTTP_GET_VARS['getdate'];
} else {
$getdate = date('Ymd');
}
$is_webcal = FALSE;
if (isset($HTTP_GET_VARS['cal'])) {
$cal_decoded = urldecode($HTTP_GET_VARS['cal']);
if (substr($cal_decoded, 0, 7) == 'http://' || substr($cal_decoded, 0, 9) == 'webcal://') {
$is_webcal = TRUE;
$cal_webcalPrefix = str_replace('http://','webcal://',$cal_decoded);
$cal_httpPrefix = str_replace('webcal://','http://',$cal_decoded);
$cal_filename = $cal_httpPrefix;
} else {
$cal_filename = stripslashes($cal_decoded);
}
} else {
$cal_filename = $default_cal;
}
if ($is_webcal) {
if ($allow_webcals == 'yes' || in_array($cal_webcalPrefix, $list_webcals) || in_array($cal_httpPrefix, $list_webcals)) {
$cal_displayname = substr(str_replace('32', ' ', basename($cal_filename)), 0, -4);
$cal = urlencode($cal_filename);
$filename = $cal_filename;
$subscribe_path = $cal_webcalPrefix;
} else {
exit(error('Remote calendars are not allowed on this server and the calendar located at '.$HTTP_GET_VARS['cal'].' is not in the list of allowed calendars. Please use the "Back" button to return.'));
}
} else {
$cal_displayname = str_replace('32', ' ', $cal_filename);
$cal = urlencode($cal_filename);
if (in_array($cal_filename, $blacklisted_cals)) {
exit(error($cal_filename.' is restricted on this server. Please use the "Back" button to return.'));
} else {
if (!isset($filename)) {
$filename = $calendar_path.'/'.$cal_filename.'.ics';
if (!file_exists($filename)) {
$dir_handle = @opendir($calendar_path) or die('Unable to open path: '.$calendar_path);
while ($file = readdir($dir_handle)) {
if (substr($file, -4) == '.ics') {
$cal = urlencode(substr($file, 0, -4));
$filename = $calendar_path.'/'.$file;
break;
}
}
}
}
$subscribe_path = 'webcal://'.$HTTP_SERVER_VARS['SERVER_NAME'].dirname($HTTP_SERVER_VARS['PHP_SELF']).'/'.$filename;
}
}
?>
|
