perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/docs rl.pl
Date Thu, 30 Jul 1998 13:44:10 GMT
dougm       98/07/30 06:44:09

  Added:       src      opcodes.txt
               src/modules/perl op_mask.c
               t/docs   rl.pl
  Log:
  new stuff for opcode masking
  
  Revision  Changes    Path
  1.1                  modperl/src/opcodes.txt
  
  Index: opcodes.txt
  ===================================================================
  #default opcode mask
  backtick
  glob
  open
  close
  pipe_op
  fileno
  umask
  dbmopen
  dbmclose
  getc
  read
  enterwrite
  leavewrite
  sysopen
  sysseek
  sysread
  syswrite
  send
  recv
  socket
  sockpair
  bind
  connect
  listen
  accept
  shutdown
  chown
  chroot
  unlink
  chmod
  rename
  link
  symlink
  readlink
  mkdir
  rmdir
  open_dir
  readdir
  telldir
  seekdir
  rewinddir
  closedir
  fork
  wait
  waitpid
  system
  exec
  kill
  alarm
  sleep
  shmget
  shmctl
  shmread
  shmwrite
  msgget
  msgctl
  msgsnd
  msgrcv
  semget
  semctl
  semop
  syscall
  
  
  
  1.1                  modperl/src/modules/perl/op_mask.c
  
  Index: op_mask.c
  ===================================================================
  
  static char *MP_op_mask = "AAAAAwAAAAAAAAAAAAAAAAAAAAAAAADwYZ4f8AcAAADg/f8P4P8DAAAAgA==
  ";
  
  
  
  1.1                  modperl/t/docs/rl.pl
  
  Index: rl.pl
  ===================================================================
  #test Apache::RegistryLoader
  
  {
      use Apache::RegistryLoader ();
      use DirHandle ();
      use strict;
      
      my $rl = Apache::RegistryLoader->new(trans => sub {
  	my $uri = shift; 
  	$Apache::Server::CWD."/t/net${uri}";
      });
  
      my $d = DirHandle->new("t/net/perl");
  
      for my $file ($d->read) {
  	next if $file eq "hooks.pl"; 
  	next unless $file =~ /\.pl$/;
  	Apache->untaint($file);
  	my $status = $rl->handler("/perl/$file");
  	unless($status == 200) {
  	    die "pre-load of `/perl/$file' failed, status=$status\n";
  	}
      }
  }
  
  1;
  
  
  

Mime
View raw message