Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F117751915
poppassd.php
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Flag For Later
Award Token
Authored By
Unknown
Size
2 KB
Referenced Files
None
Subscribers
None
poppassd.php
View Options
<?php
/**
* Poppassd Password Driver
*
* Driver to change passwords via Poppassd/Courierpassd
*
* @version 2.0
* @author Philip Weir
*
* Copyright (C) The Roundcube Dev Team
*
* 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 3 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, see https://www.gnu.org/licenses/.
*/
class
rcube_poppassd_password
{
function
format_error_result
(
$code
,
$line
)
{
if
(
preg_match
(
'/^
\d\d\d\s
+(
\S
.*)
\s
*$/'
,
$line
,
$matches
))
{
return
[
'code'
=>
$code
,
'message'
=>
$matches
[
1
]];
}
return
$code
;
}
function
save
(
$curpass
,
$passwd
,
$username
)
{
$rcmail
=
rcmail
::
get_instance
();
$poppassd
=
new
Net_Socket
();
$port
=
$rcmail
->
config
->
get
(
'password_pop_port'
,
106
);
$host
=
$rcmail
->
config
->
get
(
'password_pop_host'
,
'localhost'
);
$host
=
rcube_utils
::
parse_host
(
$host
);
$result
=
$poppassd
->
connect
(
$host
,
$port
,
null
);
if
(
is_a
(
$result
,
'PEAR_Error'
))
{
return
$this
->
format_error_result
(
PASSWORD_CONNECT_ERROR
,
$result
->
getMessage
());
}
$result
=
$poppassd
->
readLine
();
if
(!
preg_match
(
'/^2
\d\d
/'
,
$result
))
{
$poppassd
->
disconnect
();
return
$this
->
format_error_result
(
PASSWORD_ERROR
,
$result
);
}
$poppassd
->
writeLine
(
"user "
.
$username
);
$result
=
$poppassd
->
readLine
();
if
(!
preg_match
(
'/^[23]
\d\d
/'
,
$result
))
{
$poppassd
->
disconnect
();
return
$this
->
format_error_result
(
PASSWORD_CONNECT_ERROR
,
$result
);
}
$poppassd
->
writeLine
(
"pass "
.
$curpass
);
$result
=
$poppassd
->
readLine
();
if
(!
preg_match
(
'/^[23]
\d\d
/'
,
$result
))
{
$poppassd
->
disconnect
();
return
$this
->
format_error_result
(
PASSWORD_ERROR
,
$result
);
}
$poppassd
->
writeLine
(
"newpass "
.
$passwd
);
$result
=
$poppassd
->
readLine
();
$poppassd
->
disconnect
();
if
(!
preg_match
(
'/^2
\d\d
/'
,
$result
))
{
return
$this
->
format_error_result
(
PASSWORD_ERROR
,
$result
);
}
return
PASSWORD_SUCCESS
;
}
}
File Metadata
Details
Attached
Mime Type
text/x-php
Expires
Sat, Apr 4, 3:34 AM (1 d, 22 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
18822432
Default Alt Text
poppassd.php (2 KB)
Attached To
Mode
R113 roundcubemail
Attached
Detach File
Event Timeline