[Perl] Fonction find, en plus d'utilisation de simili-objet

Fonction find, en plus d'utilisation de simili-objet [Perl] - Perl - Programmation

Marsh Posté le 16-03-2004 à 15:09:52    

J'ai la structure suivante:
 
Appel de httpd_cops::Identification
Dans lequel j'appel $self->ServerRoot ($self étant un bless de mon httpd_cops::Identification)
Dans lequel j'aimerais bien faire un find, avec en utilisant la fonction httpd_cops::Identification::ServerRoot::files_owner
 
1: find a pas l'air à aimer, il demande un CODE reference
2: j'ai pas l'air d'être en mesure d'apperler mon httpd_cops::Identification::ServerRoot::files_owner à l'aide de $self
 
merci
 

Code :
  1. ########################################
  2. # Fonction:
  3. # Description: 1. Identification
  4. # Date du dernier changement:
  5. # Utilisé dans:
  6. ########################################
  7. sub httpd_cops::Identification {
  9.   my $self = {};
  10.   bless($self, "httpd_cops::Identification" );
  12.   switch: {
  13.     if ($config->SERVER =~ m/apache/i) {
  14.       ################
  15.       # Web Server ID
  16.       ################
  18.       $self->system_administrator;
  19.       $self->system_privileges;
  20.       $self->ServerRoot;
  21.       $self->DocumentRoot;
  22.       $self->Configuration_files;
  24.       last switch;
  25.     }
  26.     if ($config->server =~ m/domino/i) {
  27.       ################
  28.       # Web Server ID
  29.       ################
  31.       $self->system_administrator;
  32.       $self->system_privileges;
  33.       $self->UserID;
  35.       ################
  37.       last switch;
  38.     }
  39.   }
  40. }
  42. ########################################
  43. # Fonction:
  44. # Description:
  45. # Date du dernier changement:
  46. # Utilisé dans:
  47. ########################################
  48. sub httpd_cops::Identification::ServerRoot {
  49.   my $self = shift;
  51.   ##########
  52.   # Make the ServerRoot and everything under it owned by the webserver administrator group
  53.   find (\$self->files_owner, $httpd_conf->ServerRoot);
  54.   ##########
  56.   ##########
  57.   # Never give read/write access to documents in the ServerRoot to the webserver userid
  58.   find (\$self->webserver_no_readwrite, $httpd_conf->ServerRoot);
  59.   ##########
  61.   ##########
  62.   # ServerRoot should allow the webserver administrator group read/write access
  63.   find (\$self->administrator_readwrite, $httpd_conf->ServerRoot);
  64.   ##########
  66. }
  68. ########################################
  69. # Fonction:
  70. # Description:
  71. # Date du dernier changement:
  72. # Utilisé dans:
  73. ########################################
  74. sub httpd_cops::Identification::ServerRoot::files_owner {
  76.   my $file = Security::File(file => $File::Find::name);
  78.   if (! -l $file->name && $file->group ne $config->WEBSERVER_ADMIN && $file->group ne $config->CONTENT_WEBMASTER) {
  79.     push(@report, "1.1 Make the ServerRoot and everything under it owned by the webserver administrator group." . " " . $file->name);
  80.   }
  82. }

Reply

Marsh Posté le 16-03-2004 à 15:09:52   

Reply

Marsh Posté le 16-03-2004 à 16:15:38    

j'en déduis que c'est simplement une utilisation non approprié d'un objet
 
code fonctionnel, moins jolie par contre
 

Code :
  1. ########################################
  2. # Fonction:
  3. # Description: 1. Identification
  4. # Date du dernier changement:
  5. # Utilisé dans:
  6. ########################################
  7. sub httpd_cops::Identification {
  9.   switch: {
  10.     if ($config->SERVER =~ m/apache/i) {
  11.       ################
  12.       # Web Server ID
  13.       ################
  15.       httpd_cops::Identification::system_administrator();
  16.       httpd_cops::Identification::system_privileges();
  17.       httpd_cops::Identification::ServerRoot();
  18.       httpd_cops::Identification::DocumentRoot();
  19.       httpd_cops::Identification::Configuration_files();
  21.       last switch;
  22.     }
  23.     if ($config->server =~ m/domino/i) {
  24.       ################
  25.       # Web Server ID
  26.       ################
  28.       httpd_cops::Identification::system_administrator();
  29.       httpd_cops::Identification::system_privileges();
  30.       httpd_cops::Identification::UserID();
  32.       ################
  34.       last switch;
  35.     }
  36.   }
  37. }
  39. ########################################
  40. # Fonction:
  41. # Description:
  42. # Date du dernier changement:
  43. # Utilisé dans:
  44. ########################################
  45. sub httpd_cops::Identification::ServerRoot {
  47.   ##########
  48.   # Make the ServerRoot and everything under it owned by the webserver administrator group
  49.   find (\&httpd_cops::Identification::ServerRoot::files_owner, $httpd_conf->ServerRoot);
  50.   ##########
  52.   ##########
  53.   # Never give read/write access to documents in the ServerRoot to the webserver userid
  54.   find (\&httpd_cops::Identification::ServerRoot::webserver_no_readwrite, $httpd_conf->ServerRoot);
  55.   ##########
  57.   ##########
  58.   # ServerRoot should allow the webserver administrator group read/write access
  59.   find (\&httpd_cops::Identification::ServerRoot::administrator_readwrite, $httpd_conf->ServerRoot);
  60.   ##########
  62. }
  64. ########################################
  65. # Fonction:
  66. # Description:
  67. # Date du dernier changement:
  68. # Utilisé dans:
  69. ########################################
  70. sub httpd_cops::Identification::ServerRoot::files_owner {
  72.   my $file = Security::File(file => $File::Find::name);
  74.   if (! -l $file->name && $file->group ne $config->WEBSERVER_ADMIN && $file->group ne $config->CONTENT_WEBMASTER) {
  75.     push(@report, "1.1 Make the ServerRoot and everything under it owned by the webserver administrator group." . " " . $file->name);
  76.   }
  78. }

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed