Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1992 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°675119
burgergold
5$? va chez l'diable!
Posté le 16-03-2004 à 15:09:52  profilanswer
 

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. }

mood
Publicité
Posté le 16-03-2004 à 15:09:52  profilanswer
 

n°675165
burgergold
5$? va chez l'diable!
Posté le 16-03-2004 à 16:15:38  profilanswer
 

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. }


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

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

 

Sujets relatifs
[perl-cgi] Passage de parametresProblème de design objet
utilisation de htmlentities en PHP/MySQLFonction associée à la croix pour fermer
Script perl qui convertit les fuseaux horairesenvoyer fomulaire par mail avec un objet
Utilisation de Visual Editor (VE) dans EclipseCherche aide sur GD librairie en perl
CVI probleme d'utilisation des API windowsFonction java
Plus de sujets relatifs à : [Perl] Fonction find, en plus d'utilisation de simili-objet

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.095 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)