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)=/);
-
+
# 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);
}
- } else {
+ } else {
&class_add($file,$t,$c);
}
}
#
################################################################################
# CONSTANTS
-#
+#
my $spool = "/var/spool/platal/archives/";
my $tmpbox = "mytmpbox.mbox";
# dummy init
$odir = 1;
}
-
+
$m = $conv{$1};
$y = $2;
open FILE,"> $tmpbox";
}
}
-
+
print FILE $line;
}