@ -153,7 +153,9 @@ plugin I18N => {
# Load mailer plugin with its default values
# Load mailer plugin with its default values
plugin Mailer = > {
plugin Mailer = > {
from = > $ config - > { emailFrom } ,
from = > $ config - > { emailFrom } ,
transport = > Email::Sender::Transport::Sendmail - > new ( { sendmail = > $ config - > { sendmail } } ) ,
transport = > Email::Sender::Transport::Sendmail - > new ( {
sendmail = > $ config - > { sendmail }
} )
} ;
} ;
# Wrapper arround DBI
# Wrapper arround DBI
@ -173,8 +175,10 @@ helper login => sub {
my $ self = shift ;
my $ self = shift ;
return if $ self - > session ( 'name' ) ;
return if $ self - > session ( 'name' ) ;
my $ login = $ ENV { 'REMOTE_USER' } || lc $ self - > get_random ( 29 ) ;
my $ login = $ ENV { 'REMOTE_USER' } || lc $ self - > get_random ( 29 ) ;
$ self - > session ( name = > $ login ,
$ self - > session (
ip = > $ self - > tx - > remote_address ) ;
name = > $ login ,
ip = > $ self - > tx - > remote_address
) ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " logged in from " . $ self - > tx - > remote_address ) ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " logged in from " . $ self - > tx - > remote_address ) ;
} ;
} ;
@ -197,8 +201,10 @@ helper create_room => sub {
my ( $ name , $ owner ) = @ _ ;
my ( $ name , $ owner ) = @ _ ;
$ name = lc $ name unless ( $ name eq lc $ name ) ;
$ name = lc $ name unless ( $ name eq lc $ name ) ;
# Exit if the name isn't valid or already taken
# Exit if the name isn't valid or already taken
return undef if ( $ self - > get_room ( $ name ) || ! $ self - > valid_room_name ( $ name ) ) ;
return undef if ( $ self - > get_room ( $ name ) || ! $ self - > valid_room_name ( $ name ) ) ;
my $ sth = eval { $ self - > db - > prepare ( "INSERT INTO `rooms` (`name`,`create_timestamp`,`activity_timestamp`,`owner`,`token`,`realm`) VALUES (?,?,?,?,?,?);" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "INSERT INTO `rooms` (`name`,`create_timestamp`,`activity_timestamp`,`owner`,`token`,`realm`) VALUES (?,?,?,?,?,?);" )
} || return undef ;
# Gen a random token. Will be used as a turnPassword
# Gen a random token. Will be used as a turnPassword
my $ tp = $ self - > get_random ( 49 ) ;
my $ tp = $ self - > get_random ( 49 ) ;
$ sth - > execute ( $ name , time ( ) , time ( ) , $ owner , $ tp , $ config - > { realm } ) || return undef ;
$ sth - > execute ( $ name , time ( ) , time ( ) , $ owner , $ tp , $ config - > { realm } ) || return undef ;
@ -214,7 +220,9 @@ helper create_room => sub {
helper get_room = > sub {
helper get_room = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ name ) = @ _ ;
my ( $ name ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `name`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `name`=?;" )
} || return undef ;
$ sth - > execute ( $ name ) || return undef ;
$ sth - > execute ( $ name ) || return undef ;
return $ sth - > fetchall_hashref ( 'name' ) - > { $ name } ;
return $ sth - > fetchall_hashref ( 'name' ) - > { $ name } ;
} ;
} ;
@ -223,7 +231,9 @@ helper get_room => sub {
helper get_room_by_id = > sub {
helper get_room_by_id = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ id ) = @ _ ;
my ( $ id ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `id`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `id`=?;" )
} || return undef ;
$ sth - > execute ( $ id ) || return undef ;
$ sth - > execute ( $ id ) || return undef ;
return $ sth - > fetchall_hashref ( 'id' ) - > { $ id } ;
return $ sth - > fetchall_hashref ( 'id' ) - > { $ id } ;
} ;
} ;
@ -235,7 +245,9 @@ helper lock_room => sub {
my ( $ name , $ lock ) = @ _ ;
my ( $ name , $ lock ) = @ _ ;
return undef unless ( % { $ self - > get_room ( $ name ) } ) ;
return undef unless ( % { $ self - > get_room ( $ name ) } ) ;
return undef unless ( $ lock =~ m/^0|1$/ ) ;
return undef unless ( $ lock =~ m/^0|1$/ ) ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `locked`=? WHERE `name`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `locked`=? WHERE `name`=?;" )
} || return undef ;
$ sth - > execute ( $ lock , $ name ) || return undef ;
$ sth - > execute ( $ lock , $ name ) || return undef ;
my $ action = ( $ lock eq '1' ) ? 'locked' : 'unlocked' ;
my $ action = ( $ lock eq '1' ) ? 'locked' : 'unlocked' ;
$ self - > app - > log - > info ( "room $name $action by " . $ self - > session ( 'name' ) ) ;
$ self - > app - > log - > info ( "room $name $action by " . $ self - > session ( 'name' ) ) ;
@ -248,7 +260,9 @@ helper add_participant => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ name , $ participant ) = @ _ ;
my ( $ name , $ participant ) = @ _ ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ sth = eval { $ self - > db - > prepare ( "INSERT IGNORE INTO `participants` (`id`,`participant`,`activity_timestamp`) VALUES (?,?,?);" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "INSERT IGNORE INTO `participants` (`id`,`participant`,`activity_timestamp`) VALUES (?,?,?);" )
} || return undef ;
$ sth - > execute ( $ room - > { id } , $ participant , time ( ) ) || return undef ;
$ sth - > execute ( $ room - > { id } , $ participant , time ( ) ) || return undef ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " joined the room $name" ) ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " joined the room $name" ) ;
return 1 ;
return 1 ;
@ -259,7 +273,9 @@ helper remove_participant => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ name , $ participant ) = @ _ ;
my ( $ name , $ participant ) = @ _ ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ sth = eval { $ self - > db - > prepare ( "DELETE FROM `participants` WHERE `id`=? AND `participant`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "DELETE FROM `participants` WHERE `id`=? AND `participant`=?;" )
} || return undef ;
$ sth - > execute ( $ room - > { id } , $ participant ) || return undef ;
$ sth - > execute ( $ room - > { id } , $ participant ) || return undef ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " leaved the room $name" ) ;
$ self - > app - > log - > info ( $ self - > session ( 'name' ) . " leaved the room $name" ) ;
return 1 ;
return 1 ;
@ -270,7 +286,9 @@ helper get_participants => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ name ) = @ _ ;
my ( $ name ) = @ _ ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ room = $ self - > get_room ( $ name ) || return undef ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT `participant` FROM `participants` WHERE `id`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT `participant` FROM `participants` WHERE `id`=?;" )
} || return undef ;
$ sth - > execute ( $ room - > { id } ) || return undef ;
$ sth - > execute ( $ room - > { id } ) || return undef ;
my @ res ;
my @ res ;
while ( my @ row = $ sth - > fetchrow_array ) {
while ( my @ row = $ sth - > fetchrow_array ) {
@ -284,10 +302,14 @@ helper set_peer_role => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ room , $ name , $ id , $ role ) = @ _ ;
my ( $ room , $ name , $ id , $ role ) = @ _ ;
# Check if this ID isn't the one from another peer first
# Check if this ID isn't the one from another peer first
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `participants` WHERE `peer_id`=? AND `participant`!=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `participants` WHERE `peer_id`=? AND `participant`!=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" )
} || return undef ;
$ sth - > execute ( $ id , $ name , $ room ) || return undef ;
$ sth - > execute ( $ id , $ name , $ room ) || return undef ;
return undef if ( $ sth - > rows > 0 ) ;
return undef if ( $ sth - > rows > 0 ) ;
$ sth = eval { $ self - > db - > prepare ( "UPDATE `participants` SET `peer_id`=?,`role`=? WHERE `participant`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" ) } || return undef ;
$ sth = eval {
$ self - > db - > prepare ( "UPDATE `participants` SET `peer_id`=?,`role`=? WHERE `participant`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" )
} || return undef ;
$ sth - > execute ( $ id , $ role , $ name , $ room ) || return undef ;
$ sth - > execute ( $ id , $ role , $ name , $ room ) || return undef ;
$ self - > app - > log - > info ( "User $name (peer id $id) has now the $role role in room $room" ) ;
$ self - > app - > log - > info ( "User $name (peer id $id) has now the $role role in room $room" ) ;
return 1 ;
return 1 ;
@ -297,7 +319,9 @@ helper set_peer_role => sub {
helper get_peer_role = > sub {
helper get_peer_role = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ room , $ id ) = @ _ ;
my ( $ room , $ id ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT `role` FROM `participants` WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT `role` FROM `participants` WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" )
} || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
if ( $ sth - > rows == 1 ) {
if ( $ sth - > rows == 1 ) {
my ( $ role ) = $ sth - > fetchrow_array ( ) ;
my ( $ role ) = $ sth - > fetchrow_array ( ) ;
@ -312,10 +336,14 @@ helper get_peer_role => sub {
helper promote_peer = > sub {
helper promote_peer = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ room , $ id ) = @ _ ;
my ( $ room , $ id ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `participants` WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `participants` WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" )
} || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
return undef if ( $ sth - > rows != 1 ) ;
return undef if ( $ sth - > rows != 1 ) ;
$ sth = eval { $ self - > db - > prepare ( "UPDATE `participants` SET `role`='owner' WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" ) } || return undef ;
$ sth = eval {
$ self - > db - > prepare ( "UPDATE `participants` SET `role`='owner' WHERE `peer_id`=? AND `id` IN (SELECT `id` FROM `rooms` WHERE `name`=?)" )
} || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
$ sth - > execute ( $ id , $ room ) || return undef ;
return 1 ;
return 1 ;
} ;
} ;
@ -326,7 +354,9 @@ helper has_joined => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ session , $ name ) = @ _ ;
my ( $ session , $ name ) = @ _ ;
my $ ret = 0 ;
my $ ret = 0 ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `name`=? AND `id` IN (SELECT `id` FROM `participants` WHERE `participant`=?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `rooms` WHERE `name`=? AND `id` IN (SELECT `id` FROM `participants` WHERE `participant`=?)" )
} || return undef ;
$ sth - > execute ( $ name , $ session ) || return undef ;
$ sth - > execute ( $ name , $ session ) || return undef ;
$ ret = 1 if ( $ sth - > rows > 0 ) ;
$ ret = 1 if ( $ sth - > rows > 0 ) ;
return $ ret ;
return $ ret ;
@ -336,7 +366,9 @@ helper has_joined => sub {
helper delete_participants = > sub {
helper delete_participants = > sub {
my $ self = shift ;
my $ self = shift ;
$ self - > app - > log - > debug ( 'Removing inactive participants from the database' ) ;
$ self - > app - > log - > debug ( 'Removing inactive participants from the database' ) ;
my $ sth = eval { $ self - > db - > prepare ( "DELETE FROM participants WHERE (`activity_timestamp` < 7200 OR `activity_timestamp` IS NULL);" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "DELETE FROM `participants` WHERE (`activity_timestamp` < 7200 OR `activity_timestamp` IS NULL);" )
} || return undef ;
$ sth - > execute ( ) || return undef ;
$ sth - > execute ( ) || return undef ;
return 1 ;
return 1 ;
} ;
} ;
@ -346,13 +378,17 @@ helper delete_rooms => sub {
my $ self = shift ;
my $ self = shift ;
$ self - > app - > log - > debug ( 'Removing unused rooms' ) ;
$ self - > app - > log - > debug ( 'Removing unused rooms' ) ;
my $ timeout = time ( ) - $ config - > { inactivityTimeout } ;
my $ timeout = time ( ) - $ config - > { inactivityTimeout } ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT `name` FROM rooms WHERE `activity_timestamp` < $timeout AND `persistent`='0';" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT `name` FROM `rooms` WHERE `activity_timestamp` < $timeout AND `persistent`='0';" )
} || return undef ;
$ sth - > execute ( ) ;
$ sth - > execute ( ) ;
my @ toDeleteName = $ sth - > fetchrow_array ;
my @ toDeleteName = $ sth - > fetchrow_array ;
my @ toDeleteId = ( ) ;
my @ toDeleteId = ( ) ;
if ( $ config - > { persistentInactivityTimeout } > 0 ) {
if ( $ config - > { persistentInactivityTimeout } > 0 ) {
$ timeout = time ( ) - $ config - > { persistentInactivityTimeout } ;
$ timeout = time ( ) - $ config - > { persistentInactivityTimeout } ;
$ sth = eval { $ self - > db - > prepare ( "SELECT `name` FROM rooms WHERE `activity_timestamp` < $timeout AND `persistent`='1';" ) } || return undef ;
$ sth = eval {
$ self - > db - > prepare ( "SELECT `name` FROM `rooms` WHERE `activity_timestamp` < $timeout AND `persistent`='1';" )
} || return undef ;
$ sth - > execute ( ) ;
$ sth - > execute ( ) ;
while ( my $ room = $ sth - > fetchrow_array ) {
while ( my $ room = $ sth - > fetchrow_array ) {
push @ toDeleteName , $ room ;
push @ toDeleteName , $ room ;
@ -427,9 +463,13 @@ helper ping_room => sub {
my ( $ name ) = @ _ ;
my ( $ name ) = @ _ ;
my $ data = $ self - > get_room ( $ name ) ;
my $ data = $ self - > get_room ( $ name ) ;
return undef unless ( $ data ) ;
return undef unless ( $ data ) ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `activity_timestamp`=? WHERE `id`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `activity_timestamp`=? WHERE `id`=?;" )
} || return undef ;
$ sth - > execute ( time ( ) , $ data - > { id } ) || return undef ;
$ sth - > execute ( time ( ) , $ data - > { id } ) || return undef ;
$ sth = eval { $ self - > db - > prepare ( "UPDATE `participants` SET `activity_timestamp`=? WHERE `id`=? AND `participant`=?;" ) } || return undef ;
$ sth = eval {
$ self - > db - > prepare ( "UPDATE `participants` SET `activity_timestamp`=? WHERE `id`=? AND `participant`=?;" )
} || return undef ;
$ sth - > execute ( time ( ) , $ data - > { id } , $ self - > session ( 'name' ) ) || return undef ;
$ sth - > execute ( time ( ) , $ data - > { id } , $ self - > session ( 'name' ) ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " pinged the room $name" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " pinged the room $name" ) ;
return 1 ;
return 1 ;
@ -492,7 +532,9 @@ helper set_join_pass => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ room , $ pass ) = @ _ ;
my ( $ room , $ pass ) = @ _ ;
return undef unless ( % { $ self - > get_room ( $ room ) } ) ;
return undef unless ( % { $ self - > get_room ( $ room ) } ) ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `join_password`=? WHERE `name`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `join_password`=? WHERE `name`=?;" )
} || return undef ;
$ pass = ( $ pass ) ? Crypt::SaltedHash - > new ( algorithm = > 'SHA-256' ) - > add ( $ pass ) - > generate : undef ;
$ pass = ( $ pass ) ? Crypt::SaltedHash - > new ( algorithm = > 'SHA-256' ) - > add ( $ pass ) - > generate : undef ;
$ sth - > execute ( $ pass , $ room ) || return undef ;
$ sth - > execute ( $ pass , $ room ) || return undef ;
if ( $ pass ) {
if ( $ pass ) {
@ -513,13 +555,17 @@ helper set_owner_pass => sub {
# For now, setting an owner password makes the room persistant
# For now, setting an owner password makes the room persistant
# Might be separated in the future
# Might be separated in the future
if ( $ pass ) {
if ( $ pass ) {
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `owner_password`=?,`persistent`='1' WHERE `name`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `owner_password`=?,`persistent`='1' WHERE `name`=?;" )
} || return undef ;
my $ pass = Crypt::SaltedHash - > new ( algorithm = > 'SHA-256' ) - > add ( $ pass ) - > generate ;
my $ pass = Crypt::SaltedHash - > new ( algorithm = > 'SHA-256' ) - > add ( $ pass ) - > generate ;
$ sth - > execute ( $ pass , $ room ) || return undef ;
$ sth - > execute ( $ pass , $ room ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has set an owner password on room $room, which is now persistent" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has set an owner password on room $room, which is now persistent" ) ;
}
}
else {
else {
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `owner_password`=?,`persistent`='0' WHERE `name`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `owner_password`=?,`persistent`='0' WHERE `name`=?;" )
} || return undef ;
$ sth - > execute ( undef , $ room ) || return undef ;
$ sth - > execute ( undef , $ room ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has removed the owner password on room $room, which is not persistent anymore" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has removed the owner password on room $room, which is not persistent anymore" ) ;
}
}
@ -531,7 +577,9 @@ helper add_notification => sub {
my ( $ room , $ email ) = @ _ ;
my ( $ room , $ email ) = @ _ ;
my $ data = $ self - > get_room ( $ room ) ;
my $ data = $ self - > get_room ( $ room ) ;
return undef unless ( $ data ) ;
return undef unless ( $ data ) ;
my $ sth = eval { $ self - > db - > prepare ( "INSERT INTO `notifications` (`id`,`email`) VALUES (?,?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "INSERT INTO `notifications` (`id`,`email`) VALUES (?,?)" )
} || return undef ;
$ sth - > execute ( $ data - > { id } , $ email ) || return undef ;
$ sth - > execute ( $ data - > { id } , $ email ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has added $email to the list of email which will be notified when someone joins room $room" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has added $email to the list of email which will be notified when someone joins room $room" ) ;
return 1 ;
return 1 ;
@ -542,7 +590,9 @@ helper get_notification => sub {
my $ self = shift ;
my $ self = shift ;
my ( $ room ) = @ _ ;
my ( $ room ) = @ _ ;
$ room = $ self - > get_room ( $ room ) || return undef ;
$ room = $ self - > get_room ( $ room ) || return undef ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT `email` FROM `notifications` WHERE `id`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT `email` FROM `notifications` WHERE `id`=?;" )
} || return undef ;
$ sth - > execute ( $ room - > { id } ) || return undef ;
$ sth - > execute ( $ room - > { id } ) || return undef ;
my @ res ;
my @ res ;
while ( my @ row = $ sth - > fetchrow_array ) {
while ( my @ row = $ sth - > fetchrow_array ) {
@ -557,7 +607,9 @@ helper remove_notification => sub {
my ( $ room , $ email ) = @ _ ;
my ( $ room , $ email ) = @ _ ;
my $ data = $ self - > get_room ( $ room ) ;
my $ data = $ self - > get_room ( $ room ) ;
return undef unless ( $ data ) ;
return undef unless ( $ data ) ;
my $ sth = eval { $ self - > db - > prepare ( "DELETE FROM `notifications` WHERE `id`=? AND `email`=?" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "DELETE FROM `notifications` WHERE `id`=? AND `email`=?" )
} || return undef ;
$ sth - > execute ( $ data - > { id } , $ email ) || return undef ;
$ sth - > execute ( $ data - > { id } , $ email ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has removed $email from the list of email which are notified when someone joins room $room" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has removed $email from the list of email which are notified when someone joins room $room" ) ;
return 1 ;
return 1 ;
@ -570,7 +622,9 @@ helper ask_for_name => sub {
my ( $ room , $ set ) = @ _ ;
my ( $ room , $ set ) = @ _ ;
my $ data = $ self - > get_room ( $ room ) ;
my $ data = $ self - > get_room ( $ room ) ;
return undef unless ( $ data ) ;
return undef unless ( $ data ) ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `ask_for_name`=? WHERE `name`=?" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `ask_for_name`=? WHERE `name`=?" )
} || return undef ;
$ sth - > execute ( $ set , $ room ) || return undef ;
$ sth - > execute ( $ set , $ room ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has configured room $room to ask for a name before joining it" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has configured room $room to ask for a name before joining it" ) ;
return 1 ;
return 1 ;
@ -591,7 +645,9 @@ helper add_invitation => sub {
my $ data = $ self - > get_room ( $ room ) ;
my $ data = $ self - > get_room ( $ room ) ;
my $ id = $ self - > get_random ( 30 ) ;
my $ id = $ self - > get_random ( 30 ) ;
return undef unless ( $ data ) ;
return undef unless ( $ data ) ;
my $ sth = eval { $ self - > db - > prepare ( "INSERT INTO `invitations` (`id`,`from`,`token`,`email`,`timestamp`) VALUES (?,?,?,?,?)" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "INSERT INTO `invitations` (`id`,`from`,`token`,`email`,`timestamp`) VALUES (?,?,?,?,?)" )
} || return undef ;
$ sth - > execute ( $ data - > { id } , $ from , $ id , $ email , time ( ) ) || return undef ;
$ sth - > execute ( $ data - > { id } , $ from , $ id , $ email , time ( ) ) || return undef ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has invited $email to join room $room" ) ;
$ self - > app - > log - > debug ( $ self - > session ( 'name' ) . " has invited $email to join room $room" ) ;
return $ id ;
return $ id ;
@ -602,7 +658,9 @@ helper add_invitation => sub {
helper get_invitation = > sub {
helper get_invitation = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ id ) = @ _ ;
my ( $ id ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `invitations` WHERE `token`=? AND `processed`='0';" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `invitations` WHERE `token`=? AND `processed`='0';" )
} || return undef ;
$ sth - > execute ( $ id ) || return undef ;
$ sth - > execute ( $ id ) || return undef ;
return $ sth - > fetchall_hashref ( 'token' ) - > { $ id } ;
return $ sth - > fetchall_hashref ( 'token' ) - > { $ id } ;
} ;
} ;
@ -610,11 +668,13 @@ helper get_invitation => sub {
# Find invitations which have a unprocessed repsponse
# Find invitations which have a unprocessed repsponse
helper find_invitations = > sub {
helper find_invitations = > sub {
my $ self = shift ;
my $ self = shift ;
my $ sth = eval { $ self - > db - > prepare ( "SELECT `token` FROM `invitations` WHERE `from`=? AND `response` IS NOT NULL AND `processed`='0';" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT `token` FROM `invitations` WHERE `from`=? AND `response` IS NOT NULL AND `processed`='0';" )
} || return undef ;
$ sth - > execute ( $ self - > session ( 'name' ) ) || return undef ;
$ sth - > execute ( $ self - > session ( 'name' ) ) || return undef ;
my @ res ;
my @ res ;
while ( my @ row = $ sth - > fetchrow_array ) {
while ( my $ invit = $ sth - > fetchrow_array ) {
push @ res , $ row [ 0 ] ;
push @ res , $ invit ;
}
}
return @ res ;
return @ res ;
} ;
} ;
@ -622,7 +682,9 @@ helper find_invitations => sub {
helper respond_invitation = > sub {
helper respond_invitation = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ id , $ response , $ message ) = @ _ ;
my ( $ id , $ response , $ message ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `invitations` SET `response`=?,`message`=? WHERE `token`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `invitations` SET `response`=?,`message`=? WHERE `token`=?;" )
} || return undef ;
$ sth - > execute ( $ response , $ message , $ id ) || return undef ;
$ sth - > execute ( $ response , $ message , $ id ) || return undef ;
return 1 ;
return 1 ;
} ;
} ;
@ -631,7 +693,9 @@ helper respond_invitation => sub {
helper processed_invitation = > sub {
helper processed_invitation = > sub {
my $ self = shift ;
my $ self = shift ;
my ( $ id ) = @ _ ;
my ( $ id ) = @ _ ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `invitations` SET `processed`='1' WHERE `token`=?;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `invitations` SET `processed`='1' WHERE `token`=?;" )
} || return undef ;
$ sth - > execute ( $ id ) || return undef ;
$ sth - > execute ( $ id ) || return undef ;
return 1 ;
return 1 ;
} ;
} ;
@ -642,7 +706,9 @@ helper delete_invitations => sub {
$ self - > app - > log - > debug ( 'Removing expired invitations' ) ;
$ self - > app - > log - > debug ( 'Removing expired invitations' ) ;
# Invitation older than 2 hours doesn't make much sense
# Invitation older than 2 hours doesn't make much sense
my $ timeout = time ( ) - 7200 ;
my $ timeout = time ( ) - 7200 ;
my $ sth = eval { $ self - > db - > prepare ( "DELETE FROM `invitations` WHERE `timestamp` < $timeout;" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "DELETE FROM `invitations` WHERE `timestamp` < $timeout;" )
} || return undef ;
$ sth - > execute ( ) || return undef ;
$ sth - > execute ( ) || return undef ;
return 1 ;
return 1 ;
} ;
} ;
@ -659,7 +725,9 @@ helper check_invite_token => sub {
if ( ! $ data || ! $ token ) {
if ( ! $ data || ! $ token ) {
return undef ;
return undef ;
}
}
my $ sth = eval { $ self - > db - > prepare ( "SELECT * FROM `invitations` WHERE id=? AND token=? AND (`response` IS NULL OR `response`='later');" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "SELECT * FROM `invitations` WHERE `id`=? AND `token`=? AND (`response` IS NULL OR `response`='later');" )
} || return undef ;
$ sth - > execute ( $ data - > { id } , $ token ) || return undef ;
$ sth - > execute ( $ data - > { id } , $ token ) || return undef ;
if ( $ sth - > rows == 1 ) {
if ( $ sth - > rows == 1 ) {
$ ret = 1 ;
$ ret = 1 ;
@ -681,7 +749,9 @@ helper create_pad => sub {
if ( ! $ data - > { etherpad_group } ) {
if ( ! $ data - > { etherpad_group } ) {
my $ group = $ ec - > create_group ( ) || undef ;
my $ group = $ ec - > create_group ( ) || undef ;
return undef unless ( $ group ) ;
return undef unless ( $ group ) ;
my $ sth = eval { $ self - > db - > prepare ( "UPDATE `rooms` SET `etherpad_group`=? WHERE `name`='$room';" ) } || return undef ;
my $ sth = eval {
$ self - > db - > prepare ( "UPDATE `rooms` SET `etherpad_group`=? WHERE `name`='$room';" )
} || return undef ;
$ sth - > execute ( $ group ) || return undef ;
$ sth - > execute ( $ group ) || return undef ;
$ data = $ self - > get_room ( $ room ) ;
$ data = $ self - > get_room ( $ room ) ;
}
}
@ -728,6 +798,7 @@ get '/about' => sub {
get '/help' = > 'help' ;
get '/help' = > 'help' ;
# Route for the admin page
# Route for the admin page
# This one displas the details of a room
get '/admin/(:room)' = > sub {
get '/admin/(:room)' = > sub {
my $ self = shift ;
my $ self = shift ;
my $ room = $ self - > stash ( 'room' ) ;
my $ room = $ self - > stash ( 'room' ) ;
@ -741,6 +812,7 @@ get '/admin/(:room)' => sub {
}
}
$ self - > stash ( room = > $ room ) ;
$ self - > stash ( room = > $ room ) ;
} = > 'manage_room' ;
} = > 'manage_room' ;
# And this one displays the list of existing rooms
get '/admin' = > sub {
get '/admin' = > sub {
my $ self = shift ;
my $ self = shift ;
$ self - > delete_rooms ;
$ self - > delete_rooms ;