1MIME-Version: 1.0 2Content-Transfer-Encoding: binary 3Content-Type: multipart/alternative; boundary="alian-mime-lite-html" 4 5Subject: Mail in HTML with images 6To: MIME-Lite@alianwebserver.com 7From: MIME-Lite@alianwebserver.com 8X-Mailer: MIME::Lite::HTML 1.24 9 10This is a multi-part message in MIME format. 11 12--alian-mime-lite-html 13MIME-Version: 1.0 14Content-Transfer-Encoding: 7bit 15Content-Type: text/plain; charset=iso-8859-1 16 17 18 19 20 Automated Testing of Perl5 Interpreter for NetWare. 21 22 23 24A set of Standard Unit Test Scripts to test all the functionalities of 25Perl5 Interpreter are available along with the CPAN download. They are 26all located under 't' folder. These include sub-folders under 't' such 27as: 'base', 'cmd', 'comp', 'io', lib', 'op', 'pod', 'pragma' and 'run'. 28Each of these sub-folders contain few test scripts ('.t' files) under 29them. 30 31Executing these test scripts on NetWare can be automated as per the 32following: 33 341. Generate automated scripts like 'base.pl', 'cmd.pl', 'comp.pl', 'io.pl', 35'lib.pl', 'op.pl', 'pod.pl', 'pragma.pl', 'run.pl' that execute all the 36test scripts ('.t' files) under the corresponding folder. 37 38For example, 'base.pl' to test all the scripts 39 under 'sys:\perl\scripts\t\base' folder, 40 'comp.pl' to test all the scripts 41 under 'sys:\perl\scripts\t\comp' folder and so on. 42 432. Generate an automated script, 'nwauto.pl' that executes all the above 44mentioned '.pl' automated scripts, thus in turn executing all the '.t' 45scripts. 46 47The script, 'NWScripts.pl' available under the 'NetWare\t' folder of the 48CPAN download, is written to generate these automated scripts when 49executed on a NetWare server. It generates 'base.pl', 'cmd.pl', 'comp.pl', 50'io.pl', 'lib.pl', 'op.pl', 'pod.pl', 'pragma.pl', 'run.pl' and also 51'nwauto.pl' by including all the corresponding '.t' scripts in them in 52backtick operators. 53 54For example, all the scripts that are under 't\base' folder will be 55entered in 'base.pl' and so on. 'nwauto.pl' includes all these '.pl' 56scripts like 'base.pl', 'comp.pl' etc. 57 58 59Perform the following steps to execute the automated scripts: 60 611. Map your NetWare server to "i:" 62 632. After complete build (building both interpreter and all extensions) 64of Perl for NetWare, execute "nmake nwinstall" in the 'NetWare' folder 65of the CPAN download. This installs all the library files, perl modules, 66the '.pl' files under 'NetWare\t' folder and all the '.t' scripts 67under 't' folder, all in appropriate folders onto your server. 68 693. Execute the command "perl t\NWModify.pl" on the console command 70prompt of your server. This script replaces 71 72 "@INC = " with "unshift @INC, " and 73 "push @INC, " with "unshift @INC, " 74 75from all the scripts under 'sys:\perl\scripts\t' folder. 76 77This is done to include the correct path for libraries into the scripts 78when executed on NetWare. If this is not done, some of the scripts will 79not get executed since they cannot locate the corresponding libraries. 80 814. Execute the command "perl t\NWScripts.pl" on the console command 82prompt to generate the automated scripts mentioned above 83under the 'sys:\perl\scripts\t' folder. 84 855. Execute the command "perl t\nwauto.pl" on the server console command 86prompt. This runs all the standard test scripts. If you desire to 87redirect or save the results into a file, say 'nwauto.txt', then the 88console command to execute is: "perl t\nwauto.pl > nwauto.txt". 89 906. If you wish to execute only a certain set of scripts, then run the 91corresponding '.pl' file. For example, if you wish to execute only the 92'lib' scripts, then execute 'lib.pl' through the server console command, 93"perl t\lib.pl'. To redirect the results into a file, the console command 94 is, "perl t\lib.pl > lib.txt". 95 96 97 98Known Issues: 99 100The following scripts are commented out in the corresponding autoscript: 101 1021. 'openpid.t' in 'sys:\perl\scripts\t\io.pl' script 103 Reason: 104 This either hangs or abends the server when executing through auto 105 scripts. When run individually, the script execution goes through 106 fine. 107 1082. 'argv.t' in 'sys:\perl\scripts\t\io.pl' script 109 Reason: 110 This either hangs or abends the server when executing through auto 111 scripts. When run individually, the script execution goes through 112 fine. 113 1143. 'filehandle.t' in 'sys:\perl\scripts\t\lib.pl' script 115 Reason: 116 This hangs in the last test case where it uses FileHandle::Pipe 117 whether run individually or through an auto script. 118 119 120--alian-mime-lite-html 121MIME-Version: 1.0 122Content-Transfer-Encoding: quoted-printable 123Content-Type: text/html; charset=iso-8859-1 124 125 126<html> 127<head> 128<title></title> 129<style type=3D"text/css"> 130<!-- 131body {=0D 132 margin: 2em 1em 2em 70px;=0D 133 font-family: sans-serif;=0D 134 color: black;=0D 135 background: white;=0D 136 background-position: top left;=0D 137 background-attachment: fixed;=0D 138 background-repeat: no-repeat;=0D 139}=0D 140=0D 141th, td { /* ns 4 */=0D 142 font-family: sans-serif;=0D 143}=0D 144=0D 145h1, h2, h3, h4, h5, h6 { text-align: left }=0D 146h1, h2, h3 { color: #005A9C }=0D 147h1 { font: 150% sans-serif }=0D 148h2 { font: 130% sans-serif }=0D 149h3 { font: 110% sans-serif }=0D 150h4 { font: bold 100% sans-serif }=0D 151h5 { font: italic 100% sans-serif }=0D 152 153--> 154</style> 155 156<link REV=3D"made" href=3D"mailto:alian@alianwebserver.com"> 157<body> 158 159<!-- file:///var/tmp/mime-lite-html-tests/docs/acceuil.js --> 160<script type=3D"text/javascript"> 161<!-- 162var edito =3D "24//06//2002";=0D 163edito +=3D"";=0D 164=0D 165// edito +=3D "Une nouvelle page d'acceuil pour 1001cartes, notre site de c= 166artes virtuelles... ";=0D 167//edito +=3D " La f=EAte d'HALLOWEEN est pass=E9e, mais les enfants restent= 168 dans l'ambiance encore toutes les vacances... ";=0D 169edito +=3D " L'=E9t=E9 est l=E0, il fait chaud, et c'est bient=F4t les vaca= 170nces ! N'oubliez pas d'envoyer une carte postale... ";=0D 171=0D 172function verifieUrl()=0D 173 {=0D 174 if (parent.document.location!=3Dthis.document.location) =0D 175 {parent.document.location=3Dthis.document.location;}=0D 176 }=0D 177// Fonction de scroll dans la barre des status=0D 178function scrollit_r2l(seed)=0D 179{=0D 180 verifieUrl();=0D 181 var m1 =3Dedito;=0D 182 var msg=3Dm1;=0D 183 var out =3D " ";=0D 184 var c =3D 1;=0D 185 if (seed > 100) =0D 186 {=0D 187 seed--;=0D 188 var cmd=3D"scrollit_r2l(" + seed + ")";=0D 189 timerTwo=3Dwindow.setTimeout(cmd,50);=0D 190 }=0D 191 else if (seed <=3D 100 && seed > 0) =0D 192 {=0D 193 for (c=3D0 ; c < seed ; c++) {out+=3D" ";}=0D 194 out+=3Dmsg;=0D 195 seed--;=0D 196 var cmd=3D"scrollit_r2l(" + seed + ")";=0D 197 window.status=3Dout;=0D 198 timerTwo=3Dwindow.setTimeout(cmd,50);=0D 199 }=0D 200 else if (seed <=3D 0) =0D 201 {=0D 202 if (-seed < msg.length) =0D 203 {=0D 204 out+=3Dmsg.substring(-seed,msg.length);=0D 205 seed--;=0D 206 var cmd=3D"scrollit_r2l(" + seed + ")";=0D 207 window.status=3Dout;=0D 208 timerTwo=3Dwindow.setTimeout(cmd,50);=0D 209 }=0D 210 else =0D 211 {=0D 212 window.status=3D" ";=0D 213 timerTwo=3Dwindow.setTimeout("scrollit_r2l(100)",50= 214);=0D 215 }=0D 216 }=0D 217 }=0D 218=0D 219function checkMoteur(theForm)=0D 220{=0D 221=0D 222 if (theForm.MOT_CLEF.value =3D=3D "")=0D 223 {=0D 224 alert("Vous devez donnez des mots-clefs pour effectuer votre recherche = 225.");=0D 226 theForm.MOT_CLEF.focus();=0D 227 return (false);=0D 228 }=0D 229=0D 230 if (theForm.MOT_CLEF.value.length < 2)=0D 231 {=0D 232 alert("Tapez au moins 2 caract=E8res pour que votre recherche soit pert= 233inente .");=0D 234 theForm.MOT_CLEF.focus();=0D 235 return (false);=0D 236 }=0D 237 return (true);=0D 238}=0D 239=0D 240function checkMail(theForm)=0D 241{=0D 242=0D 243 if (theForm.mail.value =3D=3D "<Votre adresse Mail>")=0D 244 {=0D 245 alert("Vous devez donnez votre adresse Mail.");=0D 246 theForm.mail.focus();=0D 247 return (false);=0D 248 }=0D 249=0D 250 if (theForm.mail.value.length < 5)=0D 251 {=0D 252 alert("Tapez au moins 5 caractres dans le champ \"mail\".");=0D 253 theForm.mail.focus();=0D 254 return (false);=0D 255 }=0D 256=0D 257 if (theForm.mail.value.length > 30)=0D 258 {=0D 259 alert("Tapez au plus 30 caractres dans le champ \"mail\".");=0D 260 theForm.mail.focus();=0D 261 return (false);=0D 262 }=0D 263 return (true);=0D 264}=0D 265function banner(msg,ctrlwidth)=0D 266 {=0D 267 document.write ('<APPLET CODE=3Dscroll WIDTH=3D400 HEIGHT=3D16>');=0D 268 document.write ('<PARAM NAME=3DTEXT VALUE=3D"$' + edito + '$">');=0D 269 document.write ('<PARAM NAME=3DSPEED VALUE=3Dfast></APPLET>'); =0D 270 }=0D 271 272--> 273</script> 274 275 <h1>Alianet Network</h1> 276 <img src=3D"file:///var/tmp/mime-lite-html-tests/docs/img/sommaire.gif" a= 277lt=3D"Alian" border=3D"0"> 278 <img src=3D"file:///var/tmp/mime-lite-html-tests/docs/img/sommaire.gif" a= 279lt=3D"Alian" border=3D"0"> 280 <img src=3D"file:///var/tmp/mime-lite-html-tests/docs/img/sommaire.gif" a= 281lt=3D"Alian" border=3D"0"> 282<h2>Intranet</h2> 283<ol> 284 <li> <a href=3D"http://alianwebserver.alianet">Alianwebserver</a> </li> 285 <li> <a href=3D"http://1001cartes.alianet">1001 Cartes</a></li> 286 <li> <a href=3D"http://mp3.alianet">Mp3</a> </li> 287 <li> <a href=3D"http://docs.alianet">Documentation</a></li> 288 <li> <a href=3D"http://validator.alianet">Validator HTML</a></li> 289 <li> <a href=3D"file:///ldap">Annuaire LDAP</a></li> 290 <li> <a href=3D"file:///phpMyAdmin">Administration Mysql</a></li> 291 <li> <a href=3D"http://saturne.alianet/mod-perl/circa/admin.cgi">Adminis= 292tration Circa</a></li> 293 <li> <a href=3D"file:///mod-perl/cvsweb.cgi/">Developpement / cvsweb.cgi= 294</a></li> 295 <li> <a href=3D"http://saturne.alianet/cgi-bin/parserSyslog.cgi">Syslog<= 296/a></li> 297</ol> 298 299<h2>Internet</h2> 300<ol> 301 <li> <a href=3D"http://www.alianwebserver.com">Alianwebserver</a></li> 302 <li> <a href=3D"http://www.1001cartes.com">1001 Cartes</a></li> 303 <li> <a href=3D"http://www.comclick.com">Publicité Alianwebserver= 304</a></li>=20 305 <li> <a href=3D"http://www.alianwebserver.com/stats/">Stats Alianwebserv= 306er</a></li> 307 <li> <a href=3D"http://www.yahoo.fr">Yahoo</a></li> 308 <li> <a href=3D"http://www.jeuxvideo.com">JeuxVideo.com</a></li> 309 <li> <a href=3D"http://www.google.com">Google</a></li> 310 <li> <a href=3D"http://www.lejour.com">Le jour</a></li> 311</ol> 312 313</ol> 314</body> 315</html> 316 317--alian-mime-lite-html-- 318 319
