HDTenEightyP/NetNews huggingface dataset:
From: jmalcolm@sura.net (Joseph Malcolm)
Subject: locking under NFS
Keywords: locking under NFS
Organization: SURAnet, College Park, MD, USA, NA, Earth, Milky Way
Date: Wed, 19 Aug 1992 22:37:29 GMT

In article <1992Aug19.124414.5341@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
>However, you've been misled regarding the safety of the cited lockfile
>strategy over NFS.  Neither creation nor deletion are atomic there.  

Yep.

>You should use lockf, who'll use the lockd, who'll likely hang your
>kernel.:-(  Sigh.  You might try the link strategy, but I don't know
>whether that's guaranteed either.

I believe the safest way is to try to link to the lock file,
ignore the return value (the original return could have been
lost and of course the retry will fail), and then make sure the
file you were locking from now has two links.

-- 
Joseph Malcolm				jmalcolm@sura.net
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: reset & dbm file bug?
Date: 13 Aug 92 20:00:21 GMT
Article-I.D.: netlabs.1992Aug13.200021.15963
Organization: NetLabs, Inc.

In article <lgy.713469986@landau> lgy@phys.washington.edu (Laurence Yaffe) writes:
: 
:     It appears that stale data is sometimes returned after a reset on an
: assoc array bound to a dbm file.  The following test program illustrates
: this by binding the same dbm file to two different assoc arrays.
: The same problem occurs if a dbm file is opened by one processes and then
: changed by a different process - after a 'reset' in the first process
: values returned by the assoc array are inconsistent with the data on disk.
: This occurs in both versions 4.0.19 (with ndbm support) on a MIPS 3230,
: and 4.0.10 on a Sun.  Bug or misunderstanding?

$ grep dbmclose bugs/patch*
patch20: Subject: dbmclose(%array) didn't work

If you're stuck with an old version, the workaround is to omit the %.

Larry
From: joel@abigale.UUCP (Joel Rosi-Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: locsym - First major upgrade ;-)
Date: 20 Aug 92 05:42:03 GMT
Organization: Techne Research, Finchampstead, Berkshire (UK)

In article <1992Aug19.130525.1666@anl433.uucp> iain%anl433.uucp@Germany.EU.net writes:
>Thanx for a useful package that has been put to good use here.
>

Thank you.

>What would be just as useful would be quick access to header files.
>
>The following info would be useful:
>  #defines
>  struct's
>  variables
>
>Are you planning to expand locsym to handle such things?

Oh, I guess I am spoiled. ISC and SCO come with a program called "cscope"
which does just this and more.  If there was enough demand from folks who
do not have "cscope" I would be willling to expand locsym to handle it.
Let me know.

Cheers,
joel

-- 
     ==================================================================
     ||               T E C H N E   R E S E A R C H                  ||
     ||  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  ||
     ||                     Joel Rosi-Schwartz                       ||
     ||   Hildorien House            +   Email: joel@abigale.UUCP    ||
     ||   12 Waverley Way            +    (pyrltd!abigale.UUCP!joel) ||
     ||   Finchampstead, Wokingham   +   Phone: +44 (734) 730.260    ||
     ||   Berkshire RG11 4YD (UK)    +   Fax:   +44 (734) 730.272    ||
     ==================================================================
Newsgroups: comp.lang.perl
From: cos@chaos.cs.brandeis.edu (Ofer Inbar)
Subject: Re: Applauds for Mr. Wall (LOUD)
Organization: Brandeis University
Date: Sun, 23 Aug 1992 00:26:12 GMT

brister@decwrl.dec.com (James Brister) writes:
>On Tue, 18 Aug 1992 23:53:25 GMT, vspicer@ccu.umanitoba.ca said:
>> one can't say enough. i haven't had this much fun programming computers since
>> high school using Zbasic on a TRS-80 Model 4. thanks larry!  
>
>Ohhhh. I'm not sure I'd take that as a complement :-)

On that line, I'm happy to say that perl is the first language that
has made Unix programming as much fun for me as QuickBASIC is on the
PC.  And as productive, too.  Take that, C!  :-)

