Discussion :

[soho36]

Bonjour à tous!

Alors voilà, je viens de mettre en place une interface de helpdesk (Request Tracker -- RT pour les intimes) basé sur Perl.

Je suis maintenant en train de tester différents plugins, dont le plugin TimeWorker http://wiki.bestpractical.com/view/TimeWorked, sensé afficher un rapport sur le temps passé sur chaque ticket.

Lorsque je vais sur la page pour exécuter le script, voici le message d'erreur qui m'est retourné:

Code :

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

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print '

N'étant pas très bon développeur (et surtout n'ayant jamais touché au Perl! ), j'ai tenté une recherche sur google, mais je n'ai rien trouvé de concluant.

Voici la ligne indiquée dans l'erreur (en cas de besoin, tous le code est disponible sur la page du plugin, ou bien demandez moi )

Code :

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

  print '<tr style="font-weight: bold;"><td>Total</td><td>',$uhash->{$user_id}->{total},'</td></tr>',

Merci à vous!
Cordialement,
Anthony

[michon]

essaye déja tout simplement de finir la ligne par un " ; " a la place d'une " , " et regarde ce qu'il te dit...

Ensuite le print en lui même me parait bancal...
tu peux nous donner l'exemple de ce qui doit être affiché ? histoire de savoir ce que tu veux afficher comme quote et ponctuation...

Sinon, a première vue je pense que tu souhaitais cela :

Code :

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

1
2
 
print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash.'->{'.$user_id.'}->{'.$total.'}</td></tr>';

EDIT : pour du code, utilise les balises [CODE] et non [QUOTE]

[soho36]

Merci pour ta réponse

Concernant le ; je ne pense pas qu'il faille en mettre un (j'ai essayé quand même, àa n'a pas marché), en effet, le code de la ligne suivante est en fait la suite de cette commande:

Code :

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

1
2
3
4
 
  print '<tr style="font-weight: bold;"><td>'Total'</td><td>',$uhash->{$user_id}->{total},'</td></tr>',
        '</tdata></table>',$/;
}

J'ai essayé aussi de "coller" le " '</tdata></table>',$/; " à la suite de ma ligne, sans succès.

Pour ce que le code doit afficher, je ne sais pas vraiment en fait. Je sais qu'il est censé générer un rapport, mais c'est tout.

[michon]

ok, c'est un peu plus clair déja avec la fin... oublie donc ma ligne precedente et remplace tes " , " par des " . " car ton code ressemble a une concatenation pour moi, mais en PERL l'operateur est " . "

[soho36]

J'ai essayé avec ce code:

Code :

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

1
2
  print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash->{$user_id}->{total}.'</td></tr>',
        '</tdata></table>',$/;

Toujours la même erreur...

[michon]

Si je comprend bien,

Code :

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

$uhash->{$user_id}->{total}

est censé te retourner un résultat ? quel est-il ?
Peut-tu éxecuter cela en dehors du print et le mettre dans une variable ?

de plus, qu'est censé afficher la fin de ta ligne avec le ",$/" ?

[soho36]

Ce code n'est pas le mien et c'est la première fois que touche au Perl
Je ne suis donc pas en mesure de te dire à quoi sert " ,$/ ".
Et concernant l'exécution en dehors du print, est ce que cela marcherait:

Code :

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

1
2
 
print $uhash->{$user_id}->{total};

Concernant la variable "total", voici ce que j'ai trouvé dans le code source:

Code :

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

1
2
    # adjust the total time worked (for all queues)
    $uhash->{$user_id}->{total} += $ticket->TimeWorked;

Donc apparemment, elle contient la durée total pour la résolution de tous les tickets.

[Philou67430]

La fonction print admet une liste de paramètre, qui sont alors concatenés avant l'affichage. L'utilisation de l'opérateur , au lieu de . est donc tout à fait légal.

L'erreur indique qu'il y a un bareword dans la ligne, c'est à dire un mot qui n'est pas un mot-clé, et qui n'est ni un handle ni un symbole (un nom de variable précédé d'un sigil $, @, %, &, ...).
Le bareword est ici en gras

Code :

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

print '<tr style="font-weight: bold;"><td>'Total'</td><td>'

Il est du au fait que tu n'as pas protégé les quotes simples (si elles doivent apparaitre dans le HTML).
Pour cela, il peut-être utile d'utiliser l'opérateur q() :

Code :

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

print q(<tr style="font-weight: bold;"><td>'Total'</td><td>)

[michon]

ok...
Bon, je vois deux choses à éssayer, et sinon j'ai pu trop d'idée...

- La première, récuperer la variable total avant le print...

