Enforce default list of ignored files

This is providing a better first time search
The list can be customized or restored anytime
by checking the box.

Author: atoomic

src/public/404.html

@@ -5,7 +5,7 @@
 
 		<title>Error 404 - grep.metacpan.org - this is the void there !</title>
 		<link rel="alternate" type="application/rss+xml" title="RSS" href="/feed/recent" />
-		<link href="/_assets/20250501123741-510a05c940bec575d4a5edfd45e2668f.css" rel="stylesheet" type="text/css">
+		<link href="/_assets/20250502123204-510a05c940bec575d4a5edfd45e2668f.css" rel="stylesheet" type="text/css">
 		<link rel="search" href="/static/opensearch.xml" type="application/opensearchdescription+xml" title="MetaCPAN">
 		<link rel="shortcut icon" href="/static/icons/favicon.ico">
 		<link rel="apple-touch-icon" sizes="152x152" href="/static/icons/apple-touch-icon.png">

src/public/500.html

@@ -5,7 +5,7 @@
 
 		<title>Error 500 - grep.metacpan.org Oh Yeah It Can Happen !</title>
 		<link rel="alternate" type="application/rss+xml" title="RSS" href="/feed/recent" />
-		<link href="/_assets/20250501123741-510a05c940bec575d4a5edfd45e2668f.css" rel="stylesheet" type="text/css">
+		<link href="/_assets/20250502123204-510a05c940bec575d4a5edfd45e2668f.css" rel="stylesheet" type="text/css">
 		<link rel="search" href="/static/opensearch.xml" type="application/opensearchdescription+xml" title="MetaCPAN">
 		<link rel="shortcut icon" href="/static/icons/favicon.ico">
 		<link rel="apple-touch-icon" sizes="152x152" href="/static/icons/apple-touch-icon.png">

src/public/_assets/20250501123741-510a05c940bec575d4a5edfd45e2668f.css renamed to src/public/_assets/20250502123204-510a05c940bec575d4a5edfd45e2668f.css

@@ -6974,7 +6974,7 @@ input#search-filetype-input-results{
   width: 60px;
 }
 
-input#search-ignore-files{
+.search-form input#ignore-files-input {
   font-size: 16px;
   padding: 4px 12px;
   height: 30px;

src/public/_assets/20250501123741-8ee3b0e7a6641aed845899d0645808f6.js renamed to src/public/_assets/20250502123204-8ee3b0e7a6641aed845899d0645808f6.js

@@ -12,19 +12,22 @@
       <a href="/" class="small-logo"></a>
     </div>
     <div class="col-md-9">
-      <form action="/search" class="search-form form-horizontal" onSubmit="doGrepping()">
+      <form action="/search" id="search-form" class="search-form form-horizontal" onSubmit="doGrepping()">
         <div class="form-group">
           <div class="input-group" style="overflow: hidden; display: table;">
             <input type="text" name="q" size="41" autofocus="autofocus" id="search-input" class="form-control search-input-results" style="width:280px;" value="<% search | html_entity %>" autocomplete="off" placeholder="search with Perl Compatible RegEx" title="search">
             <input type="text" name="qd" size="35" id="search-distro-input-results" class="form-control optional-input" value="<% qd | html_entity %>" autocomplete="off" placeholder="in distro like ^App-.*" title="search in distro">
             <input type="text" name="qft" size="6" id="search-filetype-input-results" class="form-control optional-input" value="<% qft | html_entity %>" autocomplete="off" placeholder="*.pm" title="extension">
-            <input type="text" name="qifl" size="35" id="search-ignore-files" class="form-control optional-input" value="<% qifl | html_entity %>" autocomplete="off" placeholder="ignore files like: *.t, ppport.h" title="ignore filter">
+            <input type="text" name="qifl" size="35" id="ignore-files-input" class="form-control optional-input" value="<% qifl | html_entity %>" autocomplete="off" placeholder="ignore files like: *.t, ppport.h" title="ignore filter">
             <span class="input-group-btn">
               <button class="btn search-btn" type="submit">Search</button>
             </span>
