Re: [ILUG] OpenOffice.org Location

From: Mark Finlay (sisob at domain eircom.net)
Date: Fri 07 Jun 2002 - 21:41:55 IST

> #!/usr/bin/perl
>
> my ($line,$location) = undef;
>
> open(SVERSION, $ENV{'HOME'} . "/.sversionrc") or die "Cannot open
> ~/.sversionrc";
>
> while ($line = <SVERSION>)
> {
> if ($line =~ /^OpenOffice.+?file:\/\/(.+?)$/)
> {
> $location = $1;
> }
> }
>
> close (SVERSION);
>
> print "export EOFFICE=" . $location . "\n";
>
> - DoC

Cool, thanks that's really cool and it'll even work for all versions of
OO.

:) I'm a bit of a copy and paste hacker and have expanded the script to
the following:

#!/usr/bin/perl

my ($line,$location) = undef;

open(SVERSION, $ENV{'HOME'} . "/.sversionrc") or die "Cannot open
~/.sversionrc";

while ($line = <SVERSION>)
{
    if ($line =~ /^OpenOffice.+?file:\/\/(.+?)$/)
    {
        $location = $1;
    }
}

close (SVERSION);

print "export EOFFICE=" . $location . "\n";

open(SVERSION, $location . "/instdb.ins") or die "Cannot open
instdb.ins";

while ($line = <SVERSION>)
{
    if ($line =~ /^SourcePath = \"(.+?)$/)
    {
        $location2 = $1;
    }
}

close (SVERSION);

but when I run it I get

Cannot open instdb.ins at findlocation.pl line 19.

I need to suck a variable out of $location/instdb.ins
but on account of not knowing perl I seem to have bothched
up the open() function

Thanks all 

-- 
Mark Finlay
"sisob's linux eXPerience"
http://sisob.dyndns.org
Registered Linux User: #243436

This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:17:09 GMT