version 1.84, 2002/07/26 19:35:20
|
version 1.85, 2002/08/01 18:44:19
|
Line 947 sub make_new_child {
|
Line 947 sub make_new_child {
|
} else { |
} else { |
print $client "rejected\n"; |
print $client "rejected\n"; |
} |
} |
|
# -------------------------------------- fetch a user file from a remote server |
|
} elsif ($userinput =~ /^fetchuserfile/) { |
|
my ($cmd,$fname)=split(/:/,$userinput); |
|
# ------------------------------------------ authenticate access to a user file |
|
} elsif ($userinput =~ /^authuserfile/) { |
|
my ($cmd,$fname,$session)=split(/:/,$userinput); |
# ----------------------------------------------------------------- unsubscribe |
# ----------------------------------------------------------------- unsubscribe |
} elsif ($userinput =~ /^unsub/) { |
} elsif ($userinput =~ /^unsub/) { |
my ($cmd,$fname)=split(/:/,$userinput); |
my ($cmd,$fname)=split(/:/,$userinput); |