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
|
<?php
/**
* $Horde: imp/fetchmail.php,v 1.40.8.8 2008/01/02 11:31:07 jan Exp $
*
* Copyright 2002-2008 The Horde Project (http://www.horde.org/)
*
* See the enclosed file COPYING for license information (GPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
*
* @author Nuno Loureiro <nuno@co.sapo.pt>
* @author Michael Slusarz <slusarz@horde.org>
*/
@define('IMP_BASE', dirname(__FILE__));
require_once IMP_BASE . '/lib/base.php';
require_once IMP_BASE . '/lib/Fetchmail.php';
require_once IMP_BASE . '/lib/Template.php';
require_once 'Horde/Prefs/UI.php';
/* No fetchmail for POP3 accounts. */
if ($_SESSION['imp']['base_protocol'] == 'pop3') {
echo _("Your account does not support fetching external mail.");
exit;
}
/* Initialize Fetchmail libraries. */
$fm_account = new IMP_Fetchmail_Account();
/* Run through the action handlers. */
$actionID = Util::getFormData('actionID');
switch ($actionID) {
case 'fetchmail_fetch':
$fetch_list = Util::getFormData('accounts');
if (!empty($fetch_list)) {
IMP_Fetchmail::fetchMail($fetch_list);
/* Go to the download folder. */
$lmailbox = $fm_account->getValue('lmailbox', $fetch_list[0]);
$url = Util::addParameter(Horde::applicationUrl('mailbox.php'), 'mailbox', $lmailbox);
if ($prefs->getValue('fetchmail_popup')) {
Util::closeWindowJS('opener.focus();opener.location.href="' . $url . '";');
} else {
header('Location: ' . $url);
}
exit;
}
break;
}
$title = _("Fetch Mail");
require IMP_TEMPLATES . '/common-header.inc';
/* Prepare javascript variables. */
if (!$prefs->getValue('fetchmail_popup')) {
IMP::menu();
}
/* Prepare template. */
$t = new IMP_Template();
$t->setOption('gettext', true);
$t->set('fetch_url', Horde::applicationUrl('fetchmail.php'));
$t->set('fetch_prefs', Horde::applicationUrl('fetchmailprefs.php'));
$t->set('forminput', Util::formInput());
$accounts = $fm_account->getAll('id');
if ($accounts) {
$accountsval = array();
foreach (array_keys($accounts) as $key) {
$accountsval[] = array(
'key' => $key,
'label' => htmlspecialchars($fm_account->getValue('id', $key))
);
}
$t->set('accounts', $accountsval);
}
if ($prefs->getValue('fetchmail_popup')) {
$t->set('cancel_js', 'window.close();');
}
echo $t->fetch(IMP_TEMPLATES . '/fetchmail/fetchmail.html');
require $registry->get('templates', 'horde') . '/common-footer.inc';
|
