1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
foreach(@Conf)
{
~s/\s{2,}//g;
~s/\n//g;
$index=substr($_,0,2);
switch($index)
{
case '#='
{
$html.="<\TABLE>\n";
~s/#=//g;
~s/={3,}/=/g;
$html.="<TABLE align='center'bgcolor=$color1 cellspacing=1 border=0>\n";
$html.="<TR height=30>\n";
$html.="<TD align='center' valign='middle' width=80% colspan=4>\n";
$html.="<p align='center'><font size=$size1 color=$textcolor1><B>$_<B></font></p>";
$html.="</TD>\n</TR>\n";
$Titre=$_;
$Titre=~s/\'||\||\(||\)||\=//g;
$Titre[0]=~s/\\/\//g;
}
case '#-'
{
~s/#-||#//g;
$html.="<TR height=20 bgcolor=$color2>\n";
$html.="<TD align='left' valign='middle' width=100% colspan=4>\n";
$html.="<p align='Left'><font size=$size2 color=$textcolor2><B>$_</B></font></p>";
$html.="</TD>\n</TR>\n";
$SousTitre=$_;
$SousTitre=~s/\'||\||\(||\)||\-//g;
$SousTitre[0]=~s/\\/\//g;
}
case '#?'
{
~s/#||\?//g;
$TypeValue=&DefineValue($_);
~s/{(.*)//;
$html.="<TR height=10 bgcolor=$color3>\n";
$html.="<TD align='left' VALIGN='middle' width=100% colspan=4>\n";
$html.="<p align='left'><font size=$size3 color=$textcolor3><B><U><LI>$_</LI></U></B></font></p>";
$html.="</TD>\n</TR>\n";
$DefVariable=$_;
$DefVariable=~s/\'||\||\(||\)//g;
$DefVariable=~s/\\/\//g;
}
}
if(substr($_,0,1) eq '¤')
{
~s/¤//g;
@temp=split('->',$_);
$temp[0]=~s/\'||\||\(||\)//g;
$temp[0]=~s/\\/\//g;
$temp[1]=~s/\'||\||\(||\)//g;
$temp[1]=~s/\\/\//g;
$temp[0]=~s/_/ /g;
$html.="<TR height=10 bgcolor=$color4>\n";
$html.="<FORM name=\'f_$form\'>\n";
$html.="<TD align='left' valign='middle' width=100%>\n";
$html.="<p id=\'$form_0\' align='left><font size=$size4 color=$textcolor41><B>* $temp[0]</B></font></p>";
$html.="</TD>\n";
$html.="<TD align='left' valign='middle' width=100%>\n";
$html.="<p align='left' id=\'$form_1\'><font size=$size4 color=$textcolor42><B>$temp[1]</B></font></p>";
$html.="</TD>\n";
$html.="<input type='hidden' name=\'$form\_0\' value=$temp[0]><input type='hidden' name=\'$form\_1\' value=$temp[1]>";
$html.="<TD align='left' valign='middle' width=100%>\n";
$html.="<p align='left'><input type=button value='changer' onclick=\"change($form,\'$TypeValue\',\'$Titre\',\'$SousTitre\',\'$DefVariable\',\'$temp[0]\',\'$temp[1]\')\"></p>";
$html.="</TD>\n</FORM>\n</TR>\n";
$form++;
}
} |
Partager