Discussion :

[Olivier Regnier]

Bonjour

Je suis actuellement entrain d'écrire un script qui permet de mettre via un simple bouton mon site en maintenance et inversement.

Pour ce faire, j'utilise un fichier .htaccess:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
# This website is in maintenance
RewriteCond %{REQUEST_URI} !/tcsh.css$
RewriteCond %{REQUEST_URI} !/img/back.gif$
RewriteCond %{REQUEST_URI} !/img/obsd.gif$
RewriteCond %{REMOTE_ADDR} !^41\.201\.2\.120
RewriteRule . http://www.oregnier.org/$ [R=302,L]

Bien entendu, je connais la position de ces lignes dans le fichier mais celui-ci peut-être à tout moment modifié. Je ne préfère pas jouer sur les numéros de ligne.

Concernant le script perl, j'ai insérer sur ma page un formulaire avec un bouton de type submit. Ce qui me gène le plus ce n'est pas d'ouvrir ou fermer le fichier ou en vérifier sa présence c'est plutôt de le modifier en ne connaissant pas la position de ces lignes.

L'objectif c'est de placer ces lignes en commentaires pour activer le site internet et inversement pour le positionner en statut maintenance.

Pour le moment, je me pose la question suivante, dois-je dupliquer ce fichier pour lui apporter les modifications ou peut-on le faire directement ?

Merci de vos réponses

[Olivier Regnier]

Voici le contenu de mon .htaccess:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<-- code avant
 
# Turn off directory listing
options -indexes
 
# Defines the default page
DirectoryIndex index.php
 
# The rewrite addresses
Options +FollowSymlinks
RewriteEngine on
RewriteBase /
 
# This website is in maintenance
RewriteCond %{REQUEST_URI} !/tcsh.css$
RewriteCond %{REQUEST_URI} !/img/back.gif$
RewriteCond %{REQUEST_URI} !/img/obsd.gif$
RewriteCond %{REMOTE_ADDR} !^10\.245\.4\.25
RewriteRule . http://www.oregnier.org/$ [R=302,L]
 
--> code après

J'ai commencé par écrire du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# Chemin vers le fichier
my $htaccess="/home/olivier/www/.htaccess";
 
# On test si le fichier est présent, dans ce cas on l'ouvre
open my ($in),'<', $htaccess or $msg="Pas moyen d'ouvrir $htaccess: $!";
    # On place le fichier dans un tableau de lignes
    my @lines = <$in>;
close ($in);
 
# On modifie la ligne 25
$lines[25] .= "#RewriteCond %{REQUEST_URI} !/tcsh.css$\n";
 
# On ouvre le fichier
open my ($in),'>', $htaccess or $msg="Ce fichier $htaccess n'a pu être ouvert : $!";
   # On écrit le contenu
    print $htaccess @lines; # ---> ligne 62
# On ferme le fichier
close ($in);

A l'exécution, j'obtiens ce messsage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Can't use string ("/home/olivier/www/.htaccess") as a symbol ref while "strict refs" in use at admin.cgi line 62.

Un avis ?

Merci

[Olivier Regnier]

Je ne comprends pas pourquoi je m'énerve tout seul

Pouvez-vous s'il vous plaît me dire d'où vient le problème ? Ce message Can't use string, est omniprésent et je voudrais bien dormir cette nuit

Merci

[Jasmine80]

dois-je dupliquer ce fichier pour lui apporter les modifications ou peut-on le faire directement ?

Tu dois le lire ligne par ligne et le recopier dans un nouveau fichier en modifiant les lignes que tu veux changer.

Can't use string ("/home/olivier/www/.htaccess") as a symbol ref while "strict refs" in use at admin.cgi line 62.

J'ai déjà eu des messages similaires pour la première partie (Can't use string ("/home/olivier/www/.htaccess") as a symbol ref while "strict refs" ) quand je donnais un FileHandle comme nom de fichier.
Je ne connais pas les fichiers ".htaccess" mais peut-être que Perl ne peut pas l'ouvrir directement.

Jasmine,

[Gardyen]

