Make connection string a command line parameter in purspgpp

This commit is contained in:
rightfold
2016-12-22 20:31:30 +01:00
parent 4128b03e2b
commit 1c770e8f20

View File

@@ -75,7 +75,7 @@ sub process-query($conn, Str:D $source) {
"(Query \"\"\"$source\"\"\" :: Query ($parameters) ($fields))";
}
sub MAIN(IO(Cool) $filename) {
my $conn = libpq::Connection.new("user=postgres password=lol123 dbname=nn");
sub MAIN(Str $connection-string, IO(Cool) $filename) {
my $conn = libpq::Connection.new($connection-string);
print process-module($conn, $filename.slurp);
}