Seriously, though, it makes perfect sense that perl appeals to people
who like BASIC.  Both languages share an attribute most other
languages don't - perl and BASIC are human oriented, other languages
are computer oriented.  Other languages give you efficiency, perl and
BASIC give you ease of programming and *fun*.

  --  Cos (Ofer Inbar)  --  cos@chaos.cs.brandeis.edu
  --  WBRS (BRiS)  --  WBRS@binah.cc.brandeis.edu  WBRS@brandeis.bitnet
 FidoNet: Ofer Inbar on 1:101/310  --  Ofer.Inbar@f310.n101.z1.fidonet.org
 The Boston Computer Society IBM PC User Group TBBS, (617) 332-5584
Newsgroups: comp.lang.perl
From: cheselka@cactus.org (Michael R. M. Cheselka)
Subject: perl -de 0 question
Organization: Capital Area Central Texas UNIX Society, PO Box 9786, Austin, TX 78766-9786
Date: Tue, 18 Aug 1992 06:35:46 GMT

I know how to get perl up and running in an interactive mode.  However, how
can I save my work when I am done?  Also, can I "set ignoreeof"?  I seem to
get droped out of perl alot.  Finally, does anyone have a simple program in
perl that uses termcap?  I am looking for some kind of emacs style text
entry example, esp. moving back and forth between lines( C^n and C^p) with
a menu.  Much thanks!
-- 
cheselka@cactus.org               N5UVV              Michael R. M. Cheselka
os9@gnu.ai.mit.edu        Hangs out on 145.21mhz       400 W. 34th st. #103
membership@cactus.org                                 Austin, TX 78705-1331
{...}!cs.utexas!cactus.org!cheselka (512)452-9412v ( 24hours answer. mach.)
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Filename expansion ("~user")
Date: 22 Aug 92 19:38:16 GMT
Distribution: usa
Organization: NetLabs, Inc.

