diff options
| author | ivan <ivan> | 2003-10-15 15:03:56 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-10-15 15:03:56 +0000 |
| commit | bacea004a735c7a9c30a35e9184a63897a200e6e (patch) | |
| tree | 2d3f49daf57cc5b9ff27a22b8ab971a40bdcf1e0 /fs_selfservice/FS-SelfService/SelfService.pm | |
| parent | 7598ece6cac31548505dd610ef418ca001adf5b2 (diff) | |
add tagging ability so we can run multiple self-service clients on one machine
Diffstat (limited to 'fs_selfservice/FS-SelfService/SelfService.pm')
| -rw-r--r-- | fs_selfservice/FS-SelfService/SelfService.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fs_selfservice/FS-SelfService/SelfService.pm b/fs_selfservice/FS-SelfService/SelfService.pm index 5d3f50b10..b2532be71 100644 --- a/fs_selfservice/FS-SelfService/SelfService.pm +++ b/fs_selfservice/FS-SelfService/SelfService.pm @@ -1,7 +1,7 @@ package FS::SelfService; use strict; -use vars qw($VERSION @ISA @EXPORT_OK $socket %autoload ); +use vars qw($VERSION @ISA @EXPORT_OK $socket %autoload $tag); use Exporter; use Socket; use FileHandle; @@ -14,6 +14,7 @@ $VERSION = '0.03'; @ISA = qw( Exporter ); $socket = "/usr/local/freeside/selfservice_socket"; +$socket .= '.'.$tag if defined $tag && length($tag); #maybe should ask ClientAPI for this list %autoload = ( |