initial
This commit is contained in:
commit
49609bff65
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
*.db
|
||||||
|
.direnv
|
||||||
26
flake.lock
Normal file
26
flake.lock
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
{
|
||||||
|
"nodes": {
|
||||||
|
"nixpkgs": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1663850217,
|
||||||
|
"narHash": "sha256-tp9nXo1/IdN/xN9m06ryy0QUAEfoN6K56ObM/1QTAjc=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "ae1dc133ea5f1538d035af41e5ddbc2ebcb67b90",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"id": "nixpkgs",
|
||||||
|
"ref": "nixos-unstable",
|
||||||
|
"type": "indirect"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": "root",
|
||||||
|
"version": 7
|
||||||
|
}
|
||||||
53
flake.nix
Normal file
53
flake.nix
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
{
|
||||||
|
description = "openbsd.app: a tool to search OpenBSD packages";
|
||||||
|
|
||||||
|
inputs.nixpkgs.url = "nixpkgs/nixos-unstable";
|
||||||
|
|
||||||
|
outputs = { self, nixpkgs }:
|
||||||
|
let
|
||||||
|
supportedSystems =
|
||||||
|
[ "x86_64-linux" "x86_64-darwin" "aarch64-linux" "aarch64-darwin" ];
|
||||||
|
forAllSystems = nixpkgs.lib.genAttrs supportedSystems;
|
||||||
|
nixpkgsFor = forAllSystems (system: import nixpkgs { inherit system; });
|
||||||
|
in {
|
||||||
|
packages = forAllSystems (system:
|
||||||
|
let pkgs = nixpkgsFor.${system};
|
||||||
|
in {
|
||||||
|
thing = pkgs.stdenv.mkDerivation {
|
||||||
|
pname = "openbsd.app";
|
||||||
|
version = "v0.0.1";
|
||||||
|
src = ./.;
|
||||||
|
nativeBuildInputs = with pkgs.perlPackages; [
|
||||||
|
perl
|
||||||
|
Mojolicious
|
||||||
|
MojoSQLite
|
||||||
|
];
|
||||||
|
buildInputs = with pkgs; [ perl ];
|
||||||
|
|
||||||
|
installPhase = ''
|
||||||
|
mkdir -p $out/bin
|
||||||
|
install -t openbsd.app.pl $out/bin
|
||||||
|
'';
|
||||||
|
};
|
||||||
|
});
|
||||||
|
|
||||||
|
defaultPackage = forAllSystems (system: self.packages.${system}.thing);
|
||||||
|
devShells = forAllSystems (system:
|
||||||
|
let pkgs = nixpkgsFor.${system};
|
||||||
|
in {
|
||||||
|
default = pkgs.mkShell {
|
||||||
|
shellHook = ''
|
||||||
|
PS1='\u@\h:\@; '
|
||||||
|
echo "Perl `${pkgs.perl}/bin/perl --version`"
|
||||||
|
'';
|
||||||
|
buildInputs = with pkgs.perlPackages; [ PerlTidy ];
|
||||||
|
nativeBuildInputs = with pkgs.perlPackages; [
|
||||||
|
perl
|
||||||
|
Mojolicious
|
||||||
|
MojoSQLite
|
||||||
|
];
|
||||||
|
};
|
||||||
|
});
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
118
openbsd.app.pl
Normal file
118
openbsd.app.pl
Normal file
@ -0,0 +1,118 @@
|
|||||||
|
use Mojolicious::Lite -signatures;
|
||||||
|
use Mojo::SQLite;
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
|
#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');
|
||||||
|
|
||||||
|
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;
|
||||||
|
$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;
|
||||||
|
}
|
||||||
|
|
||||||
|
th,
|
||||||
|
td {
|
||||||
|
border: 1px solid;
|
||||||
|
padding: 5px;
|
||||||
|
}
|
||||||
|
|
||||||
|
table {
|
||||||
|
margin: 0 auto;
|
||||||
|
display: block;
|
||||||
|
overflow-x: auto;
|
||||||
|
border-spacing: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
.popup {
|
||||||
|
display: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.result:hover~.popup {
|
||||||
|
display: block;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<div class="wrap">
|
||||||
|
<div class="search">
|
||||||
|
%= form_for '/' => begin
|
||||||
|
%= text_field search => ""
|
||||||
|
%= csrf_field
|
||||||
|
%= submit_button 'Search...'
|
||||||
|
% end
|
||||||
|
</form>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<hr />
|
||||||
|
<%== content %>
|
||||||
|
<hr />
|
||||||
|
<footer>
|
||||||
|
OpenBSD.app
|
||||||
|
</footer>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
|
|
||||||
|
@@ results.html.ep
|
||||||
|
% layout 'default';
|
||||||
|
Found <%= @$results %> reslts for for '<%= $search %>':
|
||||||
|
<table>
|
||||||
|
<thead>
|
||||||
|
<tr>
|
||||||
|
<th>Path</th>
|
||||||
|
<th>Comment</th>
|
||||||
|
<th>Description</th>
|
||||||
|
</tr>
|
||||||
|
</thead>
|
||||||
|
% foreach my $result (@$results) {
|
||||||
|
<tr>
|
||||||
|
<td><%= $result->{FULLPKGPATH} %></td>
|
||||||
|
<td><%== $result->{COMMENT_MATCH} %></td>
|
||||||
|
<td><%== $result->{DESCR_MATCH} %></td>
|
||||||
|
</tr>
|
||||||
|
% }
|
||||||
|
</table>
|
||||||
|
|
||||||
|
@@ index.html.ep
|
||||||
|
% layout 'default';
|
||||||
|
Welcome!
|
||||||
Loading…
Reference in New Issue
Block a user