In article <MERLYN.92Aug21092257@romulus.reed.edu> merlyn@romulus.reed.edu (Randal L. Schwartz) writes:
: Fetching the home directory is easy enough though:
: 
: 	$file = "~merlyn/.newsrc";
: 	$file =~ s#^~([a-z0-9]+)(/.*)?$#(getpwnam($1))[7].$2#e;
: 
: 
: (If you mess with $[, you deserve what you get. :-)

And if you don't check for error conditions, you don't get what you deserve.

 	$file =~ s#^(~([a-z0-9]+))(/.*)?$#((getpwnam($2))[7]||$1).$3#e;

This spits out ~merlyn/.newsrc rather than /.newsrc if merlyn isn't a
user on your box.  Then you at least get a more reasonable error
message when the open fails.

Also, [a-z0-9]+ is a bit too restrictive on login names--it's not our
program's responsibility to enforce anything other than the absence of
a slash.  What are we supposed to do if someone types "~phi-phi/.newsrc",
and the login file contains

phi-phi:LVuNVXgSiJkN2:128:17:Phi-Phi the Poodle:/home/dogs/phi-phi:/bin/csh

I'd probably write it like this:	

    $USER = $ENV{USER} || $ENV{LOGNAME} || getlogin || (getpwnam($<))[0];
    ...
    $file =~ s#^[^/]*#$user#
	if $file =~ m#^~([^/]*)# && ($user = $1 ? (getpwnam($1))[7] : $USER);

I'd probably make that into a subroutine.  Alternately, if I know I'm
going to be using this only on machines with csh, and I don't care about
the cost of starting up a csh, I'd just say

    $file = < $file > if $file =~ /^~/;

Perl does globs using csh by preference (though it prefers /bin/sh for
everything else).

Larry
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Applauds for Mr. Wall (LOUD)
Date: 18 Aug 92 17:07:09 GMT
Organization: NetLabs, Inc.

In article <1992Aug.004245.29615@abigale.uucp> joel@abigale.UUCP (Joel Rosi-Schwartz) writes:
: Larry, thank you for being the inspiration you are.

Aw, shucks.

Larry
Newsgroups: comp.lang.perl
From: Mark.McIntosh@engr.UVic.CA (Mark  McIntosh)
Subject: Avoiding intermediate variable
Organization: University of Victoria, Victoria, BC, Canada
Date: 20 Aug 92 22:55:44 GMT

Someone out my location would like to avoid the intermediate variable
in the following piece of code, assuming $y has been set to some value:

       $tmp = $y;
       $tmp =~ s/xy/zz/;
       print $tmp;

He wants to retain the value of $y for later use but use a modified
version of it once - he won't need it later.  Is there a way to do
this in Perl without using an intermediate variable?

If not, then we suggest having another form of the "=~" operator (or a
function?) which returns the modified value instead of replacing the
value in the "operated on" variable.  Maybe a "~" operator.

eg.
      print $y ~ s/xy/zz/;

Are we crazy?  I think this would be useful.  Or are we missing something?

Mark J. McIntosh <Mark.McIntosh@engr.UVic.CA>
____________________________________________________________________________
University of Victoria, Faculty of Engineering - Dean's Office
Box 3055, Victoria, BC, CANADA    \ "...the mystery of life isn't a problem to
V8W 3P6            (604) 721-6049  \    solve but a reality to experience." 
UUCP: ...!{uw-beaver,ubc-vision}!uvicctr!sirius!mmcintos  \ from Dune
Newsgroups: comp.lang.perl
From: telfeyan@sparky.eecs.umich.edu (Roland Telfeyan)
Subject: perl to C translator
Followup-To: sender
Summary: has a perl to C translator been developed?
Keywords: translator
Organization: University of Michigan EECS Dept., Ann Arbor
Date: Thu, 20 Aug 1992 15:47:48 GMT

Has a perl to C translator been developed? It has been on the "wishlist"
but I don't know if it has been done or if anyone is doing it. Anyone
working on such a thing?

Roland

-- 
---------------------------------------------------------------------
Roland Telfeyan                     Departmental Computing Operations
telfeyan@eecs.umich.edu        University of Michigan EECS Department
---------------------------------------------------------------------
Newsgroups: comp.lang.perl
From: ccechk@nuscc.nus.sg (Heng Kek)
Subject: Assoc array indirection
Organization: National University of Singapore
Date: Mon, 17 Aug 1992 10:05:13 GMT

Greetings

#!/usr/bin/perl
  %ipaddr = ('nusunix1','137.132.73.11',
             'nusunix2','137.132.10.11',
             'nusunix3','137.132.91.12'
            );
  @host   = ('nusunix1',
             'nusunix2',
             'nusunix3'
            );
print eval "\@ipaddr{@host[0..1]}";              # no go
print eval "\@ipaddr{join(',', @host[0..1])}";  # no go
print eval "\@ipaddr{$host[0], $host[1]}";      # okay

Why doesn't the 1st 2 print()s do what I expect?  How do I achieve
my goal, given my intentions in:

print eval "\@ipaddr{join(',', @host[0..1])}";  # no go
?

Or is it just wishful thinking?
Hope someone can help.  Thanks

Heng Kek
Newsgroups: comp.lang.perl
From: mcook@xoanon.dev.cdx.mot.com (Michael Cook)
Subject: Re: Filename expansion ("~user")
Keywords: ~user filename expansion
Organization: Motorola Codex, Canton, Massachusetts
Distribution: usa
Date: Fri, 21 Aug 1992 19:16:30 GMT

lezz@merlin.dev.cdx.mot.com (Lezz Giles) writes:

>In article <1992Aug20.153727.167@cbnews.cb.att.com>, daleske@cbnews.cb.att.com (John D. Daleske) writes:
>|>I'm relatively new to Perl and love it.  I've read the recent notes in this
>|>notes group and have not found how do one capability that I am trying to
>|>use in a Perl script which is the ~user filename expansion.  Following is a test
>|>script:
>|>
>|>$tst1="~daleske";
>|>die "${tst1} not a directory" if !(-d ${tst1});
>|>opendir(DH, ${tst1});
>|>@allfiles = readdir(DH);
>|>closedir(DH);
>|>print "@allfiles\n";
>|>
>|>If I set $tst1 to the full pathname it works fine.  I'd like to use the common
>|>facility of ~user to avoid needing to know the full path name.  (User home
>|>directories do get moved around.)

>You'll certainly get the standard response about "~ is only a shell construct
>and so you'll need to use a shell to expand it", which is valid enough and
>leads to various solutions.  However, some time ago I was working in an
>environment where we wanted to write /bin/sh scripts which could access
>people's home directories - so we had a semi-standard tool called 'logdir'
>which takes a username and returns the home directory, e.g.

>$ logdir lezz
>/usr/u/a1/lezz

>Once you've written this tool, you can add lines like these to your perl prog:

>($homedir = `logdir lezz`) || die "Can't find home dir for lezz\n";

>$homebin = `logdir lezz` . "/bin";

>The source for logdir is:

[C source code deleted.]

How about this:

	#! /bin/ksh -p
	for i ;do eval echo \~$i ;done

Or, the Perl code (er, this is comp.lang.perl, isn't it :-) would be:

	sub logdir
	{
	    getpwnam($_[0])[7];
	}
	($homedir = &logdir(lezz)) || die "Can't find home dir for lezz\n";

Michael.
From: lwall@netlabs.com (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: BUG? in 4.035: length($`) is strange
Date: 15 Aug 92 20:35:54 GMT
Organization: NetLabs, Inc.

In article <1992Jul29.213032.11414@ugle.unit.no> harald.alvestrand@delab.sintef.no writes:
: Environment: Sun-4, SunOS 4.1.1, cc used for compilation.
: Also fails on HP-UX 8.0.whatever, HP-710 (different length, thou....)
: 
: 
: ----------------- Cut here ------------------
: #!/local/bin/perl
: $_ = "  0049    56 |  |  |  Standard Attribute List";
: if (/Standard Attribute List/) {
:    $indent = length($`);
:    $var = $`;
:    $len = length($var);
:    print "Indent set to $indent, length of $`\n";
:    print "Len set to $len, length of $var\n";
: }
: --------------- Cut here -------------------
: 
: Result of run with PERL version 4.0, patchlevel 35:
: 
: Indent set to 475080, length of   0049    56 |  |  |  
: Len set to 22, length of   0049    56 |  |  |  
: 
: Result of run with PERL version 3.018:
: 
: Indent set to 22, length of   0049    56 |  |  |  
: Len set to 22, length of   0049    56 |  |  |  
: 
: As you can see, I already have a workaround, but I do not like bugs....
: can someone check if it is problematic in other versions, too?

It's a bug in all versions from 4.009 to 4.035.  It will not be a bug
in future versions.  If you want the "unofficial" fix, look in stab.c
for the switch in function stab_len(), and move the return statement
that's in the default: case to after the switch statement.

Larry
From: vspicer@ccu.umanitoba.ca
Newsgroups: comp.lang.perl
Subject: perl for MSDOS communication tasks
Date: 18 Aug 92 13:16:50 GMT
Organization: University of Manitoba, Winnipeg Manitoba Canada

i know this sounds seriously warped, but has anyone used perl to do
communication-port oriented tasks on MSDOS? since you can treat COM1:
and COM2: as files, and do single character file IO, it should be possible
to have a perl script doing automated communication processes like
being a front end for a UUCP hookup, doing automated online sessions etc...

anyone tried any of this?


------
vic spicer, recent PERL convert/ data systems,instrument electronics and
software person with the Time of Flight Mass Spec. Lab
at the University of Manitoba Dept. of Physics
From: joel@abigale.UUCP (Joel Rosi-Schwartz)
Newsgroups: comp.lang.perl
Subject: Applauds for Mr. Wall (LOUD)
Date: 17 Aug 92 23:42:45 GMT
Organization: Techne Research, Finchampstead, Berkshire (UK)


	[lots deleted]
>way you say.  Paint me sorry.
	[lots deleted]
>Larry

Okay, I've held my piece (peace?) for long enough.  It is not that I
think that Larry's ego needs any help.  Far from it.  In fact the 
point *really* is, I wonder if Larry actually has an ego ;-)

I for one, want to applaud Larry for the "kind, faceless, gentle,
unassuming, *non-obnoxious* and generally friendly way he supports us.

And no this is not idle worship.  I very much respect the dignity
that Larry brings to my (our) lives and simply wish to acknowledge
him publicly---even if "trn" warns me it is going to cost the net
"thousands"---for his contribution, which far exceeds the "mere" value
of perl as a facility.

Larry, thank you for being the inspiration you are.

Cheers,
joel
-- 
     ==================================================================
     ||               T E C H N E   R E S E A R C H                  ||
     ||  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  ||
     ||                     Joel Rosi-Schwartz                       ||
     ||   Hildorien House            +   Email: joel@abigale.UUCP    ||
     ||   12 Waverley Way            +    (pyrltd!abigale.UUCP!joel) ||
     ||   Finchampstead, Wokingham   +   Phone: +44 (734) 730.260    ||
     ||   Berkshire RG11 4YD (UK)    +   Fax:   +44 (734) 730.272    ||
     ==================================================================
Newsgroups: comp.lang.perl
From: lezz@merlin.dev.cdx.mot.com (Lezz Giles)
Subject: Re: Filename expansion ("~user")
Keywords: ~user filename expansion
Reply-To: lezz@merlin.dev.cdx.mot.com (Lezz Giles)
Organization: Motorola Codex, Canton, MA
Distribution: usa
Date: Fri, 21 Aug 1992 20:52:54 GMT

In article <BtCF9y.21s@world.std.com>, dsb@world.std.com (David Boyce) writes:
|>>I'm relatively new to Perl and love it.  I've read the recent notes in this
|>>notes group and have not found how do one capability that I am trying to
|>>use in a Perl script which is the ~user filename expansion.
|>
|>    The "getpwent" function function should make this info available.
|>You may not be able to use the ~user idiom, but you can write
|>a little function called tilde(user) that uses getpwent and does
|>the right thing.

...plus lots of other articles mentioning getpwent.

I apologize unreservedly for not noticing that my logdir can be
rewritten as a perl subroutine.  I'll go and change my perl
programs (and incidentally speed them up) immediately.  I should've
read my own posting from a few days ago about how flexible and powerful
perl is :-)

