parent
2390695a71
commit
a16aa76c09
@ -22,6 +22,7 @@
|
|||||||
Mojolicious
|
Mojolicious
|
||||||
MojoSQLite
|
MojoSQLite
|
||||||
pkgs.outils
|
pkgs.outils
|
||||||
|
HTMLEscape
|
||||||
];
|
];
|
||||||
buildInputs = with pkgs; [ perl ];
|
buildInputs = with pkgs; [ perl ];
|
||||||
|
|
||||||
@ -47,6 +48,7 @@
|
|||||||
Mojolicious
|
Mojolicious
|
||||||
MojoSQLite
|
MojoSQLite
|
||||||
pkgs.outils
|
pkgs.outils
|
||||||
|
HTMLEscape
|
||||||
];
|
];
|
||||||
};
|
};
|
||||||
});
|
});
|
||||||
|
@ -10,6 +10,7 @@ use File::Basename;
|
|||||||
|
|
||||||
use Mojolicious::Lite -signatures;
|
use Mojolicious::Lite -signatures;
|
||||||
use Mojo::SQLite;
|
use Mojo::SQLite;
|
||||||
|
use HTML::Escape qw/escape_html/;
|
||||||
|
|
||||||
my $dbFile = "combined.db";
|
my $dbFile = "combined.db";
|
||||||
|
|
||||||
@ -88,6 +89,7 @@ my $title = "OpenBSD.app";
|
|||||||
my $descr = "OpenBSD package search";
|
my $descr = "OpenBSD package search";
|
||||||
|
|
||||||
sub markdown ($str) {
|
sub markdown ($str) {
|
||||||
|
$str = escape_html($str);
|
||||||
$str =~ s/\*\*(\w+)\*\*/<strong>$1<\/strong>/g;
|
$str =~ s/\*\*(\w+)\*\*/<strong>$1<\/strong>/g;
|
||||||
$str =~ s/\n/<br \/>/g;
|
$str =~ s/\n/<br \/>/g;
|
||||||
return $str;
|
return $str;
|
||||||
|
Loading…
Reference in New Issue
Block a user