openbsd.app/openbsd.app.pl

use feature 'switch';
use Mojolicious::Lite -signatures;
use Mojo::SQLite;

helper unstable => sub { state $sql = Mojo::SQLite->new('sqlite:unstable.db') };
helper stable => sub { state $sql = Mojo::SQLite->new('sqlite:stable.db') };

my $query = q{
    SELECT
	FULLPKGNAME,
	FULLPKGPATH,
	COMMENT,
	DESCRIPTION,
	highlight(ports_fts, 2, '<b>', '</b>') AS COMMENT_MATCH,
	highlight(ports_fts, 3, '<b>', '</b>') AS DESCR_MATCH
    FROM ports_fts
    WHERE ports_fts MATCH ? ORDER BY rank;
};

get '/' => sub ($c) {
    my $v = $c->validation;

    my $search = $c->param('search');

    my $unstable = $c->param('unstable');
    my $format = $c->param('format');

    if ( defined $search && $search ne "" ) {

        #return $c->render( text => 'Bad CSRF token!', status => 403 )
        #  if $v->csrf_protect->has_error('csrf_token');

        my $db = $c->stable->db;

        $db = $c->unstable->db if defined $unstable;

        my $results = $db->query( $query, $search )->hashes;

        given ($format) {
            when ("json") {
                $c->render( json => $results );
            }
            default {
                $c->render(
                    template => 'results',
                    search   => $search,
                    results  => $results
                );
            }
        }
    }
    else {
        $c->render( template => 'index' );
    }
};

app->start;
__DATA__
@@ layouts/default.html.ep
<!doctype html>
<html class="no-js" lang="">
  <head>
    <title>OpenBSD.app</title>
    <meta charset="utf-8">
    <meta http-equiv="x-ua-compatible" content="ie=edge">
    <meta name="description" content="OpenBSD package search">
    <style>
      body {
        font-family: Avenir, 'Open Sans', sans-serif;
	background-color: #ffffea;
      }

      table {
        border-collapse:separate;
        border:solid black 1px;
        border-radius:6px;
	background-color: #fff;
      }
      
      td, th {
        border-left:solid black 1px;
        border-top:solid black 1px;
      }

      th {
        white-space: nowrap;
	padding: 6px;
      }

      .search {
        padding: 10px;
	margin: 10px;
        border-radius:6px;
	box-shadow: 2px 2px 2px black;
      }
      
      th, .search {
        border-top: none;
	background-color: #eaeaff;
      }
      
      td:first-child, th:first-child {
        border-left: none;
      }

      td {
	padding: 10px;
	text-align: left;
      }

      .nowrap {
        white-space: nowrap;
      }

      footer, .wrap, .results {
	text-align: center;
      }
    </style>
  </head>
  <body>
    <div class="wrap">
      <h3><a href="/">OpenBSD.app - search packages</a></h3>
      <div class="search">
        %= form_for '/' => begin
	  %= text_field search => ""
	  -current
	  %= check_box 'unstable'
	  %= submit_button 'Search...'
        % end
      </div>
    </div>
    <div class="results">
      <%== content %>
    </div>
    <hr />
    <footer>
      <p><a href="https://github.com/qbit/openbsd.app">OpenBSD.app</a> © 2022</p>
      <p><a href="https://github.com/qbit/pkg">Prefer CLI?</a></p>
    </footer>
  </body>
</html>

@@ results.html.ep
% layout 'default';
<p>
  Found <b><%= @$results %></b> results for '<b><%= $search %></b>'<br />
  <a href="/?search=<%= $search %>&format=json">View as JSON</a>
</p>
  <table class="results">
    <thead>
      <tr>
        <th>Package Name</th>
        <th>Path</th>
	<th>Comment</th>
	<th>Description</th>
      </tr>
    </thead>
% foreach my $result (@$results) {
    <tr>
      <td class="nowrap"><%= $result->{FULLPKGNAME} %></td>
      <td class="nowrap"><%= $result->{FULLPKGPATH} %></td>
      <td class="nowrap"><%== $result->{COMMENT_MATCH} %></td>
      <td><%== $result->{DESCR_MATCH} %></td>
    </tr>
% }
  </table>

