Re: mythweb 0.27

"Lennart Sorensen" <lsorense@???> writes:

> On Fri, Oct 04, 2013 at 01:26:02PM -0400, Lennart Sorensen wrote:
>> On Fri, Oct 04, 2013 at 06:39:12PM +0200, Christian Marillat wrote:

[...]

> Hmm, that didn't actually quite work.
>
> This seems to:
>
> cat $INPUT | perl -pe "
> s/(^[ \t]*setenv[ \t]+db_server[ \t]+\")[^\"]*\"/\$1\$ENV{'hostname'}\"/g;
> s/(^[ \t]*setenv[ \t]+db_name[ \t]+\")[^\"]*\"/\$1\$ENV{'database'}\"/g;
> s/(^[ \t]*setenv[ \t]+db_login[ \t]+\")[^\"]*\"/\$1\$ENV{'mythtv_username'}\"/g;
> s/(^[ \t]*setenv[ \t]+db_password[ \t]+\")[^\"]*\"/\$1\$ENV{'mythtv_password'}\"/g;
> " > $NEW

Works for me. One change, I need to export all variables at the top of
the script.

Thanks.

Christian