| 1 | # |
|---|
| 2 | # Copyright (c) 2004-2007 - Consultas, PKG.fr |
|---|
| 3 | # |
|---|
| 4 | # This file is part of A2P. |
|---|
| 5 | # |
|---|
| 6 | # A2P is free software; you can redistribute it and/or modify |
|---|
| 7 | # it under the terms of the GNU General Public License as published by |
|---|
| 8 | # the Free Software Foundation; either version 2 of the License, or |
|---|
| 9 | # (at your option) any later version. |
|---|
| 10 | # |
|---|
| 11 | # A2P is distributed in the hope that it will be useful, |
|---|
| 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
|---|
| 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|---|
| 14 | # GNU General Public License for more details. |
|---|
| 15 | # |
|---|
| 16 | # You should have received a copy of the GNU General Public License |
|---|
| 17 | # along with A2P; if not, write to the Free Software |
|---|
| 18 | # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
|---|
| 19 | # |
|---|
| 20 | # $Id: Defaults.pm 3 2007-10-18 16:20:19Z guillaume $ |
|---|
| 21 | # |
|---|
| 22 | |
|---|
| 23 | use A2P::Globals ; |
|---|
| 24 | |
|---|
| 25 | sub info { |
|---|
| 26 | print map { "# $_\n" } @_ ; |
|---|
| 27 | } |
|---|
| 28 | |
|---|
| 29 | our $tie_file = "/tmp/test_tie_status.gdbm" ; |
|---|
| 30 | |
|---|
| 31 | our $test_string = '__TEST__'.$$ ; |
|---|
| 32 | |
|---|
| 33 | our $freezed = qr/^\x04(\x06|\x07)\x081234(5678)*\x04(\x04|\x08){2}\x08../ ; |
|---|
| 34 | |
|---|
| 35 | our $SERVICE_TMP = '/tmp' ; |
|---|
| 36 | our $AFPSPOOL = '/tmp/afpspool-test' ; |
|---|
| 37 | our $SHMDIR = '/dev/shm/.test' ; |
|---|
| 38 | system "rm -rf $SHMDIR" if ( -d $SHMDIR and $SHMDIR =~ /shm/ ) ; |
|---|
| 39 | mkdir $SHMDIR ; |
|---|
| 40 | |
|---|
| 41 | our $ADVANCED_DEBUGGING = 1 ; |
|---|
| 42 | our $LOCKID = 'TEST' ; |
|---|
| 43 | our $LOGFILENAME = '/tmp/a2p-debug.log' ; |
|---|
| 44 | our $DEBUG_IN_FILE = 1 ; |
|---|
| 45 | |
|---|
| 46 | 1 ; |
|---|
