Remove /news which has not been updated in 5 years

Author: ranguard

News.md

@@ -70,7 +70,6 @@ sub _routes { (
     [ '/permission/module/:module',         '/module/:module/permissions' ],
 
     [ '/feed/recent',             '/recent.:type',                  $feed_type ],
-    [ '/feed/news',               '/news.:type',                    $feed_type ],
     [ '/feed/author/:author',     '/author/:author/activity.:type', $feed_type ],
     [ '/feed/distribution/:dist', '/dist/:dist/releases.:type',     $feed_type ],
 

lib/MetaCPAN/Middleware/OldUrls.pm

@@ -10,7 +10,6 @@ use HTML::Escape              qw( escape_html );
 use MetaCPAN::Web::RenderUtil qw( render_markdown );
 use MetaCPAN::Web::Types qw( ArrayRef DateTime Enum HashRef Str Undef Uri );
 use Params::ValidationCompiler qw( validation_for );
-use Path::Tiny                 qw( path );
 use XML::FeedPP                ();                     ## no perlimports
 use URI                        ();
 
@@ -59,60 +58,6 @@ sub recent : Private {
     );
 }
 
-sub news_rss : Path('/news.rss') Args(0) {
-    my ( $self, $c ) = @_;
-    $c->detach( 'news', ['rss'] );
-}
-
-sub news_atom : Path('/news.atom') Args(0) {
-    my ( $self, $c ) = @_;
-    $c->detach( 'news', ['atom'] );
-}
-
-sub news : Private {
-    my ( $self, $c, $type ) = @_;
-
-    $c->add_surrogate_key('NEWS');
-    $c->browser_max_age('1h');
-    $c->cdn_max_age('1h');
-
-    my $file = $c->config->{home} . '/News.md';
-    my $news = path($file)->slurp_utf8;
-    $news =~ s/^\s+|\s+$//g;
-    my @entries;
-    foreach my $str ( split /^Title:\s*/m, $news ) {
-        next if $str =~ /^\s*$/;
-
-        my %e;
-        $e{name} = $str =~ s/\A(.+)$//m ? $1 : 'No title';
-
-        # Use the same processing as _Header2Label in
-        # Text::MultiMarkdown
-        my $a_name = lc $e{name};
-        $a_name =~ s/[^A-Za-z0-9:_.-]//g;
-        $a_name =~ s/^[^a-z]+//gi;
-
-        $str =~ s/\A\s*-+//g;
-        $e{date} = $str =~ s/^Date:\s*(.*)$//m ? $1 : '2014-01-01T00:00:00';
-        $e{link}     = '/news';
-        $e{fragment} = $a_name;
-        $e{author}   = 'METACPAN';
-        $str =~ s/^\s*|\s*$//g;
-
-        #$str =~ s{\[([^]]+)\]\(([^)]+)\)}{<a href="$2">$1</a>}g;
-        $e{abstract} = $str;
-        $e{abstract} = render_markdown($str);
-
-        push @entries, \%e;
-    }
-
-    $c->stash->{feed} = $self->build_feed(
-        format  => $type,
-        entries => \@entries,
-        host    => $c->config->{web_host},
-        title   => 'Recent MetaCPAN News',
-    );
-}
 
 sub author_rss : Chained('/author/root') PathPart('activity.rss') Args(0) {
     $_[1]->detach( 'author', ['rss'] );

lib/MetaCPAN/Web/Controller/Feed.pm

@@ -95,23 +95,6 @@ test_psgi app, sub {
             );
         }
     );
-    get_feed_ok(
-        $cb,
-        '/news.rss',
-        sub {
-            my ( $res, $tx ) = @_;
-            test_cache_headers(
-                $res,
-                {
-                    cache_control => 'max-age=3600',
-                    surrogate_key =>
-                        'NEWS content_type=application/rss+xml content_type=application',
-                    surrogate_control =>
-                        'max-age=3600, stale-if-error=2592000',
-                }
-            );
-        }
-    );
 
     test_redirect( $cb, 'oalders' );