diff options
| author | ivan <ivan> | 2003-10-15 15:03:58 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-10-15 15:03:58 +0000 |
| commit | c72de75b27216d67f883d09e82cf270906b8469c (patch) | |
| tree | 6ca80bbfdd684477e58b822d4df99da297432516 /fs_selfservice/FS-SelfService/SelfService.pm | |
| parent | 54b1dfa1a324ab4e3e3386f8277c1570e0796a87 (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 9cbbf0eba..30dc2f398 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 = ( |