[Cpan-forum-commit] rev 86 - in trunk: . lib/CPAN templates
svn at pti.co.il
svn at pti.co.il
Sat Feb 5 22:38:46 IST 2005
Author: gabor
Date: 2005-02-05 22:38:45 +0200 (Sat, 05 Feb 2005)
New Revision: 86
Added:
trunk/templates/admin_edit_user.tmpl
Modified:
trunk/MANIFEST
trunk/lib/CPAN/Forum.pm
trunk/templates/head.tmpl
trunk/templates/internal_error.tmpl
trunk/templates/users.tmpl
Log:
admin can see the e-mail address of a user
Modified: trunk/MANIFEST
===================================================================
--- trunk/MANIFEST 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/MANIFEST 2005-02-05 20:38:45 UTC (rev 86)
@@ -61,6 +61,7 @@
templates/module_select_form.tmpl
templates/message_in_thread.tmpl
templates/admin.tmpl
+templates/admin_edit_user.tmpl
www/cgi/index.pl
www/robots.txt
Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/lib/CPAN/Forum.pm 2005-02-05 20:38:45 UTC (rev 86)
@@ -614,6 +614,8 @@
mypan
admin
admin_process
+ admin_edit_user
+ admin_edit_user_process
response_form
module_search
selfconfig change_password update_subscription);
@@ -628,6 +630,7 @@
response_form
faq
admin
+ admin_edit_user
mypan selfconfig
search all rss);
@@ -1866,13 +1869,42 @@
$t->output;
}
-sub admin_process {
+sub admin_edit_user_process {
my ($self) = @_;
+ if (not $self->session->param("admin")) {
+ return $self->internal_error("", "restricted_area");
+ }
my $q = $self->query;
+}
+
+sub admin_edit_user {
+ my ($self) = @_;
if (not $self->session->param("admin")) {
return $self->internal_error("", "restricted_area");
}
+ my $q = $self->query;
+ my $username = ${$self->param("path_parameters")}[0] || '';
+ $self->log->debug("admin_edit_user username: '$username'");
+ my ($person) = CPAN::Forum::Users->search(username => $username);
+ if (not $person) {
+ return $self->internal_error("", "no_such_user");
+ }
+
+ my $t = $self->load_tmpl("admin_edit_user.tmpl");
+ $t->param(this_username => $username);
+ $t->param(email => $person->email);
+ $t->output;
+
+}
+
+sub admin_process {
+ my ($self) = @_;
+ if (not $self->session->param("admin")) {
+ return $self->internal_error("", "restricted_area");
+ }
+ my $q = $self->query;
+
if (my ($conf) = CPAN::Forum::Configure->search(field => 'from')) {
$self->log->debug("Old FROM field was " . $conf->value);
$conf->value($q->param('from'));
Added: trunk/templates/admin_edit_user.tmpl
===================================================================
--- trunk/templates/admin_edit_user.tmpl 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/templates/admin_edit_user.tmpl 2005-02-05 20:38:45 UTC (rev 86)
@@ -0,0 +1,28 @@
+<TMPL_INCLUDE NAME="head.tmpl">
+<p id="pageTitle">Edit user information</p>
+
+<TMPL_INCLUDE NAME="navigation.tmpl">
+
+
+<TMPL_IF done>
+<p>
+The information was updated
+</p>
+<TMPL_ELSE>
+<div class="error">
+<TMPL_IF bad_pw_pair>The two passwords mustbe the same<br></TMPL_IF>
+</div>
+
+<p>
+Username: <TMPL_VAR this_username>
+</p>
+<form method="post" action="/">
+<p>
+<input type="hidden" name="rm" value="admin_edit_user_process" />
+E-mail: <input name="email" value="<TMPL_VAR email>" />
+<input type="submit" value="Update user" />
+</p>
+</form>
+</TMPL_IF>
+
+<TMPL_INCLUDE NAME="footer.tmpl">
Modified: trunk/templates/head.tmpl
===================================================================
--- trunk/templates/head.tmpl 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/templates/head.tmpl 2005-02-05 20:38:45 UTC (rev 86)
@@ -8,7 +8,7 @@
<body>
<TMPL_IF test_site_warning>
<p class="warning">Warning: this is a test site, the data here will be deleted.<br />
-For real use, please visit the <a href="http://www.cpanforum.com/">the production site</a>.</p>
+For real use, please visit the <a href="http://www.cpanforum.com/">the live site</a>.</p>
</TMPL_IF>
<p id="pageHeader">CPAN::Forum</p>
Modified: trunk/templates/internal_error.tmpl
===================================================================
--- trunk/templates/internal_error.tmpl 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/templates/internal_error.tmpl 2005-02-05 20:38:45 UTC (rev 86)
@@ -20,6 +20,10 @@
Restricted area. How did you get here ?
</TMPL_IF>
+<TMPL_IF no_such_user>
+No such user.
+</TMPL_IF>
+
<TMPL_IF generic>
<p>
Something went wrong here. The webmaster will be informed and will try to take action.
Modified: trunk/templates/users.tmpl
===================================================================
--- trunk/templates/users.tmpl 2005-02-05 20:08:49 UTC (rev 85)
+++ trunk/templates/users.tmpl 2005-02-05 20:38:45 UTC (rev 86)
@@ -1,5 +1,10 @@
<TMPL_INCLUDE NAME="head.tmpl">
<p id="pageTitle">Recent postings by <TMPL_VAR this_fullname> (<TMPL_VAR this_username>)</p>
+<!--
+First name: <TMPL_VAR fname><br />
+Last name: <TMPL_VAR lname><br />
+-->
+<TMPL_IF admin><a href="/admin_edit_user/<TMPL_VAR this_username>">EDIT</TMPL_IF>
<TMPL_INCLUDE NAME="navigation.tmpl">
More information about the Cpan-forum-commit
mailing list