-            <div style="float: block; "><label for="ci-input" style="font-weight: normal;"><input type="checkbox" name="qci" <% qci ? 'checked' : '' %> id="ci-input" class="">&nbsp;case&nbsp;insensitive&nbsp;search</label>
-            <label for="ls-input" style="font-weight: normal;"><input type="checkbox" name="qls" <% qls ? 'checked' : '' %> id="ls-input" class="">&nbsp;list&nbsp;distro/files</label>
-
+            <div style="float: block; ">
+              <label for="ci-default-excludes" style="font-weight: normal;">
+                <input type="checkbox" name="default-excludes" id="ci-default-excludes" onClick="MetaCPANGrep.setupIgnoreList(); false;">&nbsp;common&nbsp;exclude&nbsp;rules
+              </label>
+              <label for="ci-input" style="font-weight: normal;"><input type="checkbox" name="qci" <% qci ? 'checked' : '' %> id="ci-input" class="">&nbsp;case&nbsp;insensitive&nbsp;search</label>
+              <label for="ls-input" style="font-weight: normal;"><input type="checkbox" name="qls" <% qls ? 'checked' : '' %> id="ls-input" class="">&nbsp;list&nbsp;distro/files</label>
             </div>
           </div>
         </div>

src/public/javascripts/mousetrap.min.js

@@ -15,7 +15,9 @@
       <br>
       <!-- .class + .class { width: 100px } -->
       <div style="text-align:left; font-size: 14px;">
-        <label for="ci-default-excludes" style="font-weight: normal;"><input type="checkbox" name="default-excludes" id="ci-default-excludes" onClick="setupDefaultIgnoreList(); false;">&nbsp;common&nbsp;exclude&nbsp;rules</label>
+        <label for="ci-default-excludes" style="font-weight: normal;">
+          <input type="checkbox" name="default-excludes" id="ci-default-excludes" onClick="MetaCPANGrep.setupIgnoreList(); false;">&nbsp;common&nbsp;exclude&nbsp;rules
+        </label>
         <br>
         <label for="ci-input" style="font-weight: normal;"><input type="checkbox" name="qci" id="ci-input">&nbsp;case&nbsp;insensitive&nbsp;search</label>
         <label for="ls-input" style="font-weight: normal;"><input type="checkbox" name="qls" <% qls ? 'checked' : '' %> id="ls-input" class="">&nbsp;list&nbsp;distro/files</label>
@@ -35,3 +37,9 @@
   </div>
 
 </div>
+
+<script type="text/javascript">
+$(document).ready(function() {
+  MetaCPANGrep.homepageSetup();
+});
+</script>

src/views/_display.tt

@@ -10,12 +10,14 @@
 		<title>Let's grep the CPAN together: search a pattern among all perl distributions</title>
 <% END %>
 		<link rel="alternate" type="application/rss+xml" title="RSS" href="/feed/recent" />
-		<link rel="stylesheet" type="text/css" href="/_assets/20250501123741-510a05c940bec575d4a5edfd45e2668f.css">
+		<link rel="stylesheet" type="text/css" href="/_assets/20250502123204-510a05c940bec575d4a5edfd45e2668f.css">
 		<link rel="stylesheet" type="text/css" href="/static/css/font-awesome.min.css">
 		<link rel="search" href="/static/opensearch.xml" type="application/opensearchdescription+xml" title="MetaCPAN">
 		<link rel="shortcut icon" href="/static/icons/favicon.ico">
 		<link rel="apple-touch-icon" sizes="152x152" href="/static/icons/apple-touch-icon.png">
-		<script src="/_assets/20250501123741-8ee3b0e7a6641aed845899d0645808f6.js" type="text/javascript"></script>
+		<script src="/javascripts/jquery.js"></script>
+		<script src="/javascripts/mousetrap.min.js"></script>
+		<script src="/_assets/20250502123204-8ee3b0e7a6641aed845899d0645808f6.js" type="text/javascript"></script>
 		<!-- google analytics -->
 		<!-- Global site tag (gtag.js) - Google Analytics -->
 		<script async src="https://www.googletagmanager.com/gtag/js?id=UA-27829474-2"></script>

src/views/index.tt

