#! @perl@/bin/perl -w use strict; use DBI; use DBD::SQLite; use String::ShellQuote; use Config; my $program = $ARGV[0]; my $dbPath = "@dbPath@"; my $dbh = DBI->connect("dbi:SQLite:dbname=$dbPath", "", "") or die "cannot open database `$dbPath'"; $dbh->{RaiseError} = 0; $dbh->{PrintError} = 0; my $system = $ENV{"NIX_SYSTEM"} // $Config{myarchname}; my $res = $dbh->selectall_arrayref( "select package from Programs where system = ? and name = ?", { Slice => {} }, $system, $program); if (!defined $res || scalar @$res == 0) { print STDERR "$program: command not found\n"; } elsif (scalar @$res == 1) { my $package = @$res[0]->{package}; if ($ENV{"NIX_AUTO_INSTALL"} // "") { print STDERR <{package}\n" foreach @$res; } exit 127;