Bon, je passe la seconde alors... Je vous explique ce que je fais, ensuite je vous donne le code que j'ai fait avec mes doigts de pieds
Il s'agit de parser un fichier XML issu d'une extension de Firefox : Bookmark synchroniser. Cette extension permet d'exporter les bookmarks de firefox sur un serveur distant et ce au format
. il suffit ensuite d'avoir l'extension sur toutes les machines où vous avez une session et vos bookmarks sont toujours à jour.
Du coup, je dispose sur mon serveur du fichier xml en question. Li'dée est que lorsque je surfe depuis une machine qui ne m'appartient pas, je puisse accéder à mes bookmarks quand même. Pour ça il me suffit de parser le fichier XML et d'afficher ça en html.
#!/usr/bin/perl -w
use XML::XPath;
use XML::XPath::XMLParser;
use strict;
my $prefix = "rdf\%3A\#\$";
print "Content-type: text/html\n\n";
my $FolderId = $ENV{'QUERY_STRING'};
if($FolderId eq "") {
TraiteXBEL("");
}
else {
TraiteXBEL($FolderId);
}
exit(0);
sub TraiteXBEL {
# usage: TraiteXBEL($InputFolderId);
#
# * SI $FolderId est defini ALORS on liste les dossiers et les liens dans le dossier correspondant ;
# * SI $FolderId est vide ALORS on liste les dossiers et les liens à la racine.
my ($InputFolderId) = @_;
my $XPATH_REQUEST1;
my $XPATH_REQUEST2;
my $XPATH_REQUEST3;
my $XPATH_REQUEST4;
my $XPATH_REQUEST5;
my $XBEL = XML::XPath->new('./xbel.xml');
if($InputFolderId eq "") {
$XPATH_REQUEST1='/xbel/folder/@id';
}
else {
$InputFolderId = $prefix.$InputFolderId;
$XPATH_REQUEST1='//folder[@id=\''.$InputFolderId.'\']/folder/@id';
}
my $nodeset = $XBEL->find($XPATH_REQUEST1);
my $NbFolders = $nodeset->size();
print "<h2>Rubriques ($NbFolders)</h2>\n";
foreach my $node ( $nodeset->get_nodelist ) {
my $FolderId = XML::XPath::XMLParser::as_string( $node );
$FolderId =~ s/[ ]+?id="(.*?)"/$1/g;
# On extrait le suffixe du $FolderId pour eviter les caracteres speciaux.
my $suffix = substr($FolderId,8);
# liste des dossiers
$XPATH_REQUEST2='//folder[@id=\''.$prefix.$suffix.'\']/title/text()';
my $FolderName = $XBEL->find($XPATH_REQUEST2);
print "<ul>";
my $nom = XML::XPath::XMLParser::as_string( $FolderName->get_nodelist );
print "<li><a href=\"./xbel.cgi?$suffix\">$nom</a></li>\n";
print "</ul>";
}
# liste des liens
if($InputFolderId eq "") {
$XPATH_REQUEST3='/xbel/bookmark/@id';
}
else {
$XPATH_REQUEST3='//folder[@id=\''.$InputFolderId.'\']/bookmark/@id';
}
$nodeset = $XBEL->find($XPATH_REQUEST3); # on r�up�e tous les attr: id
my $NbLiens = $nodeset->size();
print "<h2>Marque-pages ($NbLiens)</h2>\n";
foreach my $node ( $nodeset->get_nodelist ) {
my $BookmarkId = XML::XPath::XMLParser::as_string( $node );
$BookmarkId =~ s/[ ]+?id="(.*?)"/$1/g;
# liste des bookmarks
$XPATH_REQUEST4='//bookmark[@id=\''.$BookmarkId.'\']/title/text()';
my $BookmarkTitles = $XBEL->find($XPATH_REQUEST4);
my $BookmarkTitle = XML::XPath::XMLParser::as_string( $BookmarkTitles->get_nodelist );
$XPATH_REQUEST5='//bookmark[@id=\''.$BookmarkId.'\']/@href';
my $BookmarkUrls = $XBEL->find($XPATH_REQUEST5);
my $BookmarkUrl = XML::XPath::XMLParser::as_string( $BookmarkUrls->get_nodelist );
$BookmarkUrl =~ s/[ ]+?href="(.*?)"/$1/g;
print "<a href=\"$BookmarkUrl\">$BookmarkTitle</a><br />\n";
}
}
Si aucun argument n'est passé par l'url, alors on affiche la liste des dossiers (balise folder) grâce à leur attribut id. ainsi que la liste des bookmarks à la racine. Si un id est passé en argument, alors, on fait la même démarche mais en partant du dossier correspondant.
Voila...
Auteur
Journalisée
Ce we je m'en occupe juste avant de prendre le train :-)
