CPAN-Testers-WWW-Admin
view release on metacpan or search on metacpan
vhost/cgi-bin/templates/content/author-testers.html
vhost/cgi-bin/templates/content/edit-tester.html
vhost/cgi-bin/templates/content/moreinfo.html
vhost/cgi-bin/templates/content/tester-admin.html
vhost/cgi-bin/templates/content/tester-assign.html
vhost/cgi-bin/templates/content/tester-browse.html
vhost/cgi-bin/templates/content/tester-confirm.html
vhost/cgi-bin/templates/content/tester-dist.html
vhost/cgi-bin/templates/content/tester-find.html
vhost/cgi-bin/templates/content/tester-list.html
vhost/cgi-bin/templates/content/tester-locked.html
vhost/cgi-bin/templates/content/tester-merge.html
vhost/cgi-bin/templates/content/tester-reports.html
vhost/cgi-bin/templates/content/tester-unconfirmed.html
vhost/cgi-bin/templates/content/welcome-admin.html
vhost/cgi-bin/templates/content/welcome-author.html
vhost/cgi-bin/templates/content/welcome.html
vhost/cgi-bin/templates/content/welcome-tester.html
vhost/cgi-bin/templates/hits/hits_admin.html
vhost/cgi-bin/templates/hits/hits.html
vhost/cgi-bin/templates/images/imagesblock.html
vhost/cgi-bin/templates/users/user-adminlist.html
vhost/cgi-bin/templates/users/user-announce.html
vhost/cgi-bin/templates/users/user-badreset.html
vhost/cgi-bin/templates/users/user-chng.html
vhost/cgi-bin/templates/users/user-confirm.html
vhost/cgi-bin/templates/users/user-edit.html
vhost/cgi-bin/templates/users/user-failure.html
vhost/cgi-bin/templates/users/user-forgot.html
vhost/cgi-bin/templates/users/user-item.html
vhost/cgi-bin/templates/users/user-list.html
vhost/cgi-bin/templates/users/user-locked.html
vhost/cgi-bin/templates/users/user-login-author.html
vhost/cgi-bin/templates/users/user-login.html
vhost/cgi-bin/templates/users/user-login-tester.html
vhost/cgi-bin/templates/users/user-pass.html
vhost/cgi-bin/templates/users/user-registered.html
vhost/cgi-bin/templates/users/user-registration.html
vhost/cgi-bin/templates/users/user-unconfirmed.html
vhost/dumper.sh
vhost/examples/cpantesters-email.png
vhost/favicon-red.png
lib/Labyrinth/Plugin/CPAN/Tester.pm view on Meta::CPAN
$tvars{pager}{next} = $rows[-1]->{guid} if(@next && $next[-1]->{count} > 0);
}
}
=head2 Tester Email Interface Methods
=over 4
=item CheckLock
Checks whether the specified user account is currently locked.
=item Lock
Tester has just registered on the site, lock the user profile until email is
confirmed.
=item UnLock
Tester has clicked registration confirmation link, and logged in successfully,
unlock the user profile.
lib/Labyrinth/Plugin/CPAN/Tester.pm view on Meta::CPAN
List verified email addresses for specified tester.
=back
=cut
sub CheckLock {
my $userid = $tvars{'loginid'};
my @row = $dbi->GetQuery('hash','GetUserByID',$userid);
return if(@row && !$row[0]->{locked});
Labyrinth::Session::Logout();
$tvars{redirect} = '';
SetCommand('tester-locked');
}
sub Lock {
return unless RealmCheck('public','tester','admin');
my $userid = $cgiparams{'userid'};
$userid = $tvars{user}{tester} if($tvars{realm} eq 'admin' && $tvars{user}{tester});
$dbi->DoQuery('LockUser',$userid);
$dbi->DoQuery('SetRealm','tester',$userid);
my $user = GetUser($userid);
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
PageHits=SELECT h.* \
FROM hits AS h \
WHERE h.pageid=0 AND h.photoid=0 \
ORDER BY h.counter DESC,h.pageid LIMIT 20
PageHits2=SELECT NULL
AllHits=SELECT * FROM hits
DeleteHits=DELETE FROM hits WHERE pageid=? AND area=? AND photoid=?
CheckUser=SELECT userid,nickname,realname,realm,locked FROM users WHERE email=? AND password=SHA1(?)
CheckUserOld=SELECT userid,nickname,realname,realm,locked FROM users WHERE email=? AND password=OLD_PASSWORD(?)
CreateSession=INSERT INTO sessions (timeout,name,userid,realm,folderid,langcode,optionid,labyrinth) VALUES (?,?,?,?,1,?,?,?)
UpdateSession=UPDATE sessions SET $field=? WHERE labyrinth=?
UpdateSessionX=UPDATE sessions SET timeout=?,name=?,userid=?,realm=?,langcode=?,optionid=? WHERE labyrinth=?
CheckSession=SELECT userid,name,realm,folderid FROM sessions WHERE labyrinth=?
TimeStampSession=UPDATE sessions SET timeout=? WHERE labyrinth=?
DeleteSessions=DELETE FROM sessions WHERE timeout < ?
DeleteSession=DELETE FROM sessions WHERE labyrinth=?
CountSessions=SELECT DISTINCT s.userid,s.name as realname FROM sessions AS s \
LEFT JOIN users AS u ON u.userid=s.userid
RetrieveSession=SELECT query FROM sessions WHERE labyrinth=?
vhost/cgi-bin/config/phrasebook.ini view on Meta::CPAN
AllUsers=SELECT * FROM users
NewUser=INSERT INTO users (password,accessid,search,nickname,realname,email,imageid,realm) \
VALUES (SHA1(?),?,?,?,?,?,?,?)
SaveUser=UPDATE users SET nickname=?,realname=?,email=?,imageid=?,realm=? WHERE userid=?
DeleteUser=DELETE FROM users WHERE userid IN ($ids)
ChangePassword=UPDATE users SET password=SHA1(?) WHERE userid=?
BanUser=UPDATE users SET password=? WHERE userid in ($ids)
FindUser=SELECT userid,password,realname FROM users WHERE email = ?
LockUser=UPDATE users SET locked=1 WHERE userid=?
UnLockUser=UPDATE users SET locked=0 WHERE userid=?
SetRealm=UPDATE users SET realm=? WHERE userid=?
FindIPAddress=SELECT * FROM ipindex WHERE ipaddr=?
AddIPAddress=INSERT INTO ipindex (author,type,ipaddr) VALUES (?,?,?)
SaveIPAddress=UPDATE ipindex SET author=?,type=? WHERE ipaddr=?
GetTesterAddress=SELECT * FROM ixtester WHERE userid=? AND confirmed=1
GetTesterAddressIndex=SELECT xa.id FROM testers.ixreport AS xa \
INNER JOIN testers.address AS ta ON xa.addressid = ta.addressid \
INNER JOIN ixtester AS xt ON ta.email = xt.email \
vhost/cgi-bin/config/requests/error.ini view on Meta::CPAN
content=public/badmail.html
[message]
actions=
content=public/error_message.html
[login]
actions=Users::Store
content=users/user-login.html
[locked]
actions=
content=users/user-locked.html
vhost/cgi-bin/config/requests/tester.ini view on Meta::CPAN
onerror=user-edit
[confirm]
actions=CPAN::Tester::Confirm
content=content/tester-confirm.html
[unconfirmed]
actions=
content=content/tester-unconfirmed.html
[locked]
actions=
content=content/tester-locked.html
## Admin commands
[admin]
actions=CPAN::Tester::Admin,Users::UserLists
content=content/tester-admin.html
[imposter]
actions=CPAN::Tester::Imposter,CPAN::Rename
onsuccess=home-main
vhost/cgi-bin/db/cpanadmin-schema.sql view on Meta::CPAN
CREATE TABLE `users` (
`userid` int(10) unsigned NOT NULL AUTO_INCREMENT,
`accessid` int(10) unsigned NOT NULL DEFAULT '1',
`imageid` int(10) unsigned NOT NULL DEFAULT '1',
`nickname` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`realname` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`email` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`realm` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`password` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`url` varchar(255) COLLATE utf8_unicode_ci DEFAULT NULL,
`locked` int(2) DEFAULT '1',
`aboutme` blob,
PRIMARY KEY (`userid`)
) ENGINE=MyISAM AUTO_INCREMENT=4 DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
/*!40101 SET character_set_client = @saved_cs_client */;
--
-- Dumping data for table `users`
--
INSERT INTO `users` VALUES (1,5,1,'','Admin','admin@cpantesters.org','admin',SECRET,'',0,'');
vhost/cgi-bin/templates/content/tester-locked.html view on Meta::CPAN
[%
title = 'Registration' ;
crumb1_name = 'Registration' ;
%]
<div class="box">
<p>Unfortunately this user account is locked, and is awaiting confirmation
that it has been legitimately registered. If you registered this account,
please check your email folders for a confirmation email from us. Click
the link within the email, and follow the instructions within the web
browser. Thank you.</p>
</div>
vhost/cgi-bin/templates/users/user-locked.html view on Meta::CPAN
[%
title = 'Registration' ;
crumb1_name = 'Registration' ;
%]
<div class="box">
<p>Unfortunately this user account is locked, and is awaiting confirmation
that it has been legitimately registered. If you registered this account,
please check your email folders for a confirmation email from us. Click
the link within the email, and follow the instructions within the web
browser. Thank you.</p>
</div>
( run in 0.690 second using v1.01-cache-2.11-cpan-49f99fa48dc )