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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
<?php
/**
* iSchedule administration helper
*
* @package davical
* @subpackage iSchedule
* @author Andrew McMillan <andrew@morphoss.com>
* @copyright Catalyst .Net Ltd, Morphoss Ltd <http://www.morphoss.com/>
* @license http://gnu.org/copyleft/gpl.html GNU GPL v2 or later
*/
include("./always.php");
include("DAViCalSession.php");
$session->LoginRequired('Admin');
include("interactive-page.php");
require_once("AwlQuery.php");
require_once('iSchedule.php');
$heading_schedule = translate('iSchedule Configuration');
$content_sched1 = translate('iSchedule allows caldav servers to communicate directly with each other, bypassing the need to send invitations via email, for scheduled events where attendees are using different servers or providers. Additionally it enables freebusy lookups for remote attendees. Events and ToDos received via iSchedule will show up in the users scheduling inbox.');
$content_sched2 = translate('The <a href="https://wiki.davical.org/w/iSchedule_configuration">iSchedule configuration</a> requires a few DNS entries. DNS SRV record(s) will need to be created for all domains you wish to accept requests for, these are the domain portion of email address on Principal records in DAViCal examples are listed below for domains found in your database. At least 1 public key must also be published if you wish to send requests from this server.');
$page_elements = array();
$page_elements[] = <<<EOBODY
<h1>$heading_schedule</h1>
<p>$content_sched1
<br> </p>
<p>$content_sched2</p>
EOBODY;
$translated_error = translate('ERROR');
$translated_err1 = translate('scheduling_dkim_domain not set (please check your DAViCal configuration file)');
$translated_warning = translate('WARNING');
$translated_war1 = translate('scheduling_dkim_domain does not match server name (please check your DAViCal configuration file)');
$status = '<h2>' . translate('Status') . '</h2>';
if (!isset($c->scheduling_dkim_domain)) {
$status .= <<<EOBODY
<div class='error'>$translated_error</div>
<p>$translated_err1</p>
EOBODY;
}
elseif ( $c->scheduling_dkim_domain != $_SERVER['SERVER_NAME'] ) {
$status .= <<<EOBODY
<div class='error'>$translated_warning</div>
<p>$translated_war1</p></h3>
EOBODY;
}
else {
$status .= '<div >' . checkiSchedule() . '</div>';
}
$page_elements[] = $status;
function checkiSchedule () {
global $c;
$ret = '';
$s = new iSchedule ();
$s->domain = $c->scheduling_dkim_domain;
if (!$s->getServer())
$ret .= '<p>' . sprintf(translate('SRV record missing for "%s" or DNS failure, the domain you are going to send events from should have an SRV record'), $s->domain) . '</p>';
if ($s->remote_server != $c->scheduling_dkim_domain)
$ret .= '<p>' . sprintf(translate('SRV record for "%s" points to wrong domain: "%s" instead of "%s"'), $s->domain, $s->remote_server, $c->scheduling_dkim_domain) . '</p>';
$s->remote_server = $c->scheduling_dkim_domain;
$s->remote_selector = $c->scheduling_dkim_selector;
if (!$s->getTxt()) {
if (isset($c->schedule_private_key))
$ret .= '<p>' . sprintf(translate('TXT record missing for "%s._domainkey.%s" or DNS failure, Private RSA key is configured'), $s->remote_selector, $s->domain) . '</p>';
else {
$keys = generateKeys();
$config = '<p>' . translate('please add the following section to your DAViCal configuration file') . '<pre>$c->schedule_private_key = <<<ENDOFKEY' . "\n";
$config .= $keys['private']; //implode ("\n", str_split ( base64_encode ( $keys['private'] ), 64 ));
$config .= "ENDOFKEY\n</pre>";
$config .= "<br/> " . sprintf(translate('and create a DNS TXT record for <b>%s._domainkey.%s</b> that contains:'), $c->scheduling_dkim_selector, $c->scheduling_dkim_domain);
$config .= "<pre>k=rsa; t=s; p=" . preg_replace('/-----(BEGIN|END) PUBLIC KEY-----\n/','',$keys['public']);
$config .= '</pre></p>';
$ret .= $config;
}
}
if ( ! $s->parseTxt() )
$ret .= '<p>' . sprintf(translate('TXT record corrupt for %s._domainkey.%s or DNS failure'), $s->remote_selector, $s->domain) . '</p>';
else if ( $ret == '' )
$ret = '<p>' . translate('iSchedule OK') . '</p>';
return $ret;
}
function generateKeys () {
$config = array('private_key_bits' => 512, 'private_key_type' => OPENSSL_KEYTYPE_RSA);
$newKey = openssl_pkey_new($config);
if ( $newKey !== false ) {
openssl_pkey_export($newKey,$privateKey);
$publicKey=openssl_pkey_get_details($newKey);
$publicKey=$publicKey['key'];
return Array('private' => $privateKey, 'public' => $publicKey);
}
return false;
}
include("classEditor.php");
include("classBrowser.php");
function SRVOk ( $value, $name, $row ) {
global $BrowserCurrentRow;
if ( empty($BrowserCurrentRow->domain) ) return ''; // skip empty rows
$s = new iSchedule();
$s->domain = $BrowserCurrentRow->domain;
return translate( ( $s->getServer()?'OK': SRVFormat ( $s->domain ) ) );
}
function SRVFormat ( $domain ) {
global $c;
switch ( @$_REQUEST['srv_format'] )
{
case 'dnsmasq':
return 'srv_host=_ischedules._tcp.' . $domain .','. ($c->scheduling_dkim_domain?$c->scheduling_dkim_domain:$_SERVER['SERVER_NAME']) .','. $_SERVER['SERVER_PORT'] ;
case 'bind': //_http._tcp.example.com. IN SRV 0 5 80 www.example.com.
return '_ischedules._tcp.' . $domain .'. IN SRV 0 5 ' . $_SERVER['SERVER_PORT'] .' '. ($c->scheduling_dkim_domain?$c->scheduling_dkim_domain:$_SERVER['SERVER_NAME']) ;
default:
return '_ischedules._tcp.' . $domain .' '. ($c->scheduling_dkim_domain?$c->scheduling_dkim_domain:$_SERVER['SERVER_NAME']) .' '. $_SERVER['SERVER_PORT'] ;
}
}
$browser = new Browser(translate('iSchedule Domains'));
$browser->AddColumn( "domain", translate('Domain'),'left','' );
// function AddColumn( $field, $header="", $align="", $format="", $sql="", $class="", $datatype="", $hook=null ) {
$browser->AddColumn( "srvok", translate('SRV Record'),'right','',"''",'','','SRVOk' );
$browser->SetJoins( "usr " );
$browser->SetWhere( " email is not null and email <> ''" );
$browser->SetDistinct( " split_part(email,'@',2) as " );
$sql = "select distinct split_part(email,'@',2) as domain from usr where email is not null and email <> ''";
$page_elements[] = $browser;
$c->stylesheets[] = 'css/edit.css';
include("page-header.php");
/**
* Page elements could be an array of viewers, browsers or something else
* that supports the Render() method... or a non-object which we assume is
* just a string of text that we echo.
*/
$heading_level = null;
foreach( $page_elements AS $k => $page_element ) {
if ( is_object($page_element) ) {
echo $page_element->Render($heading_level);
$heading_level = 'h2';
}
else {
echo $page_element;
}
}
if (function_exists("post_render_function")) {
post_render_function();
}
include("page-footer.php");
|
