next up previous
Next: A.3 vc-autoinit.setl Up: A. WEBeye Source Code Previous: A.1 vc-admin.setl

  
A.2 vc-allowed.setl

Textually #included by:
vc-do.setl     (Section A.11 [vc-do.setl])
vc-event.setl     (Section A.12 [vc-event.setl])
vc-image.setl     (Section A.20 [vc-image.setl])
vc-toplev.setl     (Section A.42 [vc-toplev.setl])

Source code: *

-- Test whether the peer at peer_address fd is in the set of
-- ``allowed'' hosts (usually meaning allowed to use the server
-- that has called allowed):
 
proc allowed (fdhosts(*));  -- rudimentary host-based security
  var ok_ipsafdip;
  [ok_ips] := hosts;
  if ok_ips = om then
    afd := open (`vc-allowed.conf', `r');
    if afd = om then
      ok_ips := {} +/ {aliases ip : ip in {`localhost', `127.0.0.1',
                                            hostname,    hostaddr}};
    else
      reada (afdok_ips);
      close (afd);
    end if;
  end if;
  ip := peer_address fd;
  return ok_ips * aliases ip /= {};
end proc;
 
op aliases (ip);
  return ip_names (ip) + ip_addresses (ip);
end op;


next up previous
Next: A.3 vc-autoinit.setl Up: A. WEBeye Source Code Previous: A.1 vc-admin.setl
David Bacon
1999-12-10