Re: [EXIM] dbm alias file

Kezdőlap
Üzenet törlése
Válasz az üzenetre
Szerző: Peter Radcliffe
Dátum:  
Címzett: exim-users
Tárgy: Re: [EXIM] dbm alias file
Paul Walsh <Paul.Walsh@???> probably said:
> > From:    me [SMTP:me@???]
> > Well thats what I was kinda thinking, when I use exim_dbmbuild it
> > creates a .db file, this I try to open (succesfully) using perl and
> > dbmopen, however no matter what I try it refuses to display the contents
> > let alone modify them. 
>     It may be the version of Perl you're using.   I used the following
> code on one system and it worked fine.  However, when I tried using it on
> another system it didn't.  At first I thought it might have been due to
> different versions of Exim or C Compiler used to build Exim.  I eventually
> noticed that the system which it worked on had Perl 5.003 whereas the other
> had Perl 5.001

>
>     #!/usr/local/bin/perl                 
>     $dbcode=dbmopen(%DB,'aliases',0644); 
>     printf("DB Open code= %d\n",$dbcode); 
>     while ($key,$val)  = each %DB){       
>        printf("%s %s\n",$key,$val);   
>     } 


Not being a perl person, I asked an ex-cow-orker what he did when he wrote
this stuff.

Some snippiets of code from him:

I do't recall exactly what I did to fix it - I think one problem was
] making sure that the key has a trailing NULL:
]    
]    ## key must have trailing NULL
]    if ($key !~ /\x00$/) {
]       $key .= "\x00";
]    }
] 
] The locking stuff looks like this:
] 
]    ## makes no assumptions about the map file.  get it right on your own.
]    my($db) = tie(%db, 'DB_File', $map, O_RDONLY)
]       || die "Cannot open \"$map\": $!\n";
]    my($fd) = $db->fd;
]    open(DB_FH, "+<&=$fd") or die "dup: $!";
]    unless (flock (DB_FH, LOCK_SH | LOCK_NB)) {
]       unless (flock (DB_FH, LOCK_SH)) {
]          die "flock: $!"
]       }  
]    }  
]    my($return) = $db->get($key,$value);
]    flock(DB_FH, LOCK_UN);
]    untie %db;
]    close(DB_FH);


P.

-- 
pir               pir@???      pir@???      pir@???



--
*** Exim information can be found at http://www.exim.org/ ***