version 1.1123, 2011/08/01 22:13:49
|
version 1.1124, 2011/08/02 03:11:42
|
Line 344 sub get_remote_globals {
|
Line 344 sub get_remote_globals {
|
return %returnhash; |
return %returnhash; |
} |
} |
|
|
|
sub remote_devalidate_cache { |
|
my ($lonhost,$name,$id) = @_; |
|
my $response = &reply('devalidatecache',&escape($name).':'.&escape($id),$lonhost); |
|
return $response; |
|
} |
|
|
# -------------------------------------------------- Non-critical communication |
# -------------------------------------------------- Non-critical communication |
sub subreply { |
sub subreply { |
my ($cmd,$server)=@_; |
my ($cmd,$server)=@_; |