@@ -1,22 +1,71 @@
 #!/usr/bin/env perl
 
-use strict;
-use warnings;
+use v5.036;
 
 use FindBin;
 use Git::Repository ();
+use Pod::Usage;
 use Test::More;
 
-run() unless caller();
+=head1 NAME
 
-sub run {
+update-assets.pl - Asset versioning tool for the MetaCPAN Grep Frontend
+
+=head1 SYNOPSIS
+
+    # Run the script to update and timestamp all assets
+    ./tools/update-assets.pl
+
+=head1 DESCRIPTION
+
+This script implements a cache-busting strategy for web assets by:
+
+1. Finding all CSS/JS assets referenced in HTML and view files
+2. Creating new copies with timestamp-based filenames (YYYYMMDDHHMMSS-filename.js)
+3. Updating all references in source files to point to the new timestamped versions
+4. Removing the old asset files
+5. Committing all changes to Git
+
+The script helps ensure that users always receive the latest version of assets
+when changes are deployed, preventing browsers from using cached outdated versions.
+
+=head1 PROCESS
+
+The script:
+
+1. Uses Git to find all references to assets in /_assets/ directory
+2. For each asset found:
+   - Creates a new copy with a timestamp prefix
+   - Uses sed to replace all references in source files
+   - Adds new files to Git and removes old ones
+3. Commits all changes with a message "Bump assets to TIMESTAMP"
+
+=head1 REQUIREMENTS
+
+- Git::Repository Perl module
+- Command-line access to Git repository
+- Unix-like environment (uses sed)
+
+=head1 AUTHOR
+
+MetaCPAN Team
+
+=cut
+
+exit( run(@ARGV) // 0 ) unless caller();
+
+sub run(@args) {
+
+    if ( grep { $_ eq '--help' || $_ eq '-h' } @args ) {
+        return pod2usage( -verbose => 2, -exitval => 0 );
+    }
 
     my $root = $FindBin::Bin . q{/..};
 
     my $git = Git::Repository->new( work_tree => $root );
 
-    my @out = $git->run( 'grep', q{/_assets/}, 'views', 'public/*.html' );
-    #note explain \@out;
+    my @out = $git->run( 'grep', q{/_assets/}, map {"src/$_"} 'views',
+        'public/*.html' );
 
     my %assets;
 
@@ -25,7 +74,8 @@ sub run {
         if ( $line =~ qr{/_assets/([a-zA-Z0-9-]+\.(css|js))} ) {
             my $asset = $1;
             if ( !exists $assets{$asset} ) {
-                $assets{$asset} = -e qq{$root/public/_assets/$asset} ? {} : 0;
+                $assets{$asset}
+                    = -e qq{$root/src/public/_assets/$asset} ? {} : 0;
             }
             next if !$assets{$asset};
             $assets{$asset}->{$file} = 1;    # only tag the file once
@@ -45,13 +95,13 @@ sub run {
         my ( $prefix, $base ) = split( '-', $asset, 2 );
         $base = $prefix if !defined $base;
         my $new            = qq{/_assets/$ts-$base};
-        my $new_asset_file = qq{$root/public/$new};
-        my $old_asset = "$root/public/_assets/$asset";
+        my $new_asset_file = qq{$root/src/public/$new};
+        my $old_asset      = "$root/src/public/_assets/$asset";
         system( 'cp', $old_asset, $new_asset_file ) == 0
-          or die;
+            or die;
 
         my $cmd = qq{sed -i -e "s|/_assets/$asset|$new|g" }
-          . join( ' ', sort keys %{ $assets{$asset} } );
+            . join( ' ', sort keys %{ $assets{$asset} } );
         qx{$cmd};
         warn "Error: $cmd - $!" if $? != 0;
 
@@ -67,13 +117,14 @@ sub run {
 
     if ($ok) {
         $git->run( 'commit', '-m', "Bump assets to $ts" )
-          or die "Error while committing";
+            or die "Error while committing";
         note qq{Assets updated to: $ts};
         note scalar $git->run( 'show', '--stat', '-n1' );
     }
     else {
         note q{Nothing to do};
     }
 
+    return;
 }