Lezz "Unix teaches humility and perl reinforces the lesson" Giles
Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: open(lockfile, O_CREAT|O_WRONLY|O_EXCL, 0444) in perl?
Originator: tchrist@pixel.convex.com
Date: Wed, 19 Aug 1992 12:44:14 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Realtime Development, Colorado Springs, CO
Keywords: lock file
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of steed@ilws14 (Ze'ev Shtadler):
:I'd like to have a perl script that uses a lock file as a semaphore
:across NFS of diverse hardware platforms and operating systems.  I was
:told, this is the only "real safe" way to ensure exclusive access
:between processes on different machines (I know this does not apply to
:processes not bothering to lock :-).  Can that be done from within
:perl?

Yes, we need a 3-arg form of open for perl.  No, we don't have one yet.
You *could* play with syscall(), I suppose, and make it work.

However, you've been misled regarding the safety of the cited lockfile
strategy over NFS.  Neither creation nor deletion are atomic there.  
You should use lockf, who'll use the lockd, who'll likely hang your
kernel.:-(  Sigh.  You might try the link strategy, but I don't know
whether that's guaranteed either.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

    Whenever people agree with me I always feel I must be wrong.
                    --Oscar Wilde
Newsgroups: comp.lang.perl
From: dsb@world.std.com (David Boyce)
Subject: Re: Filename expansion ("~user")
Keywords: ~user filename expansion
Organization: The World Public Access UNIX, Brookline, MA
Distribution: usa
Date: Fri, 21 Aug 1992 17:00:59 GMT

In article <1992Aug20.153727.167@cbnews.cb.att.com> daleske@cbnews.cb.att.com (John D. Daleske) writes:
>I'm relatively new to Perl and love it.  I've read the recent notes in this
>notes group and have not found how do one capability that I am trying to
>use in a Perl script which is the ~user filename expansion.

    The "getpwent" function function should make this info available.
You may not be able to use the ~user idiom, but you can write
a little function called tilde(user) that uses getpwent and does
the right thing.
-- 
David Boyce	dsb@world.std.com	617-576-1540
Newsgroups: comp.lang.perl
From: tmhoff@oogoody.Corp.Sun.COM (Todd Hoff)
Newsgroups: comp.lang.perl
Subject: test failure, please help explain why
Date: 15 Aug 1992 19:28:03 GMT
Organization: Sun Microsystems, Inc.
Distribution: world
Reply-To: tmhoff@oogoody.Corp.Sun.COM
NNTP-Posting-Host: oogoody.corp.sun.com


Environment: Sun 4/260, 4.1.1, perl 4.035.

All the tests passed except 1:
   op/groups......group routines not implemented at ./op/groups.t line 11.
   FAILED on test 1

The context around line 11 is:
   $pwgid = $( + 0;
   ($pwgnam) = getgrgid($pwgid);
   @basegroup{$pwgid,$pwgnam} = (1,1);


I did a man of getgrgid and it does exist and doesn't seem to take a special
library to link to. So what's up.

Thanx



Newsgroups: comp.lang.perl
From: dsb@world.std.com (David Boyce)
Subject: More #! stuff
Organization: The World Public Access UNIX, Brookline, MA
Distribution: usa
Date: Fri, 21 Aug 1992 16:51:47 GMT

Sorry if this is old news; I'm a recent reader and can't find a FAQ.
Anyway, the idiom I use for invoking perl is

    #!/bin/env perl

This doesn't attempt to solve any of the non-unix and weird-unix 
problems but it does solve the problem of writing portable scripts,
given that perl is likely to be installed in different places
on different machines. I know the camel book argues strongly
for /usr/bin, but my experience has been that in the real
world perl is rarely in the same place twice. The above does
cost an exec, of course, compared to #!/usr/bin/perl. So - is this

a) old and not preferred for some reason,
b) old and a recommended technique, or
c) new and I'm a hero for thinking of it? (as if!)
-- 
David Boyce	dsb@world.std.com	617-576-1540
Newsgroups: comp.lang.perl
From: tate@faxcsl.dcrt.nih.gov
Subject: Re: AtoP Translator/More Docs for the Novice
Organization: National Institutes of Health
Date: Tue, 18 Aug 1992 19:35:56 GMT