bon déjà je ne suis pas habitué a la syntaxe de ton open, je préfère de loin le basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
my $htaccess = "my/path";
open (my $in, "<$htaccess") or die "mais euh !!"

ensuite tu veux remplacer ta ligne 25 non ? donc utilises plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$lines[25] = "#RewriteCond %{REQUEST_URI} !/tcsh.css\$\n";

au passage n'oublie pas d'échapper le $

enfin après la modification, tu as un filehandle $in ouvert en écriture sur ton ficher, c'est lui que tu dois utiliser, pas ton nom de fichier. Ça dégagera ton erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
# On ouvre le fichier
open ($in, ">$htaccess") or $msg="Ce fichier $htaccess n'a pu être ouvert : $!";
   # On écrit le contenu
    print $in @lines; # ---> ligne 62
# On ferme le fichier
close ($in);

Et je ne pense pas que Perl aie un problème pour ouvrir les .htaccess, à moins que l'utilisateur qui lance le script n'en ai pas le droit au départ

[Olivier Regnier]

Tout d'abord merci à tous les deux pour vos réponses.

$lines[25] = "#RewriteCond %{REQUEST_URI} !/tcsh.css\$\n";

Cette ligne est parfaite. Je l'ai testé et fonctionne

J'ai une question, je voudrais vérifier que les lignes de 25 à 30 commencent par le symbole #. Est-ce que ce début de test pourrait fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if ($lines[25-30] =~ s/#\s+//g;)
{
   print "Le site est en ligne\n";
}
else
{ 
   print "Le site est en maintenance\n";
}

Merci

[Gardyen]

je ne pense pas que cela fonctionne.

déjà $lines[15-20] te donnera l'élément situé a la 5e position avant la fin ou undef si ta liste n'est pas assez grande

la notation correcte est @list[1..3] mais ton test ne peut pas être appliqué tel quel.

Jettes donc un coup d'œil aux fonctions grep et map

[Olivier Regnier]

Bonjour Gardyen

la notation correcte est @list[1..3] mais ton test ne peut pas être appliqué tel quel.

Et pourquoi ?

le premier test de mon script permet de savoir via un message affiché à l'écran si le site est en maintenance ou pas. Donc je dois vérifier si les lignes de 1 à 5 sont commentées, donc le test est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if (@lines[1..5] =~ /^#/)
{
  print "Le site est opérationnel";
}
else
{
  print "Le site est en maintenance";
}

Qu'en penses-tu ? C'est le seulement le premier test

[Jedai]

On ne peut pas appliquer une regexp à un ensemble de lignes, la sémantique serait difficile à définir ; est-ce que le test est concluant dès que l'un des élément de la liste correspond à la regexp ou tous les éléments ?? (par exemple)

Du coup une regexp s'applique uniquement à un scalaire, ce qui signifie que ton test est sûrement équivalent à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ('5' =~ m/^#/)

où 5 est le nombre d'élément de ta liste...

Ce que tu veux c'est vérifier si tous les éléments de la liste correspondent à la regexp, ce qui peut se faire par exemple avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub all (&@) {my $block = shift; $block->($_) || return 0 for @_; 1 }
 
if (all {m/^#/} @lines[1..5])

--
Jedaï

[drigaudiere]

Olivier,
as-tu la possibilité d'ajouter dans ton .htaccess un tag autour de ces lignes ?
Si oui tu peux fonctionner autrement

Disons que ton .htaccess ressemble maintenant à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
# This website is in maintenance
#-#START#-#
RewriteCond %{REQUEST_URI} !/tcsh.css$
RewriteCond %{REQUEST_URI} !/img/back.gif$
RewriteCond %{REQUEST_URI} !/img/obsd.gif$
RewriteCond %{REMOTE_ADDR} !^41\.201\.2\.120
RewriteRule . http://www.oregnier.org/$ [R=302,L]
#-#STOP#-#

Ce code va parcourir le fichier et se contenter d'afficher la ligne
si nous ne sommes pas entre les tags.

Une fois dans les tags,
il va retirer les espaces et les # en début si $enable est vrai.
il va mettre un '# ' si $disable est vrai.

Ce code se contente d'afficher les modifications.
Il reste à gérer la modification dans le code actuel, le plus propre
étant de passer par File::Temp et d'inverser les fichiers ce qui permet
en plus de se garder une copie de secours.

Le gros du boulot est fait par les regexp dans le range operator
/foo/ .. /bar/
Il est vrai au premier foo rencontré et jusqu'au bar suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#!/usr/bin/perl
use warnings;
use strict;
 
my $enable  = 1;
my $disable = not $enable;
 
my $tag_start = '^#-#START#-#';
my $tag_stop  = '^#-#STOP#-#';
 
my $file = '/tmp/.htaccess';
open my $fh, "<$file" or die "$file : $!";
while(<$fh>) {
    if(/$tag_start/ .. /$tag_stop/) {
        if(not /$tag_start|$tag_stop/) {
            if($enable) {
                s/^[# \t]+//;
            }
            elsif($disable) {
                s/^[# \t]*/# /;
            }
            else {
                die "cas non gere\n";
            }
        }
    }
    print;
}
close $fh;

David "Sniper" Rigaudiere

[Olivier Regnier]

Bonjour David

Olivier,
as-tu la possibilité d'ajouter dans ton .htaccess un tag autour de ces lignes ?

Non pas à ma connaissance mais je vais garder ton code dans un coin car il peut servir pour d'autres fichiers de configuration

Bonjour jedai

Ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sub all (&@) {my $block = shift; $block->($_) || return 0 for @_; 1 }

fonctionne très bien.
J'ai commencé par produire ce morceau de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub check_file ()
{
	open my ($in), '<', "$htaccess" or die "$htaccess : $!";
	my @lines=<$in>;
	    if (all {m/^#/} @lines[1..5])
	    {
	    	$value="Disabled";
	    }
     	    else
    	    {
		$value="Enabled"; (code pour supprimer le # => à faire)
	    }
	close ($in);
}

ensuite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if ($cgi->param("submit"))
 
{
	open my $in, "<$htaccess" or die "$htaccess : $!";
	my @lines=<$in>;
	    if ($value eq "Disabled")
	    {
	    	print $in @lines[1..5] =~ s/^\#//;
	    }
	    else
	    {
	    	$value="Disabled";
	    }
    close $in;
}

Lorsque $value est égale à Disabled, je voudrais supprimer le symbole # devant les 5 lignes mais malheureusement, cela ne fonctionne pas, il doit manquer quelque chose $value correspond au texte de mon bouton submit.

Merci

[Woufeil]

Bonjour Olivier,

Comme te l'as dis Jedai, une regex ne s'aplique qu'à un scalaire... Utilise donc map :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my @int = map (s/^#.//, @lines[1..5]);
print $in @int;

Code non test, pas beaucoup de temps...

[Olivier Regnier]

Bonjour Olivier,
Comme te l'as dis Jedai, une regex ne s'aplique qu'à un scalaire...

Effectivement

Utilise donc map :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my @int = map (s/^#.//, @lines[1..5]);
print $in @int;

Ok

Code non test, pas beaucoup de temps...

Ne t'inquiète pas, ce n'est pas à toi de tester c'est mon rôle

Merci

[Woufeil]

Ne cherche même pas, c'est totalement faux

J'étais fatigué... Voici la bonne commande (testé cette fois ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @int = map ({s/^#+//; $_} @lines[1..5]);

Désolé

[Olivier Regnier]

Bonjour Woufeil

Bah ta commande ne fonctionne pas chez moi

Voici le code entier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
my $htaccess="/home/olivier/www/core/test";
 
if (! -e $htaccess)
{
	$msg="$htaccess doesn't seem to exist!";
}
 
sub all (&@) {my $block = shift; $block->($_) || return 0 for @_; 1 }
 
open my ($in), '<', "$htaccess" or die "$htaccess : $!";
    my @lines=<$in>;
    if (all {m/^#/} @lines[1..5])
    {
    	$value="Disabled";
    }
    else
    {
	$value="Enabled";
    }
close ($in);
 
if ($cgi->param("submit"))
{
	open my $in, '<', "$htaccess" or die "$htaccess : $!";
	my @lines=<$in>;
            if ($value eq "Disabled")
           {
    	       my @int = map ({s/^#+//; $_} @lines[1..5]);
    	       print $in @int;
           }
           else
           {
               # A faire
           }
        close ($in);
}

Une idée ?

Merci

[Woufeil]

Mon code supprime bien les # en début de chaîne, un petit print "$_\n" foreach (@int); te l'assurera... Par contre, j'avoue que je reste perplexe devant print $in @int; : $in est ouvert en lecture et tu essayes d'écrire dedans.... A toi de nous dire où tu veux écrire maintenant...

€dit : Autre chose, tu veux modifier quelles lignes ? Parce que mon code utilise la même tranche que celle que tu as donné dans ton code : de la 2nde ligne à la 6ème... C'est bien ce que tu veux faire ? La première ligne de ton fichier est $lines[0].

[Olivier Regnier]

Effectivement, $in était placé en lecture mais je le place en écriture comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

open my $in, '>', "$htaccess" or die "$htaccess : $!";

mon fichier est vide

C'est bien ce que tu veux faire ?

Oui Oui, le contenu de ce fichier est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
# This website is in maintenance
#RewriteCond %{REMOTE_ADDR} !^12\.568\.5\.411
#RewriteCond %{REQUEST_URI} !/tcsh.css$
#RewriteCond %{REQUEST_URI} !/img/back.gif$
#RewriteCond %{REQUEST_URI} !/img/obsd.gif$
#RewriteRule . http://www.oregnier.org/$ [R=302,L]

Merci pour ton coup de main

[Woufeil]

Je ne comprend pas tout ce que tu fais... Sur le code que tu as posté, le fichier n'est ouvert qu'en lecture.

Bon, quand tu ouvres ton fichier en écriture avec >, il va être écrasé, tu es au courant ?
Sinon, si tu veux juste modifier les lignes de ton fichier (pas en ajouter ou en supprimer), utilise Tie:: File : c'est un module qui va te permettre de considérer ton fichier comme un tableau. Ainsi, quand tu feras une modification sur @lines, elle sera directement répercutée sur ton fichier. Cela te conviendrais-t-il ? Au moins pour la partie du code que tu as posté, le module serait très approprié. Il te simplifiera la vie je pense

[Olivier Regnier]

Je ne comprend pas tout ce que tu fais... Sur le code que tu as posté, le fichier n'est ouvert qu'en lecture.

Oui grosse erreur

Bon, quand tu ouvres ton fichier en écriture avec >, il va être écrasé, tu es au courant ?

Maintenant oui

Sinon, si tu veux juste modifier les lignes de ton fichier (pas en ajouter ou en supprimer), utilise Tie:: File : c'est un module qui va te permettre de considérer ton fichier comme un tableau. Ainsi, quand tu feras une modification sur @lines, elle sera directement répercutée sur ton fichier.

J'ai vu un exemple d'utilisation dans la FAQ et je pense que cela pourrait convenir.

Merci

[Olivier Regnier]

Je viens de finir mon script ouf

Il permet de placer mon site perso en maintenance sans devoir éditer le fichier .htaccess manuellement.

Voici le contenu du fichier .htaccess par défaut (site opérationnel):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#RewriteCond %{REMOTE_ADDR} !^50\.225\.4\.150
#RewriteCond %{REQUEST_URI} !/tcsh.css$
#RewriteCond %{REQUEST_URI} !/img/back.gif$
#RewriteCond %{REQUEST_URI} !/img/obsd.gif$
#RewriteRule . http://www.oregnier.org/$ [R=302,L]

A l'exécution, on obtient un affichage similaire à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

The oregnier website is down for maintenance: [No]

Pour mettre le site en maintenance, j'appuis sur le petit bouton cela supprime automatiquement les # et la valeur de celui-ci passe à [Yes] et inversement.
Malgré que le script fonctionne, j'ai vraiment besoin de vos avis et sans doute d'une petite correction afin d'optimiser au maximum le code.

Merki les gars

PS: un grand merki à tous je mets résolu maus vous pouvez toujours me proposer d'éventuelles corrections.