Code :

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

1
2
3
 
my $vartotal = $uhash->{$user_id}->{total};
print '<tr style="font-weight: bold;"><td>Total</td><td>'.$vartotal.'</td></tr></tdata></table>',$/;

- La deuxième, virer le ",$/" qui me semble parasite...

Code :

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

1
2
3
 
my $vartotal = $uhash->{$user_id}->{total};
print '<tr style="font-weight: bold;"><td>Total</td><td>'.$vartotal.'</td></tr></tdata></table>';

ou aussi

Code :

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

  print '<tr style="font-weight: bold;"><td>Total</td><td>'.$uhash->{$user_id}->{total}.'</td></tr></tdata></table>';

Et pense à poster les messages d'erreur si il y en a... Car sinon je pourrais pas t'aider plus...

[soho36]

Bonjour Philou67430

J'ai essayé ce que tu m'a dit, j'ai toujours le même type de message d'erreur:

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print q(

J'ai essayé de modifier les parenthèses:

Code :

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

1
2
  print q(<tr style="font-weight: bold;"><td>Total</td><td>',$uhash->{$user_id}->{total},'</td></tr>),
        '</tdata></table>',$/;

Et toujours la même erreur.

[Philou67430]

Tu n'as pas utilisé l'opérateur convenablement pour ton usage, car l'opérateur q() remplace les quotes simples, c'est à dire sans interpolation.
Pour interpoler des variables il faudrait éventuellement utiliser l'opérateur qq().

Cette ligne devrait être plus correcte :

Code :

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

  print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/;

Au passage, j'ai vérifié que cette ligne compilait. Si tu as toujours l'erreur, il faudra alors que tu donnes le contexte autour de cette ligne, car le problème est sans doute ailleurs.

[soho36]

Ca ne marche toujours pas

Voici la fonction complète:

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
foreach(keys(%{ $uhash })) {
  my $user_id = $_;
 
  next if ($uhash->{$user_id}->{total}        == 0);
  print '<h2>',$uhash->{$user_id}->{real_name},'</h2>';
  print '<table><tdata>',$/;
 
  foreach(keys(%{ $uhash->{$user_id}->{queues} })) {
 
    next if ($uhash->{$user_id}->{queues}->{$_} == 0);
 
    print '<tr>',
           '<td>',$_,'</td>',
           '<td>',$uhash->{$user_id}->{queues}->{$_},'</td>',
          '</tr>',$/;
  }
print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/;
}

Si vous voulez d'autres informations, n'hésitez pas à me demander

Sinon encore merci de m'aider Michon et Philou

EDIT : Pour rappel, voici le message d'erreur:

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "print qq(

[Philou67430]

J'ai testé ta portion de code avec une structure de donnée que j'ai créée, et je n'ai aucune erreur.
Pourrais-tu soit :
- fournir la liste de use utilisés dans le script
- fournir le script complet en pièce jointe avec éventuellement les jeux de fichiers d'entrée pour le tester

Pourrais-tu également indiquer la version perl que tu utilises ?

[Philou67430]

Autre idée, remplace cette ligne

Code :

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

print qq(<tr style="font-weight: bold;"><td>Total</td><td>'$uhash->{$user_id}->{total}'</td></tr></tdata></table>),$/;

par

Code :

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

print '<tr style="font-weight: bold;"><td>Total</td><td>', $uhash->{$user_id}->{total}, '</td></tr></tdata></table>',$/;

[soho36]

Toujours la même erreur

[Philou67430]

Peut-être pourrais-tu également répondre à mon message #13

[soho36]

Oups, désolé, je ne l'avais pas vu...

Alors pour la version de Perl:

This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi

Qu'entend tu par les jeux de fichier d'entrée?

[Philou67430]

Hum... je n'avais pas compris que le code perl n'était pas appelé directement par perl, mais intégré dans un méta-langage XML.

Ca se complique, car je me vois mal installer RT.

On va donc procéder autrement...
Pourrais-tu mettre la ligne 124 en commentaire (# en début de ligne) et m'indiquer s'il donne une erreur en ligne 140 à 144 ?

[soho36]

Il m'affiche toujours la même erreur, on dirait qu'il ne prend pas la ligne pour un commentaire:

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "# print '

J'ai essayé avec // , mais pareil:

Error during compilation of /opt/rt3/share/html/Tools/Reports/TimeWorked.html: Bareword found where operator expected at /opt/rt3/share/html/Tools/Reports/TimeWorked.html line 124, near "// print '

[Philou67430]

Essaye avec un commentaire XML : <!-- ... --> ?
En tout cas, le problème se situe autour de RT, pas de perl.