@haDidi
il existe la classe poubelle si tu veux qui est limité à 2kbit/s min et 3kbit/s max ce qui est très très faible, c comme si il passait jamais
Modérateur: modos Ixus
sub createJavascript
{
my $id = 0 ;
my $verif = 0 ;
print "<script type=\"text/javascript\">\n<!-- Debut\n\n" ;
#added for firefox compatibility
print "function addOption(combo,option)\n{\n" ;
print "\tif (navigator.userAgent.toLowerCase().indexOf('msie') != -1){combo.add(option)}\n" ;
print "\telse {combo.add(option,null)}\n" ;
print "}\n\n" ;
print "function chDir(formulaire)\n{\n" ;
print "\ti = formulaire.RULELINK.selectedIndex;\n\tnbCl = formulaire.CLASSE.length;\n\tnbPoids = formulaire.POIDS.length;\n" ;
print "\tcurrentSel = \'$cgiparams{'CLASSE'}\';\n" ;
print "\tfor ( j = 0 ; j < nbCl; j++ )\n\t{\n" ;
print "\t\tformulaire.CLASSE.remove(0) ;\n\t}\n" ;
print "\tfor ( j = 0 ; j < nbPoids; j++ )\n\t{\n" ;
print "\t\tformulaire.POIDS.remove(0) ;\n\t}\n" ;
print "\tfor ( j = 0 ; j <= ( ( i == 0 ) ? $totalRulesUp : $totalRulesDn ) ; j++ )\n\t{\n" ;
print "\t\taddOption(formulaire.POIDS,new Option( j, j )) ;\n\t}\n" ;
print "\tif ( i == 0 )\n\t{\n\t\tvar cl = new Array(" ;
foreach my $line (@classcurrent)
{
$id++;
chomp($line);
my @temp = split(/;/,$line);
if( $temp[0] eq 'up' && $temp[2] eq $cgiparams{'IF'} )
{
if( $verif == 0 ) { print "'$temp[7]','$id'" ; }
else { print ",'$temp[7]','$id'" ; }
$verif++ ;
}
}
print ");\n\t}\n\n" ;
$id = 0 ;
$verif = 0 ;
print "\tif ( i == 1 )\n\t{\n\t\tvar cl = new Array(" ;
foreach my $line (@classcurrent)
{
$id++;
chomp($line);
my @temp = split(/;/,$line);
if( $temp[0] eq 'dn' && $temp[2] eq $cgiparams{'IF'} )
{
if( $verif == 0 ) { print "'$temp[7]','$id'" ; }
else { print ",'$temp[7]','$id'" ; }
$verif++ ;
}
}
print ");\n\t}\n\n" ;
print "\tfor( j = 0 ; j < cl.length / 2 ; j++ )\n\t{\n" ;
print "\t\taddOption(formulaire.CLASSE,new Option( cl[j*2], cl[(j*2) + 1]));\n" ;
print "\t\tif( currentSel == formulaire.CLASSE.options[j].name )\n\t\t{\n" ;
print "\t\t\tformulaire.CLASSE.options[j].selected( true );\n\t\t}\n\t}\n" ;
print "\taddOption(formulaire.CLASSE,new Option( '$Lang::tr{'trash'}', 'P' ) ) ;\n" ;
print "\tif( currentSel == 'P' )\n\t{\n" ;
print "\t\tformulaire.CLASSE.options[formulaire.CLASSE.length - 1].selected( true );\n\t}\n" ;
print "\n}\n\n// Fin -->\n</script>\n" ;
}
Utilisateur(s) parcourant actuellement ce forum : Aucun utilisateur inscrit et 1 invité