Perlfect Solutions

[Perlfect-search] Perlfect and access controls

Daniel Naber
Fri, 2 Feb 2001 14:42:46 +0100
On 2001-01-31 11:19, DaveP wrote:

> I have a perl subroutine which checks authorisation given a URL and
> returns a true/false result, what I don't know is how to plug it in to
> the search results script (my perl skills are at the 'basic hacker'
> level!). Has anyone done anything similar?

You can modify this line in
      if( exists $valid_docs{$doc_id} ) {

Just add another condition:

      if( exists($valid_docs{$doc_id} ) && access_allowd() ) {


Daniel Naber, Paul-Gerhardt-Str. 2, 33332 Guetersloh, Germany
Tel. 05241-59371, Mobil 0170-4819674