In article <1992Aug18.191058.14066@alw.nih.gov> tate@faxcsl.dcrt.nih.gov
writes:
>Hello out there in Perl-land...
>I'm posting this for a new Perl user who wants desperately to locate how-to
>info on Perl in general and AtoP specifically (including where to get the
>latter). Any help would be greatly appreciated, and thanks in advance.
>
Oops, forgot to put the full address in - here it is:
------------------------------------------------------------------------
Ramon L. Tate                                   tate@faxcsl.dcrt.nih.gov
Computer Systems Laboratory, DCRT
National Institutes of Health, Bethesda, MD 20892

"That's the problem with nature, something's always stinging you
 or oozing mucous all over you. Let's go and watch TV"  - Calvin
From: ram@eiffel.com (Raphael Manfredi)
Newsgroups: comp.lang.perl
Subject: Re: array bug
Summary: Not an array bug!
Keywords: infinite recursion
Date: 16 Aug 92 22:17:50 GMT
Organization: Interactive Software Engineering, Santa Barbara CA

Quoting jfriedl@cs.cmu.edu from comp.lang.perl:
|The following (contrived) program dumps core with 4.035
|
|	&foo;
|	sub foo {
|	    ($a, $b) = &foo('fi','b');
|	}
|
|I've run it (and had the problem) on Sun 3, Sun 4, IBM-RT,
|Pmax, Vax, and Luna/88k.
|
|Any ideas?

None (sic)... But you should try to "execute" this program yourself,
that is simulate it by hand. When you're done with it, the final
value in $a should give you the answer to your question. :-)

You could also try to imagine what may happen on your machine when the
heap encounters the stack.
-- 
Raphael Manfredi <ram@eiffel.com>
Interactive Software Engineering Inc.
270 Storke Road, Suite #7                      / Tel +1 (805) 685-1006 \
Goleta, California 93117, USA                  \ Fax +1 (805) 685-6869 /