@@ index.html.ep
% layout 'default';
Welcome! Default search queries OpenBSD 7.2 package sets. You can search -current (packages from 2022-09-23) by toggling the '-current' checkbox.
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`use feature 'switch';`
initial 2022-09-23 16:45:55 -06:00			`use Mojolicious::Lite -signatures;`
			`use Mojo::SQLite;`

enable unstable vs stable search 2022-09-24 07:55:35 -06:00			`helper unstable => sub { state $sql = Mojo::SQLite->new('sqlite:unstable.db') };`
initial 2022-09-23 16:45:55 -06:00			`helper stable => sub { state $sql = Mojo::SQLite->new('sqlite:stable.db') };`

			`my $query = q{`
			`SELECT`
			`FULLPKGNAME,`
			`FULLPKGPATH,`
			`COMMENT,`
			`DESCRIPTION,`
			`highlight(ports_fts, 2, '<b>', '</b>') AS COMMENT_MATCH,`
			`highlight(ports_fts, 3, '<b>', '</b>') AS DESCR_MATCH`
			`FROM ports_fts`
			`WHERE ports_fts MATCH ? ORDER BY rank;`
			`};`

			`get '/' => sub ($c) {`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`my $v = $c->validation;`

initial 2022-09-23 16:45:55 -06:00			`my $search = $c->param('search');`
Add some style tweaks 2022-09-23 20:25:02 -06:00
enable unstable vs stable search 2022-09-24 07:55:35 -06:00			`my $unstable = $c->param('unstable');`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`my $format = $c->param('format');`
initial 2022-09-23 16:45:55 -06:00
			`if ( defined $search && $search ne "" ) {`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00
			`#return $c->render( text => 'Bad CSRF token!', status => 403 )`
disable csrf for now 2022-09-23 22:00:35 -06:00			`# if $v->csrf_protect->has_error('csrf_token');`
Add some style tweaks 2022-09-23 20:25:02 -06:00
			`my $db = $c->stable->db;`
initial 2022-09-23 16:45:55 -06:00
enable unstable vs stable search 2022-09-24 07:55:35 -06:00			`$db = $c->unstable->db if defined $unstable;`
initial 2022-09-23 16:45:55 -06:00
Add some style tweaks 2022-09-23 20:25:02 -06:00			`my $results = $db->query( $query, $search )->hashes;`

Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`given ($format) {`
			`when ("json") {`
			`$c->render( json => $results );`
			`}`
			`default {`
			`$c->render(`
			`template => 'results',`
			`search => $search,`
			`results => $results`
			`);`
			`}`
			`}`
initial 2022-09-23 16:45:55 -06:00			`}`
			`else {`
			`$c->render( template => 'index' );`
			`}`
			`};`

			`app->start;`
			`__DATA__`
			`@@ layouts/default.html.ep`
			`<!doctype html>`
			`<html class="no-js" lang="">`
			`<head>`
			`<title>OpenBSD.app</title>`
			`<meta charset="utf-8">`
			`<meta http-equiv="x-ua-compatible" content="ie=edge">`
			`<meta name="description" content="OpenBSD package search">`
			`<style>`
			`body {`
			`font-family: Avenir, 'Open Sans', sans-serif;`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`background-color: #ffffea;`
initial 2022-09-23 16:45:55 -06:00			`}`

Add some style tweaks 2022-09-23 20:25:02 -06:00			`table {`
			`border-collapse:separate;`
			`border:solid black 1px;`
			`border-radius:6px;`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`background-color: #fff;`
initial 2022-09-23 16:45:55 -06:00			`}`

Add some style tweaks 2022-09-23 20:25:02 -06:00			`td, th {`
			`border-left:solid black 1px;`
			`border-top:solid black 1px;`
			`}`
add some more style tweaks 2022-09-23 21:45:29 -06:00
no wrap on header 2022-09-24 06:51:01 -06:00			`th {`
			`white-space: nowrap;`
add padding to table header 2022-09-24 06:51:55 -06:00			`padding: 6px;`
no wrap on header 2022-09-24 06:51:01 -06:00			`}`

