ftp.nice.ch/pub/next/database/plz/plz.perl.1.3.b.tar.gz#/postleitzahlen/server/common.pl

This is common.pl in view mode; [Download] [Up]

# Gemeinsame 'defines' fuer plz-Server
#############################################################################
#    Copyright (C) 1993
#    Andreas Koppenhoefer (koppenh@dia.informatik.uni-stuttgart.de)
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#############################################################################
# @(#)$Id: common.pl,v 1.2 1993/06/15 15:38:36 koppenh Exp $
# $Log: common.pl,v $
#    Revision 1.2  1993/06/15  15:38:36  koppenh
#    Neue Release Nummer;
#
#    Revision 1.1.0.1  1993/06/08  19:15:16  koppenh
#    RCSid string korrigiert
#
#############################################################################

# check system type
if (! -r '/xenix') {
    # no flock(), no getpriority()
    $system_has_flock = 1;
    $system_has_getpriority = 1;
}

# einige defines aus <unistd.ph>, <sys/file.h> und <sys/resource.h> uebernommen
# (gueltig fuer SunOS 4.x und viele andere):
sub SEEK_SET {0;}
sub SEEK_CUR {1;}
sub SEEK_END {2;}
sub LOCK_SH  {1;}
sub LOCK_EX  {2;}
sub LOCK_NB  {4;}
sub LOCK_UN  {8;}
sub PRIO_PROCESS {0;}
sub PRIO_MAX {20;}

# Pathprefix zu orginal uncompressed Post-Daten
$globalprefix = $homedir.'../daten/';

# Pathprefix zu index-dateien und gepackten Daten
$localprefix  = $homedir.'daten/';

# query log - disabled if ($logfile eq '')
$logfile   = $homedir.'log/Log';

# database access control - disabled if ($lockfile eq '')
$lockfile  = $localprefix.'LOCK';

# next few filenames must be used with $localprefix or $globalprefix
$umsdafile = 'umsda';	# umsda base name extended with '.packed','.index'
$stradafile= 'strada';	# strada base name extended with '.packed','.index'
$pofadafile= 'pofada';	# pofada base name extended with '.index' only
$ortardafile='ortarda';	# ortarda base name (combined with umsda.packed)
$sthnrarfile='sthnrar'; # sthnrar base name (how can we use this file???)

1;

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.