| 12
 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