add some more style tweaks 2022-09-23 21:45:29 -06:00			`.search {`
			`padding: 10px;`
			`margin: 10px;`
			`border-radius:6px;`
			`box-shadow: 2px 2px 2px black;`
			`}`
Add some style tweaks 2022-09-23 20:25:02 -06:00
add some more style tweaks 2022-09-23 21:45:29 -06:00			`th, .search {`
Add some style tweaks 2022-09-23 20:25:02 -06:00			`border-top: none;`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`background-color: #eaeaff;`
Add some style tweaks 2022-09-23 20:25:02 -06:00			`}`

			`td:first-child, th:first-child {`
			`border-left: none;`
			`}`

			`td {`
			`padding: 10px;`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`text-align: left;`
initial 2022-09-23 16:45:55 -06:00			`}`

Add some style tweaks 2022-09-23 20:25:02 -06:00			`.nowrap {`
			`white-space: nowrap;`
initial 2022-09-23 16:45:55 -06:00			`}`

add some more style tweaks 2022-09-23 21:45:29 -06:00			`footer, .wrap, .results {`
			`text-align: center;`
initial 2022-09-23 16:45:55 -06:00			`}`
			`</style>`
			`</head>`
			`<body>`
			`<div class="wrap">`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`<h3><a href="/">OpenBSD.app - search packages</a></h3>`
initial 2022-09-23 16:45:55 -06:00			`<div class="search">`
			`%= form_for '/' => begin`
			`%= text_field search => ""`
use -current for unstable 2022-09-24 08:24:38 -06:00			`-current`
enable unstable vs stable search 2022-09-24 07:55:35 -06:00			`%= check_box 'unstable'`
initial 2022-09-23 16:45:55 -06:00			`%= submit_button 'Search...'`
			`% end`
			`</div>`
			`</div>`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`<div class="results">`
			`<%== content %>`
			`</div>`
initial 2022-09-23 16:45:55 -06:00			`<hr />`
			`<footer>`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`<p><a href="https://github.com/qbit/openbsd.app">OpenBSD.app</a> © 2022</p>`
			`<p><a href="https://github.com/qbit/pkg">Prefer CLI?</a></p>`
initial 2022-09-23 16:45:55 -06:00			`</footer>`
			`</body>`
			`</html>`

			`@@ results.html.ep`
			`% layout 'default';`
Add ability to see results as json - add link to pkg - add header for quick return to / 2022-09-24 07:36:44 -06:00			`<p>`
			`Found <b><%= @$results %></b> results for '<b><%= $search %></b>'<br />`
			`<a href="/?search=<%= $search %>&format=json">View as JSON</a>`
			`</p>`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`<table class="results">`
initial 2022-09-23 16:45:55 -06:00			`<thead>`
			`<tr>`
add column for package name 2022-09-23 21:07:13 -06:00			`<th>Package Name</th>`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`<th>Path</th>`
initial 2022-09-23 16:45:55 -06:00			`<th>Comment</th>`
			`<th>Description</th>`
			`</tr>`
			`</thead>`
			`% foreach my $result (@$results) {`
			`<tr>`
add column for package name 2022-09-23 21:07:13 -06:00			`<td class="nowrap"><%= $result->{FULLPKGNAME} %></td>`
add some more style tweaks 2022-09-23 21:45:29 -06:00			`<td class="nowrap"><%= $result->{FULLPKGPATH} %></td>`
Add some style tweaks 2022-09-23 20:25:02 -06:00			`<td class="nowrap"><%== $result->{COMMENT_MATCH} %></td>`
initial 2022-09-23 16:45:55 -06:00			`<td><%== $result->{DESCR_MATCH} %></td>`
			`</tr>`
			`% }`
			`</table>`

			`@@ index.html.ep`
			`% layout 'default';`
mark stable/unstable search complete - add blurb about what is searched 2022-09-24 10:06:22 -06:00			`Welcome! Default search queries OpenBSD 7.2 package sets. You can search -current (packages from 2022-09-23) by toggling the '-current' checkbox.`