fortune_slony.pl

text/x-perl-script

Filename: fortune_slony.pl

Type: text/x-perl-script

Part: 0

Message: Re: [PATCH] Implement motd for PostgreSQL

#!/usr/bin/perl
use strict;
use warnings;

my $slony = <<'SLONY'
E'\u001B[94m'
'\n   ____  ______  ___  '
'\n  /    )/      \\/   \\ '
'\n (     / __    _\\    )'
'\n  \\    (/ o)  ( o)   )'
'\n   \\_  (_  )   \\ )  / '
'\n     \\  /\\_/    \\)_/  '
'\n      \\/  //|  |\\\\    '
'\n          v |  | v    '
'\n            \\__/      '
'\u001b[0m'
SLONY
;

my $fortune = `/usr/games/fortune`;
$fortune =~ s/'/''/g;
$fortune =~ s/^(.*)$/'\\n$1'/gm;

print "ALTER SYSTEM SET motd TO $slony\n$fortune; SELECT pg_catalog.pg_reload_conf();";