#!/usr/bin/perl

$version = "1";

$param = shift; 
chomp $param;

# sert à l'automatisation des updates du côté serveur
if ($param eq "v") {
	print "$version";
	exit;
}

# illustration de la syntaxe 
# $var = <<LABEL;
# ...
# LABEL
# (le 2° LABEL devant être en début de ligne, ce que je ne ;sais pas faire en commentaire)
# qui met tout le texte entre les LABEL, formattage compris, dans la variable $var
# c'est une manière pratique d'entrer des données sans fioritures syntaxiques

$texte1= <<LABEL;
La syntaxe '<<label' permet de
mettre du texte
      dans une variable
	  avec tout le formattage
	  passage à la ligne etc ...
le label n'a d'effet que s'il est en début de ligne
  LABEL
	    LABEL
	    (la coloration syntaxique de kwrite ne comprend pas bien ça)
(et réagit à la première appartion de LABEL,)
(ce qui fait que, à partir de la ligne 29,)
(la coloration syntaxique n'est plus correcte :)
(entre autre, elle réagit induement aux apostrophes,)
(ce qui fait que, à partir de la première apostrophe, à la ligne 34,)
(la coloration syntaxique elle devient aberrante.)
(elle se rétablit après un nombre pair d'apostrophes,)
(comme ici à la ligne 38)
répétons ça :
      'hbn
      hg,hgjh'
      jhv
      'jhjh ;hjjhjhg'
(Cette aberrantion ne concerne que la coloration syntaxique de kwrite,)
(elle n'a aucun effet sur l'exécution du script)
LABEL

print $texte1;

$texte2= <<nimporte;
 n'importe quel string (sans espaces) peut servir de label
 (mais il ne peut pas y avoir d'espace entre << et le label)
    j'utilise des MAJUSCULES pour la lisibilité
nimporte


print "\n\n";

print $texte2;

exit;