SimpleServer

2003-10-21 Thread Ed Summers
I just added Index Data's SimpleServer [1] to the list [2] of Perl software
at perl4lib. Thanks to Anders Mortensen for suggesting it. 

SimpleServer is essentially a Perl module that allows you to easily build your 
own Z39.50 server from Perl. It has exciting possibilities for building Z39.50 
interfaces for your local home brewed databases, and for building Z39.50 
bridges to other search interfaces. There's an example of Zoogle (a Z39.50
interface to Google) on the SimpleServer webpage.

//Ed

[1] http://www.indexdata.dk/simpleserver/
[2] http://perl4lib.perl.org/



Re: SimpleServer

2003-10-21 Thread paul POULAIN
Ed Summers wrote:

I just added Index Data's SimpleServer [1] to the list [2] of Perl software
at perl4lib. Thanks to Anders Mortensen for suggesting it. 

SimpleServer is essentially a Perl module that allows you to easily build your 
own Z39.50 server from Perl. It has exciting possibilities for building Z39.50 
interfaces for your local home brewed databases, and for building Z39.50 
bridges to other search interfaces. There's an example of Zoogle (a Z39.50
interface to Google) on the SimpleServer webpage.
 

Note also that Nelsonville Public Library is working with Koha and 
simpleServer to provide z3950 server features for Koha.

--
Paul POULAIN
Consultant indépendant en logiciels libres
responsable francophone de koha (SIGB libre http://www.koha-fr.org)



testing invalid iso2709 files

2003-10-21 Thread paul POULAIN
Hi,

The following code :
   my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
   warn "ref : ".ref($marcrecord);
  ... inclusion in Koha DB ...
works fine with a valid iso2709 record in $marcarray[$i].
With something not valid (like a random value), it returns that 
ref($marcrecord) is MARC::Record.
So, how to know that the decoded variable is NOT a valid marc record ?

other question : how works ->warnings ?
I tried $marcrecord->warnings(), but I only get a number.
--
Paul POULAIN
Consultant indépendant en logiciels libres
responsable francophone de koha (SIGB libre http://www.koha-fr.org)



Re: testing invalid iso2709 files

2003-10-21 Thread Ed Summers
On Tue, Oct 21, 2003 at 06:21:31PM +0200, paul POULAIN wrote:
> other question : how works ->warnings ?
> I tried $marcrecord->warnings(), but I only get a number.

how about in list context?

@warnings = $record->warnings(); 

This should have been more clear in the docs (which are now updated...in cvs).

The reason why warnings() returns a list is that a given record could have 
multiple warnings. When you assign to a scalar in list context you get the 
amount of items in the list, which is why you got a number.

It can be a handy trick sometimes:

my $count = @items; ## number of items in @items

//Ed


Re: testing invalid iso2709 files

2003-10-21 Thread moregan

Note that if you call warnings() on a MARC::Record object the internal list
of warnings is cleared, so if you call it a second time for the same object
you'll get nothing.


Mike O'Regan



   
 
  Ed Summers   
 
  <[EMAIL PROTECTED]>  To:   [EMAIL PROTECTED] 
 
   cc: 
 
  10/21/2003 11:30 Subject:  Re: testing invalid iso2709 
files  
  AM   
 
   
 
   
 




On Tue, Oct 21, 2003 at 06:21:31PM +0200, paul POULAIN wrote:
> other question : how works ->warnings ?
> I tried $marcrecord->warnings(), but I only get a number.

how about in list context?

@warnings = $record->warnings();

This should have been more clear in the docs (which are now updated...in
cvs).

The reason why warnings() returns a list is that a given record could have
multiple warnings. When you assign to a scalar in list context you get the
amount of items in the list, which is why you got a number.

It can be a handy trick sometimes:

my $count = @items; ## number of items in @items

//Ed