the-distro/hydra
1
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

* Escape string literals.[

Browse source
This commit is contained in:
Eelco Dolstra 2009-03-03 09:37:16 +00:00
parent 7ffb32e048
commit 4d2cb75104
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/Hydra/lib/Hydra/View/NixExprs.pm
View file

@ -5,6 +5,15 @@ use base qw/Catalyst::View/;
use Hydra::Helper::Nix;
sub escape {
my ($s) = @_;
$s =~ s|\\|\\\\|g;
$s =~ s|\"|\\\"|g;
$s =~ s|\$|\\\$|g;
return "\"" . $s . "\"";
}
sub process {
my ($self, $c) = @_;
@ -14,15 +23,15 @@ sub process {
my $build = $c->stash->{nixPkgs}->{$name};
$res .= " # $name\n";
$res .= " { type = \"derivation\";\n";
$res .= " name = \"" . ($build->resultInfo->releasename or $build->nixname) . "\";\n"; # !!! escaping?
$res .= " system = \"" . $build->system . "\";\n"; # idem
$res .= " name = " . escape ($build->resultInfo->releasename or $build->nixname) . ";\n";
$res .= " system = " . (escape $build->system) . ";\n";
$res .= " outPath = " . $build->outpath . ";\n";
$res .= " meta = {\n";
$res .= " description = \"" . $build->description . "\";\n"
$res .= " description = " . (escape $build->description) . ";\n"
if $build->description;
$res .= " longDescription = \"" . $build->longdescription . "\";\n"
$res .= " longDescription = " . (escape $build->longdescription) . ";\n"
if $build->longdescription;
$res .= " license = \"" . $build->license . "\";\n"
$res .= " license = " . (escape $build->license) . ";\n"
if $build->license;
$res .= " };\n";
$res .= " }\n";