Consultation des modifications du wikit

 

David Cobac 2 août 2004 : pour ceux qui vont de temps en temps consulter les dernières modifications du wikit, voilà un script qui lancé depuis un shell permet de les connaître.

 #!/bin/env tclsh
 package require http

 # récupération de la page des modifications
 set phone francophone
 set source "http://wfr.tcl.tk"
 if {$argv=="en"} {
     set phone anglophone
     set source "http://wiki.tcl.tk"
 }

 set montoken [http::geturl $source/4]
 set contenu [http::data $montoken]
 http::cleanup $montoken

 # pour les accents
 set contenu [encoding convertfrom utf-8 $contenu]
 # merci à Marc Thirion pour son aide
 # identification des titres de changements par journée
 regsub -all <b>  $contenu \001 contenu
 regsub -all </b> $contenu \002 contenu
 # récupération des dernières modifications
 foreach {itemName itemElements} [lreplace [split $contenu "\001\002"] 0 0] break
 # élimination des balises usuelles contenues dans ce document
 regsub -all {<a href="([0-9]*)">} $itemElements "$source/\\1  " itemElements
 regsub -all {<([a-z]|[0-9]|\s|/|"|=)*>} $itemElements {} itemElements
 # affichage final
 set titre "Dernières modifications sur le wikit $phone"
 set longTitre [string length $titre]
 puts $titre\n[string repeat - $longTitre]
 puts $itemName\n$itemElements

Voici les pages récentes affichées pour les wikit francophone et anglophone :

 $ ./modifwikit.tcl
 Dernières modifications sur le wikit francophone
 ------------------------------------------------
  2 août 2004
 http://wfr.tcl.tk/721   Consultation des modifications du wikit . . . 62.147.46.223
 http://wfr.tcl.tk/15     Nouvelles pages . . . 62.147.44.9

 $ ./modifwikit.tcl en
 Dernières modifications sur le wikit anglophone
 -----------------------------------------------
 August  2, 2004
 http://wiki.tcl.tk/10985  Brute force with velvet gloves . . . 216.31.149.100
 http://wiki.tcl.tk/8930  Debian . . . 130.60.68.45
 http://wiki.tcl.tk/12131  An LZW-compressing virtual filesystem . . . SEH,12.107.165.254
 http://wiki.tcl.tk/2737  David Andel . . . 130.60.68.45
 http://wiki.tcl.tk/756  IEEE binary float to string conversion . . . cl,208.220.161.33
 http://wiki.tcl.tk/8514  Locking Metakit for CGI . . . 130.60.68.45
 http://wiki.tcl.tk/12133  Brute force again . . . suchenwi,193.98.144.2
 http://wiki.tcl.tk/1436  label . . . 193.194.132.39
 http://wiki.tcl.tk/489  Event programming and why it is relevant to Tcl/Tk programming . . . 66.90.77.218
 http://wiki.tcl.tk/1178  Tcl Chatroom . . . suchenwi,193.98.144.2
 http://wiki.tcl.tk/11930  bifurcation . . . 81.227.122.170
 http://wiki.tcl.tk/12092  CAD software history . . . 209.211.14.101
 http://wiki.tcl.tk/3482  file link . . . vince,62.244.183.98
 http://wiki.tcl.tk/11885  Speed issues . . . 149.201.203.115
 http://wiki.tcl.tk/3877  tkcvs . . . 194.200.145.5
 http://wiki.tcl.tk/11662  comment PT . . . 213.58.137.142
 http://wiki.tcl.tk/1404  Img . . . lwv,134.243.6.132
 http://wiki.tcl.tk/1365  NeoSoft . . . lwv,134.243.6.132
 http://wiki.tcl.tk/848  nntp . . . lwv,134.243.6.132
 http://wiki.tcl.tk/11041  embed . . . lwv,134.243.6.132
 http://wiki.tcl.tk/4911  binary data access - tclbin (Demailly) . . . lwv,134.243.6.132
 http://wiki.tcl.tk/1181  binary . . . lwv,134.243.6.132
 http://wiki.tcl.tk/1591  Binary representation of numbers . . . lwv,134.243.6.132
 http://wiki.tcl.tk/3758  binary format . . . lwv,134.243.6.132
 http://wiki.tcl.tk/12137  Playing WIMP . . . suchenwi,193.98.144.2
 http://wiki.tcl.tk/12118  TclHttpd as WebDAV-Server . . . 145.253.2.26
 http://wiki.tcl.tk/12130  PHP under Tclhttpd . . . 193.218.36.78
 http://wiki.tcl.tk/650  TclWiki wikitext to html translation engine . . . 200.150.26.19
 http://wiki.tcl.tk/8179  wish-reaper . . . 199.86.45.196
 http://wiki.tcl.tk/10560  Starkits with Binary Extensions . . . schlenk,145.254.159.41