Permalink
Browse files

changes that were made to the live site but that have not made it bac…

…k to the vcs before I pulled the plug
  • Loading branch information...
1 parent f7b02d2 commit 832fdaf3cf3466dd53c142bdee94201d40c4b079 @szabgab committed Mar 23, 2014
View
@@ -609,12 +609,19 @@ sub cgiapp_prerun {
my $rm = $self->_set_run_mode();
+ if ($rm eq 'login') {
+ $self->prerun_mode('site_is_closed');
+ return;
+ }
if ( any { $rm eq $_ } @free_modes ) {
return;
}
# Redirect to login, if necessary
if ( not $self->session->param('loggedin') ) {
+ $self->prerun_mode('site_is_closed');
+ return;
+
$self->session->param( request => $rm );
if ( $rm eq 'new_post' ) {
my $group = ${ $self->param("path_parameters") }[0];
View
@@ -259,18 +259,20 @@ sub delete_posts_of_users {
my ($self) = @_;
# temporarily hard-coded list of spammers:
- my @users = qw(nationshoes njgoogle wowpowerlvl gdoit shoesgreat jordan2008 pickcounty cnbearing);
+ my @users;
+ #push @users, qw(nationshoes njgoogle wowpowerlvl gdoit shoesgreat jordan2008 pickcounty cnbearing);
#push @users, qw(rainyjin angelae8654 nisha jojokinkaid billy001 papu);
#push @users, qw(bettytalk mcgaha digitss adam01 mili sales3 sindabearing dpibearing yangmayer);
#push @users, qw(salesplaza releasesoft overnightmoney);
- push @users, qw(markettips1 jerseykl);
+ #push @users, qw(markettips1);
+ #push @users, qw(jerseykl);
- my $sql = "DELETE FROM posts WHERE id in (SELECT posts.id FROM posts, users WHERE username ";
- $sql .= "IN(" . join ", ", map {"'$_'"} @users;
- $sql .= ") and posts.uid=users.id)";
+ my $id = 12923;
+ my $sql = "DELETE FROM posts WHERE id = ?";
my $dbh = CPAN::Forum::DBI::db_Main();
- $dbh->do($sql);
+ $dbh->do($sql, undef, $id);
+
return;
}
@@ -37,7 +37,7 @@ sub dist {
my $gr = CPAN::Forum::DB::Groups->info_by( name => $group_name );
if ( not $gr ) {
- $self->log->warning("Invalid group '$group_name'");
+ #$self->log->warning("Invalid group '$group_name'");
return $self->internal_error(
"",
"no_such_group",
@@ -73,6 +73,7 @@ sub notify_admin {
my $msg = "\nUsername: " . $user->{username} . "\n";
# TODO: the admin should be able to configure if she wants to get messages on
+return;
# every new user (field update_on_new_user)
my $admin = CPAN::Forum::DB::Users->info_by( id => 1 );
my %mail = (
View
@@ -0,0 +1,13 @@
+<script type="text/javascript"><!--
+google_ad_client = "ca-pub-7760157643054954";
+/* cpanforum */
+google_ad_slot = "1614778134";
+google_ad_width = 970;
+google_ad_height = 90;
+//-->
+</script>
+<script type="text/javascript"
+src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+</script>
+
+
View
@@ -31,8 +31,10 @@
<a href="/about/">about</a>
<span class="lsep">|</span>
<a href="/stats/">stats</a>
+<!--
<span class="lsep">|</span>
<a href="/search/">search</a>
+-->
</div>
<!--
<div id="topsearch">
@@ -80,4 +82,23 @@
</div>
</div>
+<style>
+.topredirect {
+ background-color: orange;
+ margin-bottom: 10px;
+ padding-bottom: 15px;
+ padding-top: 15px;
+ padding-left: 100px;
+}
+</style>
+<div class="topredirect">
+I wanted to build an awesome place for people to discuss module specific issues, but I don't have any more time
+for this, and there are much better places to discuss Perl-related issues. I'd recommend asking your question on <a href="http://stackoverflow.com/">Stack Overflow</a> or
+on <a href="http://perlmonks.org/">Perl Monks</a>.
+<br>
+If you are looking for a <a href="http://perlmaven.com/perl-tutorial">Perl Programming tutorial</a> or <a href="http://perlweekly.com/">Perl-related news</a>,
+I hope these links will serve you well.
+</div>
+
+[% INCLUDE incl/adsense.tt %]
View
@@ -1,11 +1,9 @@
<div class="links">
<b><a href="/dist/[% group %]">[% group %]</a></b>
[<a href="http://metacpan.org/release/[% group %]">Meta CPAN</a>]
- [<a href="http://search.cpan.org/dist/[% group %]">search.cpan.org</a>]
- [<a href="http://cpan.uwinnipeg.ca/dist/[% group %]">Kobes search</a>]
+
</div>
<div class="links">
-
[<a href="http://rt.cpan.org/NoAuth/Bugs.html?Dist=[% group %]">View and report bugs</a>]
[<a href="http://cpanratings.perl.org/d/[% group %]">Ratings</a>
[% IF rating %]
View
@@ -10,6 +10,7 @@
}
</style>
+<!--
<div id="right_column">
<div class="right_block">
<a href="http://perlweekly.com/">Perl Weekly newsletter</a>
@@ -19,7 +20,8 @@
<div class="right_block">
Would you like to improve your Perl?<br>
- Check out the <a href="http://perl5maven.com/perl-tutorial">Perl Tutorial</a> by Gabor Szabo.
+ Check out the <a href="http://perlmaven.com/perl-tutorial">Perl Tutorial</a> by Gabor Szabo.
</div>
</div>
+-->
[% END %]
View
@@ -87,7 +87,7 @@
<p class="about_title">Development</p>
<div class="blurb">
If you'd like to follow the development of this web site and the
- <a href="http://search.cpan.org/dist/CPAN-Forum/">CPAN::Forum</a> distribution
+ <a href="http://metacpan.org/module/CPAN::Forum/">CPAN::Forum</a> distribution
on CPAN you should know the following things:
</div>
<ul>
@@ -5,8 +5,12 @@
[% INCLUDE incl/header.tt %]
+<h1>The site is closed. Please post your question on <a href="http://stackoverflow.com/">Stack Overflow</a> and use the <b>perl</b> tag.</h1>
+
<p>
+<!--
Temporarily the site is closed for upgrade. Please check back in a few minutes.
+-->
</p>
[% INCLUDE incl/footer.tt %]

0 comments on commit 832fdaf

Please sign in to comment.