Hi Fabrice,
Thanks the new patch worked :D!!!
Regards,Matthew
Date: Fri, 21 Jun 2013 11:03:16 -0400
From: [email protected]
To: [email protected]
Subject: Re: [PacketFence-users] Email <e-mail> is not allowed to sponsor guest
access
Hello Matthew,
here the new patch tested with success.
https://github.com/inverse-inc/packetfence/commit/b4cb7b0981ca30585a65fbb93f47da70ff1590c7.patch
Regards
Fabrice
Le 2013-06-21 06:09, matthew vassallo a écrit :
Hi Fabrice,
I have tested out the following but is still did not work.
I have included the below patch but am still receiving the
same error.
This is what I have done in the GUI interface:
Went on the users tab --> clicked on admin --> set
both the email and sponsor to [email protected].
Then went on the configuration tab --> clicked on
sources --> clicked on file 1 --> clicked on admins
--> and have the following settings:
username, equals, admin
mark as sponsor
Don't know if I did something wrong in the configuration.
Thanks for your help
Date: Thu, 20 Jun 2013 09:55:31 -0400
From: [email protected]
To: [email protected]
Subject: Re: [PacketFence-users] Email <e-mail> is not
allowed to sponsor guest access
Hi Matthew,
i think you always dream to be a beta tester for
packetfence so here a patch for Sponsor with the file1
source.
I order to make it work, in user tab select admin and set
an email address (Sponsor mail) in file1 in the admins
rule add mark as sponsor.
Then apply the following patch.
If it work, it will be in the 4.0.2 version of
packetfence.
diff --git a/lib/pf/Authentication/Source/SQLSource.pm
b/lib/pf/Authentication/Source/SQLSource.pm
index 63185d7..ce732d3 100644
--- a/lib/pf/Authentication/Source/SQLSource.pm
+++ b/lib/pf/Authentication/Source/SQLSource.pm
@@ -115,6 +115,19 @@ sub match {
return undef;
}
+=head2 username_from_email
+
+=cut
+
+sub username_from_email {
+ my ( $self, $email ) = @_;
+
+ my $logger =
Log::Log4perl->get_logger('pf::authentication');
+
+ return pf::temporary_password::match_by_mail($email);
+
+}
+
=head1 AUTHOR
Inverse inc. <[email protected]>
diff --git a/lib/pf/authentication.pm
b/lib/pf/authentication.pm
index e8d9709..2d51633 100644
--- a/lib/pf/authentication.pm
+++ b/lib/pf/authentication.pm
@@ -409,7 +409,8 @@ sub username_from_email {
my $classname = $source->meta->name;
if ($classname eq
'pf::Authentication::Source::ADSource' ||
- $classname eq
'pf::Authentication::Source::LDAPSource') {
+ $classname eq
'pf::Authentication::Source::LDAPSource' ||
+ $classname eq
'pf::Authentication::Source::SQLSource' ) {
my $username =
$source->username_from_email($email);
diff --git a/lib/pf/temporary_password.pm
b/lib/pf/temporary_password.pm
index f92c096..8c4bdca 100644
--- a/lib/pf/temporary_password.pm
+++ b/lib/pf/temporary_password.pm
@@ -69,7 +69,7 @@ BEGIN {
@EXPORT_OK = qw(
view add modify
- create
+ create match_by_mail
validate_password
$AUTH_SUCCESS $AUTH_FAILED_INVALID
$AUTH_FAILED_EXPIRED $AUTH_FAILED_NOT_YET_VALID
);
@@ -140,6 +140,12 @@ sub temporary_password_db_prepare {
UPDATE temporary_password SET password = ? WHERE
pid = ?
]);
+
$temporary_password_statements->{'temporary_password_match_by_mail_sql'}
= get_db_handle()->prepare(qq[
+ SELECT pid
+ FROM temporary_password
+ WHERE mail = ?
+ ]);
+
$temporary_password_db_prepared = 1;
}
@@ -445,6 +451,28 @@ sub reset_password {
) || return;
}
+=item match_by_mail
+
+Return the username
+
+=cut
+
+sub match_by_mail {
+ my ($mail) = @_;
+ my $query = db_query_execute(
+ TEMPORARY_PASSWORD,
$temporary_password_statements,
'temporary_password_match_by_mail_sql', $mail
+ ) || return;
+ my $ref = $query->fetchrow_hashref();
+
+ # just get one row and finish
+ $query->finish();
+ if (defined($ref)) {
+ return ($ref);
+ } else {
+ return undef;
+ }
+}
+
=back
Regards
Fabrice
Le 2013-06-20 08:49, matthew vassallo a écrit :
Hi Fabrice,
Kindly can you explain how do I need to do that
exactly please? I have to add a local sponsor (no AD
or that). I went to sources and there is Htpasswd file
which is pointing too admin.conf (this does not exist
in /usrl/local/pf/conf and had to add it myself). When
I added a rule there and marked the user as sponsor,
it sill did not work. All other sources do not make
sense. I also tried adding a rule in email source but
still did not work.
Date: Thu, 20 Jun 2013
08:23:57 -0400
From: [email protected]
To: [email protected]
Subject: Re: [PacketFence-users] Email
<e-mail> is not allowed to sponsor guest
access
Hello Matthew,
in source you have to set a sponsor in the rule.
Regards
Fabrice
Le 2013-06-20 03:10, matthew vassallo a écrit :
Hi,
I am having a problem in adding a sponsor
in PF. When
the client clicks on Register via a
Sponsor, he gets the following message - "Email
<e-mail> is not
allowed to sponsor guest access". In the
previous version I had to add user.conf
file in /usr/local/pf/conf/ path and add
the required sponsor there. In this
version such method does not work. Kindly
can you explain what I need to do please?
Thanks
Regards,
Matthew
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
--
Fabrice Durand
[email protected] :: +1.514.447.4918 (x135) :: www.inverse.ca
Inverse inc. :: Leaders behind SOGo (http://www.sogo.nu) and PacketFence
(http://packetfence.org)
------------------------------------------------------------------------------
This
SF.net email is sponsored by Windows: Build for
Windows Store. http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
--
Fabrice Durand
[email protected] :: +1.514.447.4918 (x135) :: www.inverse.ca
Inverse inc. :: Leaders behind SOGo (http://www.sogo.nu) and PacketFence
(http://packetfence.org)
------------------------------------------------------------------------------
This
SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
--
Fabrice Durand
[email protected] :: +1.514.447.4918 (x135) :: www.inverse.ca
Inverse inc. :: Leaders behind SOGo (http://www.sogo.nu) and PacketFence
(http://packetfence.org)
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
PacketFence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
