#!/usr/bin/perl
print "Voici quelques sites qui utilisent MIFAYN, si vous aussi vous utilisez MIFAYN, envoyez-moi un email ...
";
print "Here are some websites that uses MIFAYN. If you are using MIFAYN too, please send me an email ...
";
print "";
while () {
$maxurlsize=13;
@myarray=split("%%%");
if (length($myarray[1])<$maxurlsize){
$urltext=$myarray[1];
} else {
$urltext=substr($myarray[1], 0, $maxurlsize - 3);
$urltext="$urltext\.\.\.";
}
print "
|
$urltext
|
$myarray[2]
|
$myarray[3]
|
";
}
print "
";