Signed-off-by: Pierre Habouzit <madcoder@debian.org>
if($tag =~ / (checked|disabled|multiple|readonly)( |$)/);
print STDERR "${red}XHTML error: ${yel}attribut $1 ${blu}($file)${gra}\n"
if($tag =~ / (align|width|border|color|valign)=/);
if($tag =~ / (checked|disabled|multiple|readonly)( |$)/);
print STDERR "${red}XHTML error: ${yel}attribut $1 ${blu}($file)${gra}\n"
if($tag =~ / (align|width|border|color|valign)=/);
# récupération des classes utilisées ...
if($tag =~ /^(\w+).* class=('{[^}]*}'|"{[^}]*}"|'[^{}']*'|"[^{}"]*")/) {
my $t = lc($1);
# récupération des classes utilisées ...
if($tag =~ /^(\w+).* class=('{[^}]*}'|"{[^}]*}"|'[^{}']*'|"[^{}"]*")/) {
my $t = lc($1);
foreach my $cl (@cycle) {
&class_add($file,$t,$cl) if($cl);
}
foreach my $cl (@cycle) {
&class_add($file,$t,$cl) if($cl);
}
&class_add($file,$t,$c);
}
}
&class_add($file,$t,$c);
}
}
#
################################################################################
# CONSTANTS
#
################################################################################
# CONSTANTS
my $spool = "/var/spool/platal/archives/";
my $tmpbox = "mytmpbox.mbox";
my $spool = "/var/spool/platal/archives/";
my $tmpbox = "mytmpbox.mbox";
# dummy init
$odir = 1;
}
# dummy init
$odir = 1;
}
$m = $conv{$1};
$y = $2;
open FILE,"> $tmpbox";
}
}
$m = $conv{$1};
$y = $2;
open FILE,"> $tmpbox";
}
}