Menu
▾
▴
woc-commit — CVS commit messages are posted to this list.
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(132) |
Jul
(50) |
Aug
(172) |
Sep
(87) |
Oct
|
Nov
(1) |
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(39) |
Oct
(2) |
Nov
|
Dec
|
| 2004 |
Jan
(47) |
Feb
|
Mar
(11) |
Apr
|
May
|
Jun
|
Jul
|
Aug
(2) |
Sep
|
Oct
(9) |
Nov
|
Dec
|
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(2) |
Oct
|
Nov
|
Dec
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:37:17
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/bugs/bugsdata In directory usw-pr-cvs1:/tmp/cvs-serv10119/htplpdir/bugs/bugsdata Added Files: bugs.dat bugs.grm bugs.hlp editor Log Message: Added HTPLP dir (and a bit more). --- NEW FILE: bugs.dat --- 0#Solved bugs#WOC-redactie#wo...@sc...#16 oktober 1999#00:00h#1#Fouten in zowel de layout en de data komen helaas voor. In deze rubriek staan bugs die ondertussen zijn verbeterd. 1#Solved bugs#Egon#eg...@sc...#11-14-99#16:07h#2#Niet alle afkortingen staan in de lijst. 1#Solved bugs#Egon#eg...@sc...#11-14-99#16:47h#3#Solved! 2#Solved bugs#Egon#eg...@sc...#11-16-99#13:04h#2#Zoekresultaten geven bestandsnaam ipv. echte naam.<BR>Bv. benzoeumlzuur ipv. benzoëzuur. 2#Solved bugs#Egon#eg...@sc...#11-18-99#18:33h#3#Solved! 3#Solved bugs#Egon#egon#11-16-99#14:35h#2#Als de zoekmachine direct doorlinkt naar een <BR>compound dan laat ie de SSI niet zien. 3#Solved bugs#Egon#eg...@sc...#11-19-99#17:43h#3#solved! NAMELikeToANCHORLike functie uit<BR>Convert.java overgenomen. 3#Solved bugs#Egon#eg...@sc...#11-26-99#00:20h#4#Dezelfde fout zat in de start.shtml, waar hij<BR>de laatste tien gewijzigde of toegevoegde<BR>items laat zien.<P>Ook dat is aangepast. 4#Solved bugs#Egon#eg...@sc...#11-17-99#19:45h#2#Mengsels hebben niet het chemicalie azijnzuur<BR>icoontje. 4#Solved bugs#Egon#eg...@sc...#11-18-99#18:34h#3#Polymeren ook niet. 4#Solved bugs#Egon#eg...@sc...#12-01-99#21:00h#3#Solved! 6#Solved bugs#Egon#eg...@sc...#11-26-99#00:21h#2#Bromo-, chloro- etc zijn foute namen voor<BR>broom- en chloor-. Deze voorvoegsels komen<BR>echter regelmatig voor in de data. Als deze<BR>nog aanwezig is moet die nog aangepast worden.<P>grep bromo * | grep NL<P>Werkt er goed. 6#Solved bugs#Geert#gj...@sc...#11-26-99#10:33h#3#Ik ben er voor om:<BR> 'grep bromo *.xml;grep chloro *.xml'<BR>te gebruiken, want anders vind je geen vervoegingen<BR>en woorden in comments...<P>Geert<BR> 6#Solved bugs#Egon#eg...@sc...#12-02-99#19:26h#3#Micha, is deze bug nog niet helemaal verwijdert? 6#Solved bugs#Egon#eg...@sc...#12-28-99#11:14h#3#Solved!<P>Maar let er wel op dat er geen nieuwe in komen! 7#Solved bugs#Geert#gj...@sc...#12-01-99#17:05h#2#Volgens mij werkt NAMELikeToANCHORLike nog steeds niet altijd, want o.a<BR> de link naar het IR spectrum van vitamine E1 klopt<BR> niet! Ik wordt verwezen naar vitamine en niet<BR> vitamine E1... (het zit het in de <sub> die je in<BR> de link krijgt, < en > paktie niet... 7#Solved bugs#Egon#eg...@sc...#12-02-99#00:37h#3#Nou, hij zou hier eigenlijk ook de naam moeten<BR>gebruiken en niet een anchor, omdat het de naam<BR>is waarmee hij op het scherm getoond word.<P>Wat er dus moet gebeuren is dat het perl script<BR>zelf de naam opzoekt en die toont, en dat op<BR>basis van een cas-nummer dat als *enige* param<BR>meegegeven wordt.<P> 7#Solved bugs#Egon#egonw.kun.nl#12-02-99#11:06h#3#Solved! 8#Solved bugs#Micha#woc#12-01-99#20:05h#2#bij de vertalingen laat hij alleen de laatste<BR>vertaling zien, en niet allemaal. 8#Solved bugs#Egon#eg...@sc...#01-12-00#18:54h#3#Bug is getraceerd tot XItem.java.<P>Maar er treedt een complicatie op: LessGermanWord<BR>verwacht 1 woord en ItemFile verwacht meerdere<BR>woorden in een string. 8#Solved bugs#Egon#eg...@sc...#01-12-00#23:28h#3#solved! 9#Solved bugs#Egon#eg...@sc...#12-02-99#13:12h#2#De brutoformule lijst is veel te kort. 9#Solved bugs#Egon#eg...@sc...#12-10-99#11:30h#3#Misschien kunnen we deze indices on-the-fly<BR>laten aanmaken? 9#Solved bugs#Egon#eg...@sc...#02-08-00#21:31h#3#Solved! Thanks to Geert. 10#Solved bugs#Egon#eg...@sc...#12-02-99#19:24h#2#Volgorde van woorden in de Duits-Nederlandse<BR>woordenlijst klopt voor geen meter. 10#Solved bugs#Egon#eg...@sc...#01-12-00#23:37h#3#solved! 11#Solved bugs#Egon#eg...@sc...#12-05-99#13:08h#2#Als de zoekmachine slechts een item gevonden<BR>heeft laat hij deze zien (dat is goed). Maar<BR>de SSI commando's worden dan niet uitgevoerd.<P>Dit moet *wel* gebeuren. Dus de zoekmachine<BR>moet ook instaat zijn SSI commando's uit te <BR>voeren. 11#Solved bugs#Egon#eg...@sc...#12-23-99#13:37h#3#Solved! Opgelost door gebruik te maken van het<BR>HTTP/1.x protocol. Net zoals je Content-type<BR>mee kan geven, kan je ook "Location: URL" meegeven, om aan te geven dat de URL verandert is.<P>En omdat het een cgi-bin script is, kan je deze<BR>HTTP code nog toevoegen. 12#Solved bugs#Egon#eg...@sc...#12-10-99#11:31h#2#De internet zoekmachine functioneert niet meer!<BR>Zeer hoge prioriteit! 12#Solved bugs#Egon#eg...@sc...#12-10-99#12:21h#3#Solved! <P>Nieuwe versie van de WWW::Search perl module <BR>geinstalleerd. Maar er blijken wel nog meer<BR>bugs aanwezig. Zie bugnr. 13. 17#Solved bugs#Egon#eg...@sc...#12-19-99#14:17h#2#De 'item pagina' van groepen heeft niet de link<BR>'Alle items' zodat er vanaf daar niet naar die<BR>pagina geklikt kan worden. 17#Solved bugs#Egon#eg...@sc...#12-28-99#11:21h#3#solved! 18#Solved bugs#Egon#eg...@sc...#01-02-00#11:18h#2#De lijst met "alkanen" bevat meerdere alkanen<BR>waarvoor de structuutformule niet goed weergegeven<BR>wordt; er missen haakjes om de centrale methyleen- <BR>groepen. 18#Solved bugs#Egon#eg...@sc...#01-14-00#01:17h#3#Solved!<P>Maar de code in Bruto.java is sowieso niet<BR>erg geweldig robuust. :)<P>Maar ach.. op naar de volgende bug. 19#Solved bugs#Egon#eg...@sc...#01-02-00#11:20h#2#Er komen veel niet-afkortingen voor in de lijst<BR>van afkortingen. 19#Solved bugs#Egon#eg...@sc...#01-13-00#12:53h#3#Solved!<P>Net zoals de Engels-Nederlandse en Duits-<BR>Nederlandse vertalingen wordt nu ook deze index <BR>via een perl script aangemaakt en via een XSLT <BR>stylesheet vertaald naar een webpagina. 20#Solved bugs#Egon#eg...@sc...#01-02-00#11:25h#2#De afweging of er in de 'letterfiles' via "Meer<BR>info" verwezen moet worden naar de 'itemfile'<BR>is niet volledig. Als er alleen vertalingen zijn,<BR>wordt er geen verwijzing gemaakt terwijl dit wel<BR>moet. 20#Solved bugs#Egon#eg...@sc...#01-14-00#00:45h#3#Solved! 22#Solved bugs#Joost#wo...@sc...#01-12-00#20:09h#2#Mkwml levert nog steeds XML files met encoding:"UTF-8"<BR>dit moet de ISO-8859-1 encoding zijn!<BR>Er zullen dus nog een groot aantal files zijn met de<BR>verkeerde encoding! 22#Solved bugs#Geert#gj...@sc...#01-17-00#11:54h#3#Solved!...<P>Graag echter wel alle bestanden open zetten, anders<BR>kan ik degenen met de verkeerde encoding niet<BR>corrigeren... 25#Solved bugs#Egon#eg...@sc...#01-30-00#16:23h#2#Het met de Java software converteren van de data<BR>geeft een "Connection timed out" error.<P>Bv. met "SimpleAddItem kaneelaldehyd.xml". 25#Solved bugs#Egon#eg...@sc...#01-31-00#20:37h#3#Workaround: vorm de http url om in een file url. 25#Solved bugs#Egon#eg...@sc...#01-31-00#21:22h#4#Nee, workaround werkt niet. Maar fout bleek na<BR>twee uur zoeken te liggen aan het feit dat de <BR>officiele CML site niet bereikbaar was. 25#Solved bugs#Egon#eg...@sc...#01-31-00#21:23h#5#Solved! door een locale copie van de cml.dtd<BR>te gebruiken. 26#Solved bugs#Egon#eg...@sc...#02-11-00#23:12h#2#mkwml voegt nieuwe items telkens met hetzelfde<BR>WOC nummer toe, waar hij het eerstvolgende moet<BR>nemen. 26#Solved bugs#Egon#eg...@sc...#02-11-00#23:16h#3#Solved! Mkwml zocht alleen naar "ITEM ID="<BR>terwijl het ID attribuut *niet* altijd het tweede<BR>attribuut is. 27#Solved bugs#Egon#eg...@sc...#02-13-00#10:48h#2#Huub Willems meldde dat de pagina met ChemSymphony<BR>niet werkte. 27#Solved bugs#Egon#eg...@sc...#02-13-00#10:49h#3#Solved!<P>De bug was snel terug te vinden: het script<BR>dat de pagina met de ChemSymphony 3D applet maakte<BR>gebruikte een oude directory en niet de dadml<BR>directory. Dit is aangepast. 28#Solved bugs#Huub Willems#ba...@tr...#03-16-00#23:17h#2#(new) Bug 27 is volgens mij nog steeds niet opgelost. Ik blijf problemen houden met chemlite bij bijvoorbeeld ethaan en butaan. Vreemd genoeg geeft 1-butanol wel een 3d plaatje. 0#Nieuwe bugs#WOC-redactie#wo...@sc...#16 oktober 1999#00:00h#1#Fouten in zowel de layout en de data komen helaas voor. Heeft u een nieuwe gevonden, meldt u die dan in deze rubriek. 5#Nieuwe bugs#Egon#eg...@sc...#11-26-99#00:19h#2#(new) De groepenlijst geeft problemen bij termen<BR>zoals "IUPAC nomenclatuur". Waarschijnlijk<BR>omdat daar een spatie in zit. 5#Nieuwe bugs#Egon#eg...@sc...#02-08-00#22:32h#3#(new) Workaround: zolang er een WOC nummer bekend is<BR>voor het item, wordt deze gebruikt om de naam<BR>op te zoeken. Hierdoor wordt het gebruik van <BR>spaties in de URL voorkomen. Maar veel groepen<BR>(zoals acyclische koolwaterstoffen) hebben geen<BR>eigen *.xml bestand en daarom geen WOC nummer.<P>Deze woorden blijven voorlopig *met* een spatie<BR>aangeroepen. Een workaround hiervoor is het <BR>toch aanmaken van een *.xml bestand met alleen<BR>de item element en naam (zie het net toegevoegde<BR>acyclischekoolwaterstoffen.xml). 13#Nieuwe bugs#Egon#eg...@sc...#12-10-99#12:23h#2#(new) De query die de letterfiles aan het 'wereldbolletje'<BR>doorgeven, klopt niet altijd. <P>Bv. kaneelaldehyde wordt als 'kaneelaldehyde' door<BR>gegeven en realsearch.pl (via netsearch.pl) kan <BR>vervolgens kaneelaldehyde.xmlniet vinden (want dat<BR>is kaneelaldehyd.xml).<P>En dit is bij meerdere woorden het geval. 14#Nieuwe bugs#Egon#eg...@sc...#12-14-99#19:25h#2#(new) Bij regel E-1.1 moeten list items van het type<BR>"a" gebruikt worden. Het attribuut type="a" is<BR>in de XML wel gegeven, maar wordt door de<BR>WocEngine niet doorgegeven.<P>Moet geklaard worden voordat de Demo geshowd<BR>wordt. 15#Nieuwe bugs#Egon#eg...@sc...#12-14-99#19:36h#2#(new) Weer regel E-1.1. Als er in EXAMPLE->P twee<BR>data geimporteerd wordt, wordt de tekst ertussen<BR>niet doorgegeven door de WocEngine. 15#Nieuwe bugs#Egon#eg...@sc...#12-14-99#20:51h#3#(new) Een workaround is het gebruik van een tabel.<BR>Hierdoor voorkom je de aanwezigheid van<BR>'mixed data' (of (#PCDATA|ELEMENT)* in de DTD).<P>Mogelijk dit dit 'mixed data' ook de oorzaak van<BR>de bug is. 16#Nieuwe bugs#Egon#eg...@sc...#12-15-99#17:13h#2#(new) Een lezer merkte op dat er PDB's zijn waar geen<BR>waterstofatomen bij zitten... Het is in principe<BR>de bedoeling dat die er wel bij zitten.<P>Het is onbekend hoeveel PDB's er 'corrupt' zijn. 21#Nieuwe bugs#Joost#Wo...@sc...#01-12-00#19:13h#2#(new) Als je op een bug (de link ervan) klikt krijg je niet <BR>die bug te zien, maar de bug die ervoor stond.<BR>Dus als ik bug 18 wil zien en erop klik, dan<BR>krijg ik bug 17 te zien!<BR> 21#Nieuwe bugs#Egon#eg...@sc...#01-14-00#00:44h#3#(new) Ik heb hem nog niet kunnen reproduceren. 21#Nieuwe bugs#Geert#gs...@sc...#01-17-00#11:52h#4#(new) Waarschijnlijk IS deze bug niet te reproduceren,<BR>want je moet gewoon niet de Back-button gebruiken,<BR>maar zo vaak mogelijk het script opnieuw aanroepen<BR>door de links op de pagina's zelf te gebruiken.<P>Mocht er dan iemand iets toevoegen terwijl iemand<BR>aan het bladeren is, blijft de verwarring beperkt.<BR> 23#Nieuwe bugs#Joost#wo...@sc...#01-12-00#20:38h#2#(new) de link bij Ladenburg, Albert naar Kekule <BR>(met accent) klopt niet. Dit is een software bug.<BR>Kekule staat wel degelijk in het woordenboek, maar <BR>blijkbaar is deze niet correct. Hier moet naar <BR>gekeken worden! Wat de oplossing hiervoor is weet <BR>ik niet hoor. 24#Nieuwe bugs#Joost#wo...@sc...#01-12-00#20:56h#2#(new) Er worden gebroken plaatjes weergegeven bij items <BR>met een CAS-nr, waar geen plaatje van is.<BR>Blijkbaar wordt er gekeken of er een CAS-nr is <BR>waarna een link aangemaakt wordt of er wel of geen<BR>plaatje aanwezig is. Het script negeert de excludes<BR>tag! 24#Nieuwe bugs#Joost#wo...@sc...#01-12-00#21:00h#3#(new) Een voorbeeld hiervan is water! 24#Nieuwe bugs#Geert#gj...@sc...#01-17-00#11:59h#4#(new) Correctie!<P>De link voor het plaatje wordt niet toegevoegd aan<BR>de WML-bestanden. Echter, het script voor het uitzoeken<BR>van de gif-link in de WML's let inderdaad niet op<BR>de EXCLUDED-tag in de WML's zelf. Maar daarnaast<BR>denk ik dat de parser voor de HTML-files van slag<BR>raakt van die EXCLUDED-tag, want die denk ineens<BR>wel dat er een plaatje is, terwijl de path<BR>/ITEM/WOC/MEDIA[@MIME='image/gif'] helemaal niet bestaat! 29#Nieuwe bugs#Egon#eg...@sc...#04-10-00#12:32h#2#(new) Zoeken op PE in de zoekmachine geeft een<BR>Internal Server Error! 29#Nieuwe bugs#Egon#eg...@sc...#04-10-00#13:43h#3#(new) Opgelost! <P>De oorzaak bleek een match in de DOCTYPE<BR>regel, waarna geprobeerd werd de $title attribuut<BR>te gebruiken, maar die was uiteraard nog niet<BR>gezet.<P>Bug fix: DOCTYPE en ?xml? regel niet laten matchen. 29#Nieuwe bugs#Egon#eg...@sc...#04-10-00#13:45h#3#(new) Constructiever is het programma alleen te laten<BR>matchen op data en niet op metadata...<P>zoeken op item zou anders veel hits geven :( 30#Nieuwe bugs#Egon#eg...@sc...#04-16-00#23:10h#2#(new) Hoewel in de indices, wordt benzoezuur in de B<BR>letterbestanden niet goed gesorteerd... dit komt<BR>waarschijnlijk omdat Java die e met umlaut niet<BR>als e herkent... :(<P>Geen idee hoe dat op te lossen is...<P> 31#Nieuwe bugs#Egon#eg...@sc...#08-17-00#10:32h#2#(new) De website werkt niet met Mozilla. Dit komt schijnbaar<BR>door een fout in de Javascript in de index.html.<BR>Hij geeft een "vier not defined" error... 32#Nieuwe bugs#David Lutje Hulsik#dlu...@cm...#10-09-00#17:51h#2#(new) "Rode knop" by cafeine verwijst niet goed;<BR> je krijgt info over formaldehyde. 32#Nieuwe bugs#Egon#eg...@sc...#10-10-00#13:07h#3#(new) Opgelost! <P>Het probleem was dat ie niet het CAS nummer doorgaf<BR>wat nodig is. Bovendien zat er ook nog een fout<BR>in het Perl script, en die is ook verwijdert. 33#Nieuwe bugs#Egon#eg...@sc...#10-10-00#17:21h#2#(new) Polybutadieen is geen polymeer van 13butadieen maar<BR>van 1,3-polybutadieen.<P>Dit is een fout in Geert's code voor het genereren<BR>van een volzin op basis van TopicMap code... 34#Nieuwe bugs#Egon#eg...@sc...#11-15-00#12:08h#2#(new) Het plaatje van nitroglycerine klopt niet.<BR>Het wordt automatisch toegevoegd en is dus een<BR>zeer kwalijke bug! 34#Nieuwe bugs#Egon#eg...@sc...#11-15-00#12:10h#3#(new) Plaatje in http://www.sci.kun.nl/woc/data/pictures/gifgalary/55-63-0.gif<BR>was fout en is verwijdert. (CAS klopt wel.)<P>Directory daarentegen is fout. Dit moet zijn<BR>data/dadml/2d/gif/...<BR> 35#Searchengine#Micha Fleuren#mi...@sc...#11-29-00#18:52h#2#(new) Search engine laat spaties aan het begin van<BR>een zoekopdracht staan. Hier wordt ook op gezocht.<BR>Deze kunnen dus verwijdert worden. 36#Nieuwe bugs#Egon#eg...@sc...#12-13-00#17:27h#2#(new) Als er topic maps voorkomen in een bestand<BR>kan de XSLT engine in combo met picture.xsl de<BR>plaatjes niet vinden, of geeft ie een foutmelding.<BR> 36#Nieuwe bugs#Egon#eg...@sc...#12-13-00#17:36h#3#(new) Dit wordt opgelost door de volgende namespace<BR>toe te voegen (zie butaan.xml):<P> xmlns:xlink="http://www.w3.org/1999/xlink"<P> --- NEW FILE: bugs.grm --- volgorde: 8 bugnummer subject naam email datum tijd niveau inhoud verdeling: 6 0 1 2, 4, 5 3 7 6 weergave: 6 bugnummer: subject : naam : email : inhoud : niveau : --- NEW FILE: bugs.hlp --- // $mode.hlp - bestand met alle help gegevens // // De regels beginnend met / zijn commentaar, extra commentaar alleen tussen de arrays en // minimaal een regel commentaar ertussen is essentieel. // De andere regels gaan twee aan twee, het eerste bevat het item, de tweede de beschrijving // zorg dat in ieder geval de items met spaties worden aangevuld tot de lengte van de langste // uit het deellijstje... // Lengte van de deellijstjes onbegrensd // commando help /// ident /// hieronder een overzicht van alle beschikbare commando's: help deze uitleg usage geeft overzicht alle mogelijke parameters ? geeft alle (on)mogelijke afkortingen find zoeken op gegevens show weergeven studentgegevens del verwijderen van studenten edit wijzigen studentgegevens filter selectief verwijderen studenten new toevoegen studenten unfilter wijzigingen vanaf laatste filter teniet doen read (opnieuw) inlezen studentgegevens save opslaan wijzigingen quit afsluiten editor probeer eens usage of ? EOH commando usage /// ident /// hieronder per commando de mogelijke parameters: help usage ? find <gegeven> <zoekstring> [..] show [(<nr> [..] | alles)] (default = huidige) del [<nr> [..]] (default = huidige) edit [<nr>] (default = huidige) filter <gegeven> <zoekstring> [..] new (student | jaar)", unfilter read [<bestand>] (default = $datafile) save [<bestand>] (default = $newdatafile) quit probeer eens ? EOH commando afkort /// ident /// de tekens binnen [] zijn overbodig: d[el] sa[ve] e[dit] s[how] fil[ter] us[age] f[ind] u[nfilter] h[elp] q[uit] n[ew] ? r[ead] EOH edit help /// ident /// kies een van de volgende items om deze te wijzigen: probeer eens ? EOH edit afkort /// ident /// de tekens binnen [] zijn overbodig: EOH --- NEW FILE: editor --- #!/usr/bin/tcsh cd /vol/www/sigma/bin/editor Editor woc |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:37:17
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/bugs
In directory usw-pr-cvs1:/tmp/cvs-serv10119/htplpdir/bugs
Added Files:
bericht.htpl berichtkop.htpl bugs.htpl bugs.pl eindelijst.htpl
incompleet.htpl nieuwelijst.htpl overigkop.htpl overzicht.htpl
rubriek.htpl rubriekkop.htpl rubriektoc.htpl toevoegform.htpl
vraagkop.htpl
Log Message:
Added HTPLP dir (and a bit more).
--- NEW FILE: bericht.htpl ---
<CENTER>
if $vraag <FONT SIZE=+1><B>Bug of reactie</B></FONT><BR>
if !$vraag <FONT SIZE=+1><B>Over $subject</B></FONT><BR>
<I>(<A HREF="mailto:$email">$naam</A>, $stamp)</I>
</CENTER>
<P>
<HR WIDTH=20%>
<P>
<UL>
if $vraag (<i>bug #$bugnummer</i>) <B>$inhoud</B>
if !$vraag $inhoud
<P>
$reacties
</UL>
<P>
<H3 ALIGN=Center>
if $volgendelink [ <A HREF="$volgendelink">Volgende</A> ]
if $vraag [ <A HREF="$voorgangerlink">Rubriek</A> ]
if !$vraag [ <A HREF="$voorgangerlink">Voorganger</A> ]
[ <A HREF="$reactielink">Reageren</A> ]
[ <A HREF="$script">Rubrieken</A> ]
</H3>
--- NEW FILE: berichtkop.htpl ---
<LI>@bugnummer: <B>@subject</B> <A HREF="@berichtlink">@naam</A> <I>(@stamp)</I>
--- NEW FILE: bugs.htpl ---
Content-type: text/html
<HTML>
<HEAD>
<META NAME="Author" CONTENT="Geert Josten, reactielid WOC">
<META NAME="Description" CONTENT="WOC: Bugs en reacties">
<META NAME="Generator" CONTENT="Perl-Sript: $0 $scriptage">
<META NAME="IsIndex" CONTENT="No">
<META NAME="Maintainer" CONTENT="$maintainer">
<META NAME="Review" CONTENT="$time">
<BASE href="http://www.sci.kun.nl/woc/" TARGET="pagina">
<TITLE>FAQ: $header </TITLE>
<link rel="stylesheet" href="gui/styles/woc.css" type="text/css">
</HEAD>
<BODY class="main">
<H1 ALIGN=Center>Bugs en Reacties: $header</H1>
<HR>
<BR>
<BR>
if $overzicht $overzicht.htpl
if $rubriektoc $rubriektoc.htpl
if $bericht $bericht.htpl
if $toevoegform $toevoegform.htpl
if $toevoegformincompleet $incompleet.htpl
<P>
<HR>
<UL>
<CENTER><I>De WOC-redactie behoudt het recht om naar eigen inzicht de toegevoegde bugs
al dan niet op te lossen :).</I></CENTER>
</UL>
</BODY>
</HTML>
--- NEW FILE: bugs.pl ---
$contentcheckers = "woc\@sci.kun.nl";
## main ##
($reforder, $refdistr, $refkeys, $datasep, $fieldsep) = @$grammar;
$datum = `date '+%m-%d-%y'`;
$tijd = `date '+%H:%Mh'`;
if ((@ARGV) && ($ARGV[0] =~ /^nieuw/i)) {
shift (@ARGV);
$niveau = shift (@ARGV);
$nummer = shift (@ARGV);
if ($niveau > 2) {
$header = "Vul hier je reactie in...";
&maak_reactieform ();
} else {
$header = "Vul hier je bug of reactie in...";
if ($nummer > 0) {
&maak_reactieform ();
} else {
&maak_reactieform ();
$subject = "Ongerubriceerd";
$nummer = @$refdata;
}
}
$toevoegform = "true";
} elsif ((@ARGV) && ($ARGV[0] =~ /^voegtoe/i)) {
shift (@ARGV);
$niveau = shift (@ARGV);
$nummer = shift (@ARGV);
if (&voeg_nieuw_bericht_toe ()) {
$reacties = "";
$nummer++;
$header = "\$inhoud";
if ($niveau > 2) {
$bericht = "overig";
} else {
$bericht = "vraag";
$vraag = "true";
}
&maak_bericht ();
} else {
$toevoegformincompleet = "true";
}
} elsif ((@ARGV) && ($ARGV[0] =~ /^rubriek/i)) {
$header = "Bugs Overzicht";
shift (@ARGV);
$nummer = shift (@ARGV);
$rubriektoc = " ";
&maak_rubriek ();
$vraagtoevoeglink = "$script+nieuw+2+$nummer";
} elsif ((@ARGV) && ($ARGV[0] =~ /^vraag/i)) {
$header = "Antwoorden op bugs";
shift (@ARGV);
$nummer = shift (@ARGV);
$bericht = "vraag";
$vraag = "true";
&maak_bericht ();
} elsif ((@ARGV) && ($ARGV[0] =~ /^\d+/i)) {
$header = "Antwoord en commentaar";
$nummer = shift (@ARGV);
$bericht = "overig";
&maak_bericht ();
} else {
$header = "Rubrieken Overzicht";
$overzicht = "";
&maak_overzicht ();
$niveau = "1";
$nummer = @$refdata;
$nieuwevraaglink = "$script+nieuw+2+0";
}
$return = "";
sub maak_reactieform {
my $refsubject = &get (["subject"], [$$refdata[$nummer-1]], $grammar, "");
if ($niveau <= 2) {
# zoek hoogste bugnummer #
my $refbugnummers = &get (["bugnummer"], $refdata, $grammar, "");
@$refbugnummers = sort by_number (@$refbugnummers);
$bugnummer = @$refbugnummers[-1] + 1; # nieuwe bugnummer!! #
} else {
# pak bijbehorende bugnummer #
my $refbugnummer = &get (["bugnummer"], [$$refdata[$nummer-1]], $grammar, "");
$bugnummer = $$refbugnummer[0];
}
$subject = $$refsubject[0];
}
sub by_number {
if ($a < $b) {
return -1;
} elsif ($a > $b) {
return 1;
} else {
return 0;
}
}
sub maak_overzicht {
$htmlrubriek = &readhtml ("rubriek.htpl");
$refbugnummer = &get (["bugnummer"], $refdata, $grammar, "");
$refsubject = &get (["subject"], $refdata, $grammar, "");
$refnaam = &get (["naam"], $refdata, $grammar, "");
$refemail = &get (["email"], $refdata, $grammar, "");
$refstamp = &get (["datum", "tijd"], $refdata, $grammar, "");
$refniveau = &get (["niveau"], $refdata, $grammar, "");
$refinhoud = &get (["inhoud"], $refdata, $grammar, "");
@i = (1..@$refdata);
$numvraag = 0;
$numant = 0;
$numcomm = 0;
foreach $i (@i) {
$bugnummer = shift @$refbugnummer;
$subject = shift @$refsubject;
$naam = shift @$refnaam;
$email = shift @$refemail;
$email =~ s#\@#\\\@#ig;
$stamp = shift @$refstamp;
$stamp =~ s/#/, /i;
$niv = shift @$refniveau;
$inhoud = shift @$refinhoud;
if ($niv == 1) {
push (@rubrieklink, "$script+rubriek+$i");
push (@bugnummer, $bugnummer);
push (@subject, "\u$subject");
push (@email, $email);
push (@naam, "\u$naam");
push (@stamp, $stamp);
push (@niveau, $niveau);
push (@inhoud, "\u$inhoud");
($numvraag = "geen") if ! $numvraag;
($numant = "geen") if ! $numant;
($numcomm = "geen") if ! $numcomm;
push (@numvraag, $numvraag);
push (@numant, $numant);
push (@numcomm, $numcomm);
$overzicht .= "$htmlrubriek";
$numvraag = 0;
$numant = 0;
$numcomm = 0;
} else {
if ($niv == 2) {
$numvraag++;
} elsif ($niv == 3) {
$numant++;
} elsif ($niv > 3) {
$numcomm++;
}
}
}
($numvraag = "geen") if ! $numvraag;
($numant = "geen") if ! $numant;
($numcomm = "geen") if ! $numcomm;
push (@numvraag, $numvraag);
push (@numant, $numant);
push (@numcomm, $numcomm);
shift (@numvraag);
shift (@numant);
shift (@numcomm);
}
sub maak_rubriek {
$htmlnieuwelijst = &readhtml ("nieuwelijst.htpl");
$htmlrubriekkop = &readhtml ("rubriekkop.htpl");
$htmlvraagkop = &readhtml ("vraagkop.htpl");
$htmloverigkop = &readhtml ("overigkop.htpl");
$htmleindelijst = &readhtml ("eindelijst.htpl");
$last = $nummer;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$niveau = $$refniveau[0];
while (($niveau > 1) && ($last < @$refdata)) {
$last++;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$niveau = $$refniveau[0];
}
@i = (($nummer-1)..($last-1));
@data = @$refdata[@i];
$refbugnummer = &get (["bugnummer"], \@data, $grammar, "");
$refsubject = &get (["subject"], \@data, $grammar, "");
$refnaam = &get (["naam"], \@data, $grammar, "");
$refemail = &get (["email"], \@data, $grammar, "");
$refstamp = &get (["datum", "tijd"], \@data, $grammar, "");
$refniveau = &get (["niveau"], \@data, $grammar, "");
$refinhoud = &get (["inhoud"], \@data, $grammar, "");
foreach $reactieinhoud (@overiginhoud) {
$reactieinhoud = substr($reactieinhoud, 0, 40)."...";
}
$niv = 1;
@i = ($nummer..$last);
foreach $i (@i) {
$bugnummer = shift @$refbugnummer;
$subject = shift @$refsubject;
$naam = shift @$refnaam;
$email = shift @$refemail;
$email =~ s#\@#\\\@#ig;
$stamp = shift @$refstamp;
$stamp =~ s/#/, /i;
$oldniv = $niv;
$niv = shift @$refniveau;
$inhoud = shift @$refinhoud;
if ($niv < $oldniv) {
$j = $niv;
while ($j < $oldniv) {
$rubriektoc .= "$htmleindelijst";
$j++;
}
}
if ($niv > $oldniv) {
$j = $oldniv;
while ($j < $niv) {
$rubriektoc .= "$htmlnieuwelijst";
$j++;
}
}
if ($niv == 1) {
$rubrieklink = "$script+rubriek+$i";
$rubrieksubject = "\u$subject";
$rubrieknaam = "\u$naam";
$rubriekinhoud = "\u$inhoud";
} elsif ($niv == 2) {
push (@bugnummer, $bugnummer);
push (@vraaglink, "$script+vraag+$i");
push (@vraagnaam, "\u$naam");
push (@vraaginhoud, "\u$inhoud");
$rubriektoc .= "$htmlvraagkop";
} else {
push (@overiglink, "$script+$i");
push (@overignaam, "\u$naam");
$inhoud = substr($inhoud, 0, 40)."...";
push (@overiginhoud, "\u$inhoud");
$rubriektoc .= "$htmloverigkop";
}
}
$rubriektoc .= "$htmleindelijst";
$rubriektoc .= "$htmleindelijst";
}
sub maak_bericht {
$htmlnieuwelijst = &readhtml ("nieuwelijst.htpl");
$htmloverigkop = &readhtml ("overigkop.htpl");
$htmleindelijst = &readhtml ("eindelijst.htpl");
$refbugnummer = &get (["bugnummer"], [$$refdata[$nummer-1]], $grammar, "");
$refsubject = &get (["subject"], [$$refdata[$nummer-1]], $grammar, "");
$refnaam = &get (["naam"], [$$refdata[$nummer-1]], $grammar, "");
$refemail = &get (["email"], [$$refdata[$nummer-1]], $grammar, "");
$refstamp = &get (["datum", "tijd"], [$$refdata[$nummer-1]], $grammar, "");
$refniveau = &get (["niveau"], [$$refdata[$nummer-1]], $grammar, "");
$refinhoud = &get (["inhoud"], [$$refdata[$nummer-1]], $grammar, "");
$bugnummer = $$refbugnummer[0];
$subject = $$refsubject[0];
$naam = $$refnaam[0];
$email = $$refemail[0];
$stamp = $$refstamp[0];
$niveau = $$refniveau[0];
$inhoud = $$refinhoud[0];
$stamp =~ s/#/ /i;
$email =~ s#\@#\\\@#ig;
$reactielink = "$script+nieuw+".($niveau+1)."+$nummer";
### de 'parent', voorganger ###
$prev = $nummer-2;
$refniveau = &get (["niveau"], [$$refdata[$prev]], $grammar, "");
$prevniveau = $$refniveau[0];
while (($prevniveau >= $niveau) && ($prev > 0)) {
$prev--;
$refniveau = &get (["niveau"], [$$refdata[$prev]], $grammar, "");
$prevniveau = $$refniveau[0];
}
if ($prevniveau < $niveau) {
if ($prevniveau == 1) {
$voorgangerlink = "$script+rubriek+".($prev+1);
} elsif ($prevniveau == 2) {
$voorgangerlink = "$script+vraag+".($prev+1);
} else {
$voorgangerlink = "$script+".($prev+1);
}
}
### de reacties en het eerst volgende broertje of zusje ###
if ($nummer <= @$refdata) {
$last = $nummer;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$lastniveau = $$refniveau[0];
while (($lastniveau > $niveau) && ($last < @$refdata)) {
$last++;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$lastniveau = $$refniveau[0];
}
if ($lastniveau == $niveau) {
if ($lastniveau == 1) {
$volgendelink = "$script+rubriek+".($last+1);
} elsif ($lastniveau == 2) {
$volgendelink = "$script+vraag+".($last+1);
} else {
$volgendelink = "$script+".($last+1);
}
}
if ($last > $nummer) {
@reacties = @$refdata[$nummer..$last-1];
$refbugnummer = &get (["bugnummer"], \@reacties, $grammar, "");
$refsubject = &get (["subject"], \@reacties, $grammar, "");
$refnaam = &get (["naam"], \@reacties, $grammar, "");
$refemail = &get (["email"], \@reacties, $grammar, "");
$refstamp = &get (["datum", "tijd"], \@reacties, $grammar, "");
$refniveau = &get (["niveau"], \@reacties, $grammar, "");
$refinhoud = &get (["inhoud"], \@reacties, $grammar, "");
@overigbugnummer = @$refbugnummer;
@overigsubject = @$refsubject;
@overignaam = @$refnaam;
@overigemail = @$refemail;
@overigstamp = @$refstamp;
@overigniveau = @$refniveau;
@overiginhoud = @$refinhoud;
@i = (1..@$refdata);
foreach $i (@i) {
push (@overiglink, "$script+".($i+$nummer));
}
foreach $reactiestamp (@overigstamp) {
$reactiestamp =~ s/#/ /i;
}
foreach $reactieinhoud (@overiginhoud) {
$reactieinhoud = substr($reactieinhoud, 0, 40)."...";
}
foreach $reactieemail (@overigemail) {
$reactieemail =~ s#\@#\\\@#ig;
}
$reacties = "";
$refniveau = &get (["niveau"], \@reacties, $grammar, "");
$niv = $niveau;
foreach $reactieniveau (@overigniveau) {
if ($niv < $reactieniveau) {
while ($niv < $reactieniveau) {
$reacties .= " "x($niv-$niveau+2)."$htmlnieuwelijst";
$niv++;
}
} elsif ($niv > $reactieniveau) {
while ($niv > $reactieniveau) {
$reacties .= " "x($niv-$niveau+1)."$htmleindelijst";
$niv--;
}
}
$reacties .= " "x($niv-$niveau+1)."$htmloverigkop";
}
while ($niv > $niveau) {
$reacties .= " "x($niv-$niveau+1)."$htmleindelijst";
$niv--;
}
}
}
}
sub voeg_nieuw_bericht_toe {
%pairs = &parse_form ();
$compleet = "true";
foreach $key (keys(%pairs)) {
if (! $pairs{$key}) {
$compleet = ""; #false
}
}
$bugnummer = $pairs{"bugnummer"} if (exists ($pairs{"bugnummer"}));
$subject = $pairs{"subject"} if (exists ($pairs{"subject"}));
$naam = $pairs{"naam"} if (exists ($pairs{"naam"}));
$email = $pairs{"email"} if (exists ($pairs{"email"}));
$datum = $pairs{"datum"} if (exists ($pairs{"datum"}));
$tijd = $pairs{"tijd"} if (exists ($pairs{"tijd"}));
$inhoud = $pairs{"inhoud"} if (exists ($pairs{"inhoud"}));
if ($compleet) {
$bericht[$$reforder{"bugnummer"}] = $bugnummer;
$bericht[$$reforder{"subject"}] = $subject;
$bericht[$$reforder{"naam"}] = $naam;
$bericht[$$reforder{"email"}] = $email;
$bericht[$$reforder{"datum"}] = $datum;
$bericht[$$reforder{"tijd"}] = $tijd;
$bericht[$$reforder{"niveau"}] = $niveau;
$bericht[$$reforder{"inhoud"}] = "(new) ".$inhoud;
$bericht = join($datasep, @bericht);
if ($nummer >= @$refdata) {
$refdata = [@$refdata, $bericht];
} else {
$last = $nummer;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$lastniveau = $$refniveau[0];
while (($lastniveau >= $niveau) && ($last < @$refdata)) {
$last++;
$refniveau = &get (["niveau"], [$$refdata[$last]], $grammar, "");
$lastniveau = $$refniveau[0];
}
$nummer = $last if ($last > $nummer);
$refdata = [@$refdata[0..($nummer-1)], $bericht, @$refdata[($nummer)..(@$refdata-1)]];
}
&save_data ($datafile, $refdata, $refcommenteddata, "");
open (MAIL, "|/usr/ucb/mail -s 'WOC Bugs: nieuw bericht' ".$contentcheckers) || die "$!";
print MAIL &expand ($nummer+1, $refdata, $grammar);
close (MAIL);
}
return $compleet;
}
--- NEW FILE: eindelijst.htpl ---
</UL>
--- NEW FILE: incompleet.htpl ---
<CENTER>
<BR><H1>Volledig Invullen A.U.B.</H1>
<FORM METHOD=POST ACTION="$script+voegtoe+$niveau+$nummer">
<INPUT TYPE=Hidden NAME="datum" VALUE="$datum">
<INPUT TYPE=Hidden NAME="tijd" VALUE="$tijd">
<TABLE>
<TR>
<TD>Bugnummer:</TD>
<TD><INPUT TYPE=Hidden NAME="bugnummer" SIZE=50 VALUE="$bugnummer">$bugnummer</TD>
</TR>
<TR>
<TD>Naam:</TD>
<TD><INPUT TYPE=Text NAME="naam" SIZE=50 VALUE="$naam"></TD>
</TR>
<TR>
<TD>E-Mail:</TD>
<TD><INPUT TYPE=Text NAME="email" SIZE=50 VALUE="$email"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE=Text NAME="subject" SIZE=50 VALUE="$subject"></TD>
</TR>
<TR>
<TD>Bericht:</TD>
<TD><TextAREA COLS=55 ROWS=10 NAME="inhoud">$inhoud</TextAREA></TD>
</TR>
</TABLE>
<INPUT TYPE=Submit VALUE="Voeg toe">
<INPUT TYPE=Reset VALUE="Opnieuw">
</FORM>
</CENTER>
--- NEW FILE: nieuwelijst.htpl ---
<UL>
--- NEW FILE: overigkop.htpl ---
<LI><A HREF="@overiglink">@overiginhoud</A> (@overignaam)
--- NEW FILE: overzicht.htpl ---
<H2 ALIGN=Center>Alle bekende bugs in het WOC</H2>
<UL>
Kies een van de onderstaande rubrieken om bugs te bekijken
of bugs en commentaar toe te voegen:
<P>
<UL>
$overzicht
</UL>
</UL>
<H3 ALIGN=CENTER>
[ <A HREF="$nieuwevraaglink">Nieuwe bug of reactie</A> ]
[ <A HREF="$script">Rubrieken</A> ]
</H3>
--- NEW FILE: rubriek.htpl ---
<A HREF="@rubrieklink"><FONT SIZE=+1><B>@subject</B></FONT></A>
<I>(@numvraag vrg, @numant ant, @numcomm comm)</I>
<P>
@inhoud
</P>
--- NEW FILE: rubriekkop.htpl ---
<P><FONT SIZE=+1><B>@rubrieksubject</B></FONT></P>
--- NEW FILE: rubriektoc.htpl ---
<H2 ALIGN=Center>$rubrieksubject</H2>
<UL>
$rubriekinhoud
<P>
<BR>
Kies een van de onderstaande bugs of kies gelijk een van de reacties:
$rubriektoc
</UL>
<BR>
<H3 ALIGN=CENTER>
[ <A HREF="$vraagtoevoeglink">Bug of reactie toevoegen</A> ]
[ <A HREF="$script">Rubrieken</A> ]
</H3>
--- NEW FILE: toevoegform.htpl ---
<CENTER>
<BR><H1>$header</H1>
<FORM METHOD=POST ACTION="$script+voegtoe+$niveau+$nummer">
<INPUT TYPE=Hidden NAME="datum" VALUE="$datum">
<INPUT TYPE=Hidden NAME="tijd" VALUE="$tijd">
<INPUT TYPE=Hidden NAME="bugnummer" VALUE="$bugnummer">
<TABLE>
<TR>
<TD>Bugnummer:</TD>
<TD> <B>$bugnummer</B></TD>
</TR>
<TR>
<TD>Naam:</TD>
<TD><INPUT TYPE=Text NAME="naam" SIZE=50 VALUE="$naam"></TD>
</TR>
<TR>
<TD>E-Mail:</TD>
<TD><INPUT TYPE=Text NAME="email" SIZE=50 VALUE="$email"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE=Text NAME="subject" SIZE=50 VALUE="$subject"></TD>
</TR>
<TR>
<TD>Bericht:</TD>
<TD><TextAREA COLS=50 ROWS=8 NAME="inhoud">$inhoud</TextAREA></TD>
</TR>
</TABLE>
<INPUT TYPE=Submit VALUE="Voeg toe">
<INPUT TYPE=Reset VALUE="Opnieuw">
</FORM>
</CENTER>
--- NEW FILE: vraagkop.htpl ---
<P>
<LI><A HREF="@vraaglink">(<i>bug #@bugnummer</i>) <B>@vraaginhoud</B></A> (@vraagnaam)
<P>
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:37:17
|
Update of /cvsroot/woc/woc/cgi-bin/cache/dadml
In directory usw-pr-cvs1:/tmp/cvs-serv10119/cache/dadml
Added Files:
list_content.pl
Log Message:
Added HTPLP dir (and a bit more).
--- NEW FILE: list_content.pl ---
#!/usr/local/bin/perl -w
use strict;
use diagnostics;
print "Content-type: text/html\n\n";
my $cachedir = "/tmp/woc/dadml-cache";
my @files = <$cachedir/*>;
print "<b>Cache bevat " . scalar(@files) . " items.</b>$/";
if (scalar(@files) > 0) {
print " <table>$/";
print " <tr><th>CAS-nummer</th><th>Leeftijd</th></tr>$/";
foreach my $file (@files) {
my $age = -M $file;
$age =~ s/(\d*)\.\d*/$1/;
if ($age eq "0") {
$age = "<1 dag"
} elsif ($age eq "1") {
$age .= " dag";
} else {
$age .= " dagen";
};
$file =~ s/.*NUMBER(.*)/$1/;
print " <tr>$/";
print " <td>$file</td>$/";
print " <td>" . $age . "</td>$/";
print " </tr>$/";
}
print " </table>$/";
}
1;
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:37:17
|
Update of /cvsroot/woc/woc/cgi-bin/ctview
In directory usw-pr-cvs1:/tmp/cvs-serv10119/ctview
Added Files:
view.pl
Log Message:
Added HTPLP dir (and a bit more).
--- NEW FILE: view.pl ---
#!/usr/local/gnu/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard);
print "Content-type: text/html;\n\n";
my $lang1 = param("FROM");
my $lang2 = param("TO");
if ($lang1 ne $lang2) {
open(INDEXFILE, "<../../web-docs/gui/index/index.$lang1-$lang2.html") ||
(print "<b>Cannot open file!</b>\n" && exit(1));
while(<INDEXFILE>) {
print;
}
} else {
print "<b>Languages should not be the same!</b>\n";
}
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:36:01
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/woc/wocdata In directory usw-pr-cvs1:/tmp/cvs-serv9712/wocdata Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/woc/wocdata added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:34:29
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/iupac-forum/iupac-forumdata In directory usw-pr-cvs1:/tmp/cvs-serv8921/iupac-forumdata Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/iupac-forum/iupac-forumdata added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:30:55
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/bugs/bugsdata In directory usw-pr-cvs1:/tmp/cvs-serv7627/bugsdata Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/bugs/bugsdata added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:28:24
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/iupac-forum In directory usw-pr-cvs1:/tmp/cvs-serv6670/iupac-forum Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/iupac-forum added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:28:24
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/woc In directory usw-pr-cvs1:/tmp/cvs-serv6670/woc Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/woc added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:28:23
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/data In directory usw-pr-cvs1:/tmp/cvs-serv6670/data Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/data added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:28:23
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/editor In directory usw-pr-cvs1:/tmp/cvs-serv6670/editor Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/editor added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:28:23
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir/bugs In directory usw-pr-cvs1:/tmp/cvs-serv6670/bugs Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir/bugs added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:27:17
|
Update of /cvsroot/woc/woc/cgi-bin/htplpdir In directory usw-pr-cvs1:/tmp/cvs-serv6201/htplpdir Log Message: Directory /cvsroot/woc/woc/cgi-bin/htplpdir added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:12:29
|
Update of /cvsroot/woc/woc/cgi-bin/ctview In directory usw-pr-cvs1:/tmp/cvs-serv1079/ctview Log Message: Directory /cvsroot/woc/woc/cgi-bin/ctview added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:11:30
|
Update of /cvsroot/woc/woc/cgi-bin/cache/dadml In directory usw-pr-cvs1:/tmp/cvs-serv680/cache/dadml Log Message: Directory /cvsroot/woc/woc/cgi-bin/cache/dadml added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:11:19
|
Update of /cvsroot/woc/woc/cgi-bin/cache In directory usw-pr-cvs1:/tmp/cvs-serv622/cache Log Message: Directory /cvsroot/woc/woc/cgi-bin/cache added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 15:09:49
|
Update of /cvsroot/woc/woc/cgi-bin/tree
In directory usw-pr-cvs1:/tmp/cvs-serv32649/tree
Added Files:
tree.pl
Log Message:
Added more scripts.
--- NEW FILE: tree.pl ---
#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use LWP;
use CGI qw(:standard);
print "Content-type: text/html$/$/";
my $zoekarg = param("query");
my $repos = param("repos");
my $root = "/vol/www/woc/web-docs/";
my $dir = "/vol/www/woc/data/wml/";
my $destdir = "gui/items/";
my $baseurl = "http://www-woc.sci.kun.nl/";
if ($repos eq "iupac") {
$dir = "/vol/www/woc/web-docs/iupac/data/wml";
$destdir = "iupac/gui/items/";
$baseurl = "http://www-woc.sci.kun.nl/";
}
my %hash;
my %filenames;
my %indices;
my @files = <$dir/*.xml>;
foreach my $file (@files) {
$file =~ s/.*?([\w|\-|\_]*).xml/$1/;
if (open (OPENFILE, "<$dir/$file.xml")) {
my $itemname;
my @groupnames;
while ( <OPENFILE> ) {
if (/<ITEM.*?>/) {
/NAME=\"(.*?)\"/i;
$itemname = $1;
/CODE=\"(.*?)\"/i;
$filenames{$itemname} = $1;
/ID=\"(.*?)\"/;
my $id = $1;
$indices{$1} = $itemname;
}
if (/<GROUP.*?>(.*)<\/GROUP>/) {
push (@groupnames, $1);
# is er een groep?
# zo ja, voeg $itemname toe aan array in hash
}
}
foreach my $group (@groupnames) {
if (exists $hash{$group}) {
$hash{$group} = [@{$hash{$group}}, $itemname];
} else {
$hash{$group} = [$itemname];
}
}
print "$/";
}
#close (OPENFILE);
}
print "<html>\n";
print "<head>\n";
print " <title>Woordenboek Organische Chemie</title>\n";
print " <base href=\"$baseurl\">\n";
print " <link rel=\"stylesheet\" href=\"gui/styles/woc.css\" type=\"text/css\">\n";
print " <script src=\"gui/javascript/isframe.js\"></script>\n";
print " <script src=\"gui/javascript/location.js\"></script>\n";
print " <script>\n";
print " <!--\n";
print " setLocation(\"Zoekresultaten\");\n";
print " // -->\n";
print " </script>\n";
print "</head>\n";
print "<body class=\"main\">\n";
print " <h1>Onderwerpenboom</h1>\n<hr>\n";
if ($zoekarg =~ /^WOC/ || $zoekarg =~ /^IUPAC/) {
# get real argument
$zoekarg = $indices{$zoekarg};
}
print "<b>$zoekarg</b>\n";
printBoom(0, $zoekarg, \%hash);
print "</body>\n</html>\n";
sub printBoom {
my ($indent, $key, $boom) = @_;
print "<ul>\n";
foreach my $item (@{$$boom{$key}}) {
my $file = $filenames{$item};
if (-f "$root$destdir$file.shtml") {
print "<a href=\"$baseurl$destdir$file.shtml\">$item</a><br>\n";
} else {
print "$item<br>\n";
}
print "<!-- $file.shtml gezocht.. -->\n";
if (exists $$boom{$item} && $key ne $item) {
printBoom($indent+2,$item, $boom);
}
}
print "</ul>\n";
}
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:09:49
|
Update of /cvsroot/woc/woc/cgi-bin/search
In directory usw-pr-cvs1:/tmp/cvs-serv32649/search
Added Files:
fuzzy.pl realsearch.pl sa.pl
Log Message:
Added more scripts.
--- NEW FILE: fuzzy.pl ---
#!/usr/local/bin/perl -w
push (@INC, ".");
use LWP;
use CGI qw(:standard);
use WWW::Search;
use String::Approx 'amatch';
# get the parameters from the stdin #
my $zoekarg = param("query");
my $zoekorg = $zoekarg;
my $text = param("text");
# aanpassen zoekarg
my $pre_asterix = "";
my $pre_quest = "";
if ($zoekorg =~ s/^\*//) {
$pre_asterix = "yes";
}
if ($zoekorg =~ s/^\?//) {
$pre_quest = "yes";
}
$zoekarg =~ s/\./\\\./g;
$zoekarg =~ s/\?/\./g;
$zoekarg =~ s/\*/\(\\\w\|\\\-\|\\\(\|\\\)\)\+\?/g;
# initialize dirs and files #
my $foundfile = "arguments_found.txt";
my $notfoundfile = "arguments_notfound.txt";
my $root = "/vol/www/woc/web-docs";
my $datadir = "/vol/www/woc/data/wml";
my $destdir = "gui/items";
my $desturl = "http://www-woc.sci.kun.nl";
my $url = "";
my @files = <$datadir/*.xml>;
my @foundfiles = ();
# Mime-Type header line
# needs to be placed elsewhere (bug #11)
# print "Content-type: text/html\n\n";
#debug
#print "-$zoekorg- -> -$zoekarg-\n";
if ($zoekarg eq "") {
if ($text eq "") {
print "Content-type: text/html\n\n";
open (FILE, "<$root/gui/search.html");
while (<FILE>) { print; };
close(FILE);
} elsif ($text ne "") {
#print "Text found!";
print "Content-type: text/html\n\n";
open (FILE, "<$root/gui/search.html");
while (<FILE>) {
# note that \s+ was substituted by \s+, but that doesn't work... "\ " does!
s/NAME="query"\s+VALUE=\"\"/NAME="query"\ VALUE=\"$text\"/;
print;
}
close(FILE);
}
} else {
$hit = "";
foreach $file (@files) {
$file =~ s/.*?(\w*).xml/$1/;
open (OPENFILE, "<$datadir/$file.xml") || next;
#print "$file opened\n";
my $found = 0;
my $titel = "";
my $code = "";
my $line = "";
while (defined ($line = <OPENFILE>) && !$found) {
# prevent from crashing due to match in the first or second line (bug #29)
if ($line =~ /<\?xml.*\?>/) {
# skip line
} elsif ($line =~ /DOCTYPE/) {
# skip line
} else {
if ($line =~ /<ITEM/i) {
if ($line =~ /NAME=\"(.*?)\"/i) {
$title = $1;
}
if ($line =~ /CODE=\"(.*?)\"/i) {
$code = $1;
}
}
$_ = $line;
#print "\$\_: $_";
if (amatch($zoekarg, ['i', 'S2']) && !$found) {
print "fuzzy match: $title -> $_";
# match fuzzy
if ( ! (-f "$root/$destdir/$file.shtml") ) {
$file = $code;
}
if ( -f "$root/$destdir/$file.shtml" ) {
push (@foundfiles, "$root/$destdir/$file.shtml");
$hit = "$root/$destdir/$file.shtml";
$url = "$desturl/$destdir/$file.shtml";
$htmlcode = "<dd><a href=\"$url\">$title</a> \n";
$yield = 50;
#print "length: " . length($title) . "\n";
$yield = int((length $zoekorg) / (length($title)) * 50) if (length $title > 0);
$_ = $title;
if ( $title =~ /$zoekorg/i ) {
$yield = $yield + 50;
}
$htmlcode .= "$yield\%<br>\n";
$key = $yield;
if ($key < 100) {
if ($key < 10) {
$key = "0$key";
}
$key = "0$key";
}
if ($results{$key}) {
while ($results{$key}) {
$key = "$key.1";
}
$results{$key} = $htmlcode;
} else {
$results{$key} = $htmlcode;
}
}
$found = 1;
}
}
}
close (OPENFILE);
}
my $i = @foundfiles;
#$print "tijdelijke debug info: $i\n";
if (@foundfiles == 1) {
print "Location: $url\n";
print "Content-type: text/html\n\n";
open (FOUND, "$hit");
while (<FOUND>) { print; };
close (FOUND);
} else {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <title>Woordenboek Organische Chemie</title>\n";
print " <base href=\"http://www-woc.sci.kun.nl/\">\n";
print " <link rel=\"stylesheet\" href=\"gui/styles/woc.css\" type=\"text/css\">\n";
print " <script src=\"gui/javascript/isframe.js\"></script>\n";
print " <script src=\"gui/javascript/location.js\"></script>\n";
print " <script>\n";
print " <!--\n";
print " setLocation(\"Zoekresultaten\");\n";
print " // -->\n";
print " </script>\n";
print "</head>\n";
print "<body class=\"main\">\n";
print " <h1>Zoekresultaten (met fuzzy zoeken)</h1>\n<hr>\n";
print " Zoekargument is ";
if ($pre_asterix) {
print "*";
} elsif ($pre_quest) {
print "?";
}
print "$zoekorg.\n\n";
if (@foundfiles) {
@keyz = reverse sort keys %results;
foreach $key (@keyz) {
# $intval = int $key;
print "$results{$key}\n";
}
if (open ARGFILE, ">>$foundfile") {
print ARGFILE "$zoekarg\n";
close ARGFILE;
}
} else {
print "\n<dd>Er is geen informatie gevonden.<br>\n";
print "<dd>U kunt vragen stellen \n";
print "via <a href=\"mailto:woc\@sci.kun.nl\">email</a> aan de WOC-redactie.\n";
if (open ARGFILE, ">>$notfoundfile") {
print ARGFILE "$zoekarg\n";
close ARGFILE;
}
}
print "</body>\n";
print "</html>\n";
}
}
--- NEW FILE: realsearch.pl ---
#!/usr/local/bin/perl -w
use diagnostics;
use LWP;
use XML::Parser;
require WWW::Search;
use CGI qw(:standard);
my $script_title = "netsearch.pl";
my $searchengine = "AltaVista";
my $zoekarg = param("query");
my $lang = param("lang");
my @synoniemen = ();
unless ($zoekarg) { $zoekarg = "azijnzuur"; };
unless ($lang) { $lang = "EN"; };
if ($zoekarg =~ /^WOC/) {
# it is NT! it is a WOC number!
my $line = `grep "$zoekarg" /vol/www/woc/data/wml/*.xml`;
if ($line =~ /^.*\/(.*?)\.xml.*?NAME=\"(.*?)\">/) {
$zoekarg = $1;
}
}
my $fileurl = "file:///vol/www/woc/data/wml/$zoekarg.xml";
print "Content-type: text/html\n\n";
sub handle_start {
my ($p, $data) = @_;
$charstring = "";
$thisone = 0;
if ($data eq "LANG") {
shift; shift;
while (@_) {
my $att = shift;
my $value = shift;
if ($att eq "ID") {
if ($value eq $lang) {
$thisone = 1;
}
}
}
}
}
sub handle_end {
my ($p, $data) = @_;
if ($data eq "LANG") {
if ($thisone) {
push @synoniemen, $charstring;
#print "$charstring\n";
}
}
}
sub handle_char {
my ($p, $data) = @_;
$charstring = "$charstring$data";
}
print "<html>\n";
print "<head>\n";
print " <title>Woordenboek Organische Chemie</title>\n";
print " <base href=\"http://www-woc.sci.kun.nl/\">\n";
print " <link rel=\"stylesheet\" href=\"gui/styles/woc.css\" type=\"text/css\">\n";
print " <script src=\"gui/javascript/isframe.js\"></script>\n";
print " <script src=\"gui/javascript/location.js\"></script>\n";
print " <script>\n";
print " <!--\n";
print " setLocation(\"Internet Zoekmachine\");\n";
print " // -->\n";
print " </script>\n";
print "</head>\n";
print "<body class=\"main\">\n";
print " <h1>Zoekresultaten Internet</h1>\n<hr>\n";
#maken lijst met synoniemen
@synoniemen = ();
my $browser = LWP::UserAgent->new();
$browser->agent($script_title);
my $request = HTTP::Request->new(GET => $fileurl);
my $foo = $browser->request($request);
if ($foo->is_success) {
$superxmlfile = $foo->content;
} else {
print " <ul>\n";
print " Er is onvoldoende informatie beschikbaar. Deze functie werkt\n";
print " voor dit woord niet. Er is hiervan melding gemaakt bij de\n";
print " redactie.\n";
print " </ul>\n";
print "</body>\n";
print "</html>\n";
open ARGFILE, ">>realsearch_errors.txt";
print ARGFILE "$zoekarg\n";
close ARGFILE;
exit(1);
}
# Start parsing super.xml
my $p1 = new XML::Parser(Handlers => {Start => \&handle_start,
End => \&handle_end,
Char => \&handle_char});
$p1->parse($superxmlfile);
# maken zoekstring
$aantal = scalar(@synoniemen);
if ($aantal > 1) {
$i = 1; $zoekstring = "";
while ($i <= $aantal) {
if ($i > 1) { $zoekstring .= " OR "; };
if ($zoekstring) {
$zoekstring .= "\"".$synoniemen[$i-1]."\"";
} else {
$zoekstring = "\"".$synoniemen[$i-1]."\"";
}
$i++;
}
} else {
$synon = $synoniemen[0];
$zoekstring = "\"$synon\"";
}
print " Zoekargument is $zoekstring.\n\n";
my($search) = new WWW::Search($searchengine);
$search->native_query(WWW::Search::escape_query($zoekstring));
$max = $search->maximum_to_retrieve(10);
$max = 0;
@results = $search->results();
print " <ul>\n";
if (scalar(@results) == 0) {
print "Er is helaas geen informatie gevonden.\n";
} else {
$i = 0;
while ($i < 10) {
$result = shift @results;
if ($result) {
$link = $result->url;
print "<b>",++$i,"</b> <a href=\"",$link,"\">",$link,"</a><br>\n";
$lengte = ($result->size / 1024);
$ua = new LWP::UserAgent;
$ua->agent("WOC-SearchEngine/0.1 ");
my $req = new HTTP::Request POST => $link;
my $res = $ua->request($req);
if ($res->is_success) {
$doc = $res->content;
$lengte = int ( (length($doc) / 1024 ) * 10) / 10;
}
print "<dd>lengte: $lengte kb<br>\n";
};
};
};
print " </ul>\n";
print "</body>\n";
print "</html>\n";
open ARGFILE, ">>realsearch_searched.txt";
print ARGFILE "$zoekarg\n";
close ARGFILE;
--- NEW FILE: sa.pl ---
#!/usr/local/bin/perl -w
use strict;
use LWP;
use CGI qw(:standard);
# get the parameters from the stdin #
my $zoekarg = param("query");
my $zoekorg = $zoekarg;
my $text = param("text");
my $CAS = param("CAS") || "";
# aanpassen zoekarg
my $pre_asterix = "";
my $pre_quest = "";
if ($zoekorg =~ s/^\*//) {
$pre_asterix = "yes";
}
if ($zoekorg =~ s/^\?//) {
$pre_quest = "yes";
}
$zoekarg =~ s/\-/\\\-/g;
$zoekarg =~ s/\./\\\./g;
$zoekarg =~ s/\?/\./g;
$zoekarg =~ s/\*/\(\\\w\|\\\-\|\\\(\|\\\)\)\+\?/g;
# initialize dirs and files #
my $foundfile = "arguments_found.txt";
my $notfoundfile = "arguments_notfound.txt";
my $root = "/vol/www/woc/web-docs";
my $datadir = "/vol/www/woc/data/wml";
my $destdir = "gui/items";
my $desturl = "http://www-woc.sci.kun.nl/";
my $url = "";
my @files = <$datadir/*.xml>;
my @foundfiles = ();
# Mime-Type header line
# needs to be placed elsewhere (bug #11)
# print "Content-type: text/html\n\n";
#debug
#print "-$zoekorg- -> -$zoekarg-\n";
#print "-$CAS-\n";
if ($zoekarg eq "") {
if ($text eq "") {
print "Content-type: text/html\n\n";
open (FILE, "<$root/gui/search.html");
while (<FILE>) { print; };
close(FILE);
} elsif ($text ne "") {
#print "Text found!";
print "Content-type: text/html\n\n";
open (FILE, "<$root/gui/search.html");
while (<FILE>) {
# note that \s+ was substituted by \s+, but that doesn't work... "\ " does!
s/NAME="query"\s+VALUE=\"\"/NAME="query"\ VALUE=\"$text\"/;
print;
}
close(FILE);
}
} else {
my $hit = "";
my $url = "";
my %results;
foreach my $file (@files) {
$file =~ s/.*?(\w*).xml/$1/;
open (OPENFILE, "<$datadir/$file.xml") || next;
#print "$file opened\n";
my $found = 0;
my $title = "";
my $code = "";
while ( <OPENFILE> ) {
# prevent from crashing due to match in the first or second line (bug #29)
if (m/<\?xml.*\?>/) {
# skip line
} elsif (m/DOCTYPE/) {
# skip line
} else {
if (/<ITEM/i) {
if (/NAME=\"(.*?)\"/i) {
$title = $1;
}
if (/CODE=\"(.*?)\"/i) {
$code = $1;
}
} elsif ( ( ( ($CAS ne "yes") && /$zoekarg/i) ||
( ($CAS eq "yes") && /CAS-NUMBER.*$zoekarg/i)
) && !$found) {
if ( ! (-r "$root/$destdir/$file.shtml") ) {
$file = $code;
}
if ( -r "$root/$destdir/$file.shtml" ) {
push (@foundfiles, "$root/$destdir/$file.shtml");
$hit = "$root/$destdir/$file.shtml";
$url = "$desturl/$destdir/$file.shtml";
my $htmlcode = "<dd><a href=\"$url\">$title</a> \n";
my $yield = 50;
#print "length: " . length($title) . "\n";
$yield = int((length $zoekorg) / (length($title)) * 50) if (length $title > 0);
$_ = $title;
if ( $title =~ /$zoekorg/i ) {
$yield = $yield + 50;
}
$htmlcode .= "$yield\%<br>\n";
my $key = $yield;
if ($key < 100) {
if ($key < 10) {
$key = "0$key";
}
$key = "0$key";
}
if ($results{$key}) {
while ($results{$key}) {
$key = "$key.1";
}
$results{$key} = $htmlcode;
} else {
$results{$key} = $htmlcode;
}
}
$found = 1;
}
}
}
close (OPENFILE);
}
#my $i = $foundfiles;
#$print "tijdelijke debug info: $i\n";
if (scalar(@foundfiles) == 1) {
print "Location: $url\n";
print "Content-type: text/html\n\n";
open (FOUND, "$hit");
while (<FOUND>) { print; };
close (FOUND);
} elsif (scalar(@foundfiles) > 1) {
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <title>Woordenboek Organische Chemie</title>\n";
print " <base href=\"http://www-woc.sci.kun.nl/\">\n";
print " <link rel=\"stylesheet\" href=\"gui/styles/woc.css\" type=\"text/css\">\n";
print " <script src=\"gui/javascript/isframe.js\"></script>\n";
print " <script src=\"gui/javascript/location.js\"></script>\n";
print " <script>\n";
print " <!--\n";
print " setLocation(\"Zoekresultaten\");\n";
print " // -->\n";
print " </script>\n";
print "</head>\n";
print "<body class=\"main\">\n";
print " <h1>Zoekresultaten</h1>\n<hr>\n";
if (@foundfiles) {
print " Zoekargument is ";
if ($pre_asterix) {
print "*";
} elsif ($pre_quest) {
print "?";
}
print "$zoekorg.\n\n";
my @keyz = reverse sort keys %results;
foreach my $key (@keyz) {
# $intval = int $key;
print "$results{$key}\n";
}
}
print "</body>\n";
print "</html>\n";
} else {
$zoekorg =~ s/\*//g;
$zoekorg =~ s/\?//g;
# Omdat de fuzzy search functionaliteit te veel vraagt van de webserver
# wordt deze off line gebracht (dd. 2001-01-28)
# Inmiddels kan door het in ongebruik raken van het dadml.pl script, kan
# de fuzzy zoekmachine weer gebruikt worden. (dd 2001-02-24)
#open ARGFILE, ">>$notfoundfile";
#print ARGFILE "$zoekorg\n";
#close ARGFILE;
if ($CAS ne "yes") {
print "Location: http://www-woc.sci.kun.nl/cgi-bin/search/fuzzy.pl?query=$zoekorg\n";
print "Content-type: text/html\n\n";
} else {
# de onderstaande code kwam voor de fuzzy search in de plaats
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print " <title>Woordenboek Organische Chemie</title>\n";
print " <base href=\"http://www-woc.sci.kun.nl/\">\n";
print " <link rel=\"stylesheet\" href=\"gui/styles/woc.css\" type=\"text/css\">\n";
print " <script src=\"gui/javascript/isframe.js\"></script>\n";
print " <script src=\"gui/javascript/location.js\"></script>\n";
print " <script>\n";
print " <!--\n";
print " setLocation(\"Zoekresultaten\");\n";
print " // -->\n";
print " </script>\n";
print "</head>\n";
print "<body class=\"main\">\n";
print " <h1>Zoekresultaten</h1>\n<hr>\n";
print " Helaas zijn er geen resultaten gevonden. Pas uw\n";
print " zoekvraag aan, of <a href=\"mailto:woc\@sci.kun.nl\">stuur een email</a>.\n";
print "</body>\n";
print "</html>\n";
if (open ARGFILE, ">>$notfoundfile") {
print ARGFILE "$zoekorg\n";
close ARGFILE;
}
}
}
}
|
|
From: Egon W. <eg...@us...> - 2002-08-02 15:09:49
|
Update of /cvsroot/woc/woc/cgi-bin/popup
In directory usw-pr-cvs1:/tmp/cvs-serv32649/popup
Added Files:
anim.pl view.pl
Log Message:
Added more scripts.
--- NEW FILE: anim.pl ---
#!/usr/local/bin/perl -w
use strict;
my $pictlink = "data/pictures";
my $iconlink = "gui/pictures";
my $flag = "";
my $item_id = "";
my $titel = "";
$flag = shift if @ARGV;
$item_id = shift if @ARGV;
$titel = " - $ARGV[0]" if @ARGV;
# ------------------------------------------------------------
# Print out what we need
if ($item_id && $flag =~ /^index/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>WOC-anims$titel</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<FRAMESET ROWS="*,70" FRAMEBORDER="0" FRAMESPACING="0" BORDER="No">
<FRAME TITLE="Animatie-Venster" NAME="Anim"
SRC="/cgi-bin-woc/popup/anim.pl?stop+$item_id">
<FRAME TITLE="Animatie-Buttons" NAME="AnimButtons" MARGINHEIGHT="0" SCROLLING="No"
SRC="/cgi-bin-woc/popup/anim.pl?buttons+$item_id">
</FRAMESET>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^buttons/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY BGCOLOR="#EEEEEE">
<TABLE WIDTH="100\%">
<TR><TD WIDTH="60\%" ALIGN="Center">
<A HREF="/cgi-bin-woc/popup/anim.pl?play+$item_id" TARGET="Anim">
<IMG SRC="$iconlink/play.gif" BORDER="0" VSPAC="0"></A>
<A HREF="/cgi-bin-woc/popup/anim.pl?stop+$item_id" TARGET="Anim">
<IMG SRC="$iconlink/stop.gif" BORDER="0" VSPAC="0"></A>
</TD><TD WIDTH="40\%" ALIGN="Center">
<FORM>
<BR>
<INPUT TYPE="Button" VALUE="Close" onClick="javascript:top.close()">
</FORM>
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^play/i) {
$item_id =~ s/^.*\///;
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE WIDTH="100\%" HEIGHT="100\%">
<TR><TD WIDTH="100\%" HEIGHT="100\%" ALIGN="Center" VALIGN="Center">
<IMG SRC="$pictlink/anims/$item_id">
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^stop/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE WIDTH="100\%" HEIGHT="100\%">
<TR><TD WIDTH="100\%" HEIGHT="100\%" ALIGN="Center" VALIGN="Center">
<IMG SRC="$pictlink/$item_id">
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} else {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Popup WOC-anims</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<H1>Error</H1>
</BODY>
</HTML>
EOT
}
# ------------------------------------------------------------
--- NEW FILE: view.pl ---
#!/usr/local/gnu/bin/perl -w -- -*-perl-*-
use strict;
my $itemdir = "/vol/www/woc/web-docs/gui/items";
my @item;
my $titel;
# ------------------------------------------------------------
&get_item ($ARGV[0]);
# Print out what we need
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Popup WOC-items</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE BORDER="0" NOBORDER WIDTH="100\%" CELLSPACING="0" CELLPADDING="4">
<TR BGCOLOR="Black" ><TD>
<A HREF="http://www.sci.kun.nl/woc/">
<IMG SRC="gui/pictures/static_azijnzuur.gif" HEIGHT="13" WIDTH="13" BORDER="0"></A>
<FONT SIZE="2" FACE="Arial,Verdana,Helvetica" COLOR="White">
Woordenboek <I>Organische</I> Chemie
</FONT>
<!--WEBBOT bot="HTMLMarkup" Startspan ALT="Site Meter"-->
<script language="JavaScript">
document.write("<a href=`http://www.sitemeter.com/");
document.write("stats.asp?site=woccounter` target=_top class=`button`>");
document.write("<img src=`http://www.sitemeter.com/");
document.write("meter.asp?site=woccounter");
document.write("&refer="+escape(document.referrer));
document.write("&hours="+(new Date()).getHours());
document.write("&minutes="+(new Date()).getMinutes());
document.write("` border=0 alt=`Site Meter`></a>");
</script>
<!--WEBBOT bot="HTMLMarkup" Endspan-->
</TD><TD>
<FONT SIZE="2" FACE="Arial,Verdana,Helvetica" COLOR="Yellow">
<I>$ARGV[0]</I>
</FONT>
</TD></TR>
</TABLE>
<TABLE BORDER="0" NOBORDER HEIGHT="95\%" CELLSPACING="0" CELLPADDING="4">
<TR VALIGN="Top"><TD WIDTH="40" HEIGHT="100\%" ROWSPAN="2" BGCOLOR="navy"> </TD><TD>
@item
<FORM>
<CENTER>
<INPUT TYPE="Button" VALUE="Close" onClick="javascript:top.close()">
</CENTER>
</FORM>
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
# ------------------------------------------------------------
sub get_item {
my $itemfile = shift;
my @file = ();
open (FILE, "$itemdir/$itemfile.shtml") || die "$itemdir/$itemfile.shtml: $!$/";
while (<FILE>) {
push (@file, $_);
}
close (FILE) || die "$itemdir/$itemfile.shtml: $!$/";
my $inbody = "";
my $notwebbot = "True";
my $nr_hr = 0;
while (@file) {
$_ = shift (@file);
$inbody = "" if /\<\/BODY.*?\>/i;
$notwebbot = "" if /U bent bezoeker/i;
if ($inbody && $notwebbot) {
$nr_hr++ if /\<HR.*?\>/i;
if ($nr_hr == 2) {
push (@item, "</TD></TR><TR><TD VALIGN=Bottom>");
$nr_hr = 0;
}
s/Last update.*?\.//i;
push (@item, $_);
}
$inbody = "True" if /\<BODY.*?\>/i;
$notwebbot = "True" if /WEBBOT.*?Endspan/i;
}
}
|
|
From: Egon W. <eg...@us...> - 2002-08-02 14:52:54
|
Update of /cvsroot/woc/woc/cgi-bin/popup In directory usw-pr-cvs1:/tmp/cvs-serv25586/popup Log Message: Directory /cvsroot/woc/woc/cgi-bin/popup added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 14:50:26
|
Update of /cvsroot/woc/woc/cgi-bin/tree In directory usw-pr-cvs1:/tmp/cvs-serv24713/tree Log Message: Directory /cvsroot/woc/woc/cgi-bin/tree added to the repository |
|
From: Egon W. <eg...@us...> - 2002-08-02 14:49:11
|
Update of /cvsroot/woc/woc/cgi-bin/search In directory usw-pr-cvs1:/tmp/cvs-serv24276/search Log Message: Directory /cvsroot/woc/woc/cgi-bin/search added to the repository |
|
From: Egon W. <eg...@us...> - 2002-07-29 11:14:56
|
Update of /cvsroot/woc/woc/cgi-bin/topiclink
In directory usw-pr-cvs1:/tmp/cvs-serv19280/topiclink
Added Files:
link.pl
Log Message:
Added script.
--- NEW FILE: link.pl ---
#!/usr/local/bin/perl -w
#
# Records the items to which was linked with topic map links.
#
use strict;
use diagnostics;
my $logfile = "receivers";
my $item = shift @ARGV;
my $assoc = shift @ARGV || "unknown";
#open ARGFILE, ">>$logfile";
my $date = `date`;
$date =~ s/\n//g;
my $client = $ENV{"REMOTE_ADDR"};
my $source = $ENV{"HTTP_REFERER"};
$source =~ s/http.*\/(.*).shtml/$1/;
my $target = $item;
$target =~ s/.*\/(.*).shtml/$1/;
#print ARGFILE "$date, $client - $assoc: $source -> $target\n";
#close ARGFILE;
print "Location: http://www.sci.kun.nl" . $item . "\n";
print "Content-type: text/html\n\n";
# do nothing more
|
|
From: Egon W. <eg...@us...> - 2002-07-29 11:11:43
|
Update of /cvsroot/woc/woc/cgi-bin/topiclink In directory usw-pr-cvs1:/tmp/cvs-serv18484/topiclink Log Message: Directory /cvsroot/woc/woc/cgi-bin/topiclink added to the repository |
|
From: Egon W. <eg...@us...> - 2002-07-29 11:08:43
|
Update of /cvsroot/woc/woc/cgi-bin/stats In directory usw-pr-cvs1:/tmp/cvs-serv17626/stats Added Files: README.STATS data-stats.pl page-stats-automatic.pl tm-stats.pl Log Message: Added more scripts. --- NEW FILE: README.STATS --- This is the README belonging to 'page-stats', a Perl-program by Mark Koenen (ma...@sc...) that 'cleverly' checks how often a WWW-page has been accessed. How does it work? First 'page-stats' reads in a ident-file. After that it reads the logfile just once, counts the page-accesses and then produces the HTML- document, using a header- and footer-file. What does ident-file look like? In a ident-file you'll be able to give 'identifiers' for a certain page: one page can have more than one representatives in a log-file. Therefore the ident-file has the following structure: URL@DESCRIPTION@IDENT1@...@IDENTn Where: URL = The URL to the page you want to look at DESCRIPTION = The description of the page IDENT1, ..., IDENTn = A identifier of the page An example. When you want statistics of your homepage you might want to begin your ident-file with: /index.html@My Homepage@/@/index.html The header- and footer-files: Naming your ident-file 'foo.ident' you'll have to create 'foo.header' and 'foo.footer' too. foo.header will be prepended to the page- statistics and foo.footer will be appended to the page-statistics. The three variables: When creating foo.header and foo.footer you can use three variables: $firstrequest $lastrequest $date Where: $firstrequest = date + time of first request in logfile $lastrequest = date + time of last request in logfile $date = current date + time Calling page-stats: After having set up your ident-, header- and footer-file it's time to let page-stats do what it's supposed to do. You can use page-stats in the following way: page-stats.pl [-i <ident-file>] [-l <logfile>] Where: ident-file = name of your ident-file (default: 'page-stats.ident') logfile = name of your logfile (default: '/usr/local/httpd/logs/access_log') If everything works out fine you'll find a new file called 'foo.html' in your directory. Where can you get it? The latest version is on: http://www.sci.kun.nl/thalia/guide/ You can see a working script at: http://www.sci.kun.nl/thalia/page-stats/ Troubleshooting: If the program didn't do a damn thing you might want to check if the path to Perl is correct: by default it's set to '/usr/local/bin/perl'. You can find out if this is a correct path by typing 'which perl' at your UNIX-prompt. If if perl is in another directory than '/usr/local/bin/' you'll have to edit the first line of 'page-stats.pl' If it _still_ doesn't work: too bad, go find something else to do :-) --- NEW FILE: data-stats.pl --- #!/usr/local/bin/perl -w use strict; my $root = "../.."; my %numberof = (); $numberof{"items"} = int(`ls $root/web-docs/gui/items/*.shtml | wc -w`); $numberof{"chemicals"} = int(`grep -i CLASS=\\"CHEMICAL\\" $root/data/wml/*.xml | wc -l`); $numberof{"mixtures"} = int(`grep -i CLASS=\\"MIXTURE\\" $root/data/wml/*.xml | wc -l`); $numberof{"polymers"} = int(`grep -i CLASS=\\"POLYMER\\" $root/data/wml/*.xml | wc -l`); $numberof{"reactions"} = int(`grep -i CLASS=\\"REACTION\\" $root/data/wml/*.xml | wc -l`); $numberof{"groups"} = int(`grep -i CLASS=\\"GROUP\\" $root/data/wml/*.xml | wc -l`); $numberof{"nomenclatuur"} = int(`grep -i CLASS=\\"NOMENCLATURE\\" $root/data/wml/*.xml | wc -l`); $numberof{"overigen"} = $numberof{"items"}-$numberof{"chemicals"}-$numberof{"mixtures"}-$numberof{"polymers"}-$numberof{"reactions"}-$numberof{"groups"}-$numberof{"nomenclatuur"}; $numberof{"linguistisch"} = 0; $numberof{"afkortingen"} = int(`grep -i ABBREV $root/data/wml/*.xml | wc -l`); $numberof{"nederlands"} = int(`grep -i ID=\\"NL\\" $root/data/wml/*.xml | wc -l`); $numberof{"engels"} = int(`grep -i ID=\\"EN\\" $root/data/wml/*.xml | wc -l`); $numberof{"duits"} = int(`grep -i ID=\\"DE\\" $root/data/wml/*.xml | wc -l`); $numberof{"frans"} = int(`grep -i ID=\\"FR\\" $root/data/wml/*.xml | wc -l`); $numberof{"linguistisch"} = $numberof{"afkortingen"}+$numberof{"nederlands"}+$numberof{"engels"}+$numberof{"duits"}+$numberof{"frans"}; $numberof{"dadml"} = 0; $numberof{"2d"} = 0; $numberof{"2d-cml"} = int(`ls $root/data/dadml/2d/cml/*.cml | wc -w`); $numberof{"2d-gif"} = int(`ls $root/data/dadml/2d/gif/*.gif | wc -w`); $numberof{"2d-mol"} = int(`ls $root/data/dadml/2d/mol/*.mol | wc -w`); $numberof{"2d"} = $numberof{"2d-cml"}+$numberof{"2d-gif"}+$numberof{"2d-mol"}; $numberof{"3d"} = 0; $numberof{"3d-cml"} = int(`ls $root/data/dadml/3d/cml/*.cml | wc -w`); $numberof{"3d-mol"} = int(`ls $root/data/dadml/3d/mol/*.mol | wc -w`); $numberof{"3d-pdb"} = int(`ls $root/data/dadml/3d/pdb/*.pdb | wc -w`); $numberof{"3d-vrml"} = int(`ls $root/data/dadml/3d/vrml/*.vrml | wc -w`); $numberof{"3d-xyz"} = int(`ls $root/data/dadml/3d/xyz/*.xyz | wc -w`); $numberof{"3d"} = $numberof{"3d-cml"}+$numberof{"3d-mol"}+$numberof{"3d-pdb"}+$numberof{"3d-vrml"}+$numberof{"3d-xyz"}; $numberof{"fysisch"} = 0; $numberof{"fys-cml"} = int(`ls $root/data/dadml/fysisch/cml/*.xml | wc -w`); $numberof{"fysisch"} = $numberof{"fys-cml"}; $numberof{"dadml"} = $numberof{"2d"}+$numberof{"3d"}+$numberof{"fysisch"}; $numberof{"pictures"} = int(`find $root/data/pictures -name "*.gif" -print | wc -w`); $numberof{"pict-homos"} = int(`ls $root/data/pictures/homos/*.gif | wc -w`); $numberof{"pict-lumos"} = int(`ls $root/data/pictures/lumos/*.gif | wc -w`); $numberof{"database"} = 0; $numberof{"xml"} = int(`ls $root/data/wml/*.xml | wc -w`); $numberof{"cml-totaal"} = $numberof{"2d-cml"}+$numberof{"3d-cml"}+$numberof{"fys-cml"}; $numberof{"mol-totaal"} = $numberof{"2d-mol"}+$numberof{"3d-mol"}; $numberof{"gif-totaal"} = $numberof{"2d-gif"}+$numberof{"pictures"}; $numberof{"database"} = $numberof{"xml"}+$numberof{"dadml"}; print <<EOT; Content-type: text/html <HTML> <HEAD> <TITLE>Woordenboek Organische Chemie</TITLE> <BASE HREF="http://www-woc.sci.kun.nl/"> <LINK REL="stylesheet" href="gui/styles/woc.css" TYPE="text/css"> <SCRIPT SRC="gui/javascript/isframe.js"></SCRIPT> <SCRIPT SRC="gui/javascript/location.js"></SCRIPT> <SCRIPT> <!-- setLocation("Zoekresultaten"); // --> </SCRIPT> </HEAD> <BODY CLASS="main"> <H1>Data Statistieken</H1> <HR> <P>Dit woordenboek bevat... <UL> <P>$numberof{"items"} items : <UL> $numberof{"chemicals"} chemicaliën<BR> $numberof{"mixtures"} mengsels<BR> $numberof{"polymers"} polymeren<BR> $numberof{"reactions"} reacties<BR> $numberof{"groups"} groepen van woorden<BR> $numberof{"nomenclatuur"} nomenclatuur-regels<BR> $numberof{"overigen"} overigen </UL> <P>$numberof{"linguistisch"} woorden : <UL> $numberof{"afkortingen"} afkortingen<BR> $numberof{"nederlands"} Nederlandstalige woorden<BR> $numberof{"engels"} Engelstalige vertalingen<BR> $numberof{"duits"} Duitstalige vertalingen<BR> $numberof{"frans"} Franstalige vertalingen </UL> <P>$numberof{"database"} gegevensbestanden : <UL> <P><I>woorden :</I></P> $numberof{"xml"} XML-bestanden<BR> <P><I>2D-structuren :</I></P> $numberof{"2d-cml"} CML-bestanden<BR> $numberof{"2d-gif"} GIF-bestanden<BR> $numberof{"2d-mol"} (MDL) MOL-bestanden <P><I>3D-structuren :</I></P> $numberof{"3d-cml"} CML-bestanden<BR> $numberof{"3d-mol"} (MDL) MOL-bestanden<BR> $numberof{"3d-pdb"} PDB-bestanden<BR> $numberof{"3d-vrml"} VRML-bestanden<BR> $numberof{"3d-xyz"} XYZ-bestanden <P><I>fysische gegevensbestanden :</I></P> $numberof{"fys-cml"} CML-bestanden </UL> <!-- $numberof{"pictures"} plaatjes: <UL> $numberof{"pict-homos"} HOMO<BR> $numberof{"pict-lumos"} LUMO orbitalen </UL--> </UL> <P><HR> <CENTER> U bent de <!--WEBBOT bot="HTMLMarkup" startspan ALT="Site Meter" --> <script>var site="woccounter"</script> <script language="JavaScript1.2" src="http://www.sitemeter.com/js/counter.js?site=woccounter"> </script> <noscript> <a href="http://www.sitemeter.com/stats.asp?site=woccounter" target="_top"> <img src="http://www.sitemeter.com/meter.asp?site=woccounter" alt="Site Meter" nosave="" border="0" /></a> </noscript> <script>document.write("//"+"-"+"-"+">");</script> <!-- Copyright 1999 Site Meter --> <!--WEBBOT bot="HTMLMarkup" Endspan -->ste bezoeker. </CENTER> <hr /> <p> </BODY> </HTML> EOT --- NEW FILE: page-stats-automatic.pl --- #!/usr/local/bin/perl # # Just some defaults: $logfile = "/vol/www/sun4irc/logs/access/rest_log"; $weeklogfile = "/vol/www/sun4irc/httpd/logs/access_log"; $identfile = "data/woc.ident"; $sum = 0; # Process switches: if($ARGV[0] =~ /^week/i) { $logfile = $weeklogfile; } elsif ($ARGV[0] =~ /^-debug/i) { $debug = "True"; } if ( -r $logfile ) { if ( -r $identfile ) { # Well, the important files are there. Start generating the # HTML-file # Let's determine the other filenames: $strippedfile = substr($identfile, 0, rindex($identfile, ".")); $htmlfile = $strippedfile . ".html"; $headerfile = $strippedfile . ".header"; $footerfile = $strippedfile . ".footer"; # Calculate some variables: $firstrequest = `head -1 $logfile`; $firstrequest =~ s/^.*\[(\S*)\s.*$/$1/; chomp ($firstrequest); $lastrequest = `tail -1 $logfile`; $lastrequest =~ s/^.*\[(\S*)\s.*$/$1/; chomp ($lastrequest); $date = `/usr/bin/date '+\%H:\%Mh \%d-\%m-\%y'`; chomp ($date); # Write HEADER-file to HTML-file. I've put it here to show that the page is loading... print "Content-type: text/html\n\n"; if ( open (HEADER, $headerfile) ) { while (<HEADER>) { s/\$firstrequest/$firstrequest/gi; s/\$lastrequest/$lastrequest/gi; s/\$date/$date/gi; print( $_ ); } } else { print ( "<HTML>\n<HEAD>\n<TITLE>Page-statistics</TITLE>\n"); print ( "</HEAD>\n<BODY>\n"); } close (HEADER); # Read the identifiers-file: @identarray = (); open (IDENT, $identfile) || die $!; while (<IDENT>) { print "in:$_" if $debug; $identline = "0\@"; split("\@", $_); $identline .= shift(@_) . "\@" . shift(@_) . "\@"; while ( @_ != () ) { $_ = shift(@_); $_ =~ s/^\s*([\S_]*)\s*$/$1/; if ( $_ ne "") { $identline .= " " . $_ . " \@"; } } push (@identarray, $identline); print "half:$identline$/" if $debug; } close (IDENT) || die $!; # Read the logfile and check if the page is in the identarray open (LOG, $logfile) || die $!; while (<LOG>) { # get url from log-line s/^.*"(POST|GET)\s+([\S_?]+)\s+.*$/$2/i; # remove newline chomp($_); # remove spaces s/ //g; # remove tabs s/ //g; # if non-empty: check for presence in identarray if ( $_ ne "") { # Waarvoor dit is weet ik niet, maar daardoor worden de # argumenten van scripts niet geevalueerd... # Geert, 2 febr. 1999 if ( index($_, "+") != -1 ) { $_ = substr($_, 0, index($_,"+")+1); } $pageurl = " " . $_ . " "; foreach $identline (@identarray) { # if pageurl is in identarray then increase the counter if ( index($identline, $pageurl) != -1 ) { $len = index($identline, "\@"); $identline = ( substr($identline, 0, $len) + 1) . substr($identline, $len); } elsif (index($identline, "\*") != -1) { $_ = $identline; s/.*?\@.*?\@.*?\@(.*)\@/$1/; s/(.*)\*/$1/; while ( /\s/ ) { s/\s//; } if ( index($pageurl, $_) != -1 ) { $len = index($identline, "\@"); $identline = ( substr($identline, 0, $len) + 1) . substr($identline, $len); } } } } } close (LOG) || die $!; # Write page-stats to HTML-file print ( "<CENTER><TABLE>\n"); @content = (); ##added## $i = 0; ##added## foreach $identline (@identarray) { $content[$i] = "<TR>"; @splits = split ("\@", $identline); if ($splits[0] == 0) { $width = " 0"; } else { $width = int ($splits[0]); while (length ($width) < 5) { $width = " ".$width; } } $url = $splits[1]; $description = $splits[2]; $description =~ s/^\s*(.*)$/$1/; $content[$i] .= "<!-- $width -->"; $content[$i] .= "<TD ALIGN=Left><A HREF=\"$url\">$description</A></TD>"; $content[$i] .= "<TD>$splits[0]</TD>"; $content[$i] .= "<TD ALIGN=\"Left\"><IMG SRC=\"/sigma/gifs/icon/stats_bar.gif\""; $content[$i] .= " WIDTH=\"$width\" HEIGHT=\"10\"></TD>"; $content[$i] .= "</TR>\n"; $sum = $sum + $splits[0]; $i++; } ##and now print all sorted!!## @content = reverse (sort (@content)); foreach (@content) { if ( /\w*0 --/) { } else { print; } } print ( "</TABLE></CENTER><p>\n"); # Write FOOTER-file to HTML-file if ( open (FOOTER, $footerfile) ) { while (<FOOTER>) { s/\$sum/$sum/gi; s/\$firstrequest/$firstrequest/gi; s/\$lastrequest/$lastrequest/gi; s/\$date/$date/gi; print $_; } } else { print "<HR>\n<EM>Page was generated on $date</EM>\n"; print <<EOT; <CENTER> U bent de <!--WEBBOT bot="HTMLMarkup" startspan ALT="Site Meter" --> <script>var site="woccounter"</script> <script language="JavaScript1.2" src="http://www.sitemeter.com/js/counter.js?site=woccounter"> </script> <noscript> <a href="http://www.sitemeter.com/stats.asp?site=woccounter" target="_top"> <img src="http://www.sitemeter.com/meter.asp?site=woccounter" alt="Site Meter" nosave="" border="0! </noscript> <script>document.write("//"+"-"+"-"+">");</script> <!-- Copyright 1999 Site Meter --> <!--WEBBOT bot="HTMLMarkup" Endspan -->ste bezoeker. </CENTER> <hr /> EOT print "</BODY>\n</HTML>\n"; } close (FOOTER) || die $!; print "\n"; } } --- NEW FILE: tm-stats.pl --- #!/usr/local/bin/perl -w use strict; my $root = "../.."; my $topicmap = "$root/data/topicmap/associations.topicmap"; my %assocs = (); my %numberof = (); # read associations open(TOPICMAP, "<$topicmap"); my $id = ""; my $name = ""; while (my $line = <TOPICMAP>) { if ($line =~ /topic\s*id\=\"(.*)\"/i) { $id = $1; } elsif ($line =~ /basename\>(.*?)\<\/basename/i) { $name = $1; } if (($id ne "") && ($name ne "")) { $assocs{$id} = $name; $id = ""; $name = ""; } } close(TOPICMAP); # calc stats my $files = `find $root/data/wml -name \"*.xml\"`; $files =~ s/\n|\r/\ /g; $numberof{"topicmaps"} = int(`grep -i \"<tm:topic\" $files | wc -l`); $numberof{"assocs"} = int(`grep -i \"<tm:assoc\" $files | wc -l`); $numberof{"assoctypes"} = scalar keys %assocs; print <<EOT; Content-type: text/html <HTML> <HEAD> <TITLE>Woordenboek Organische Chemie</TITLE> <BASE HREF="http://www-woc.sci.kun.nl/"> <LINK REL="stylesheet" href="gui/styles/woc.css" TYPE="text/css"> <SCRIPT SRC="gui/javascript/isframe.js"></SCRIPT> <SCRIPT SRC="gui/javascript/location.js"></SCRIPT> <SCRIPT> <!-- setLocation("TopicMap Stats"); // --> </SCRIPT> </HEAD> <BODY CLASS="main"> <H1>Data Statistieken: Topic Map</H1> <HR> <P>Dit woordenboek bevat... <UL> <P>$numberof{"assoctypes"} topic maps gedefinieerd: <UL> <P><I>gebruikt:</I></P> <UL> $numberof{"topicmaps"} topic maps<BR> $numberof{"assocs"} associaties<BR> </UL> <P><I>naar associatie:</I></P> EOT foreach my $associd (keys %assocs) { my $aantal = int(`grep -i \"$associd" $files | wc -l`); if ($aantal > 0) { print " $aantal x $assocs{$associd}<BR>\n"; } } print <<EOT; <UL> </UL> </UL> </UL> <P><HR> <CENTER> U bent de <!--WEBBOT bot="HTMLMarkup" startspan ALT="Site Meter" --> <script>var site="woccounter"</script> <script language="JavaScript1.2" src="http://www.sitemeter.com/js/counter.js?site=woccounter"> </script> <noscript> <a href="http://www.sitemeter.com/stats.asp?site=woccounter" target="_top"> <img src="http://www.sitemeter.com/meter.asp?site=woccounter" alt="Site Meter" nosave="" border="0" /></a> </noscript> <script>document.write("//"+"-"+"-"+">");</script> <!-- Copyright 1999 Site Meter --> <!--WEBBOT bot="HTMLMarkup" Endspan -->ste bezoeker. </CENTER> <hr /> <p> </BODY> </HTML> EOT |
