[Perl] Tainting & unlink

[Juup]

Als m'n scrippie tainting aan heeft staan (met de -T optie) dan wordt dir stukje code afgekeurd met de melding:

Insecure dependency in unlink while running with -T switch at /webmount/home/teijsden/cgi-bin/cms.pl line 159.

Dit zijn regel 156 en verder:

code:

$filename = "user inputted & tainted value"; #tainted
if ($filename =~ /^\Q$htdocsdir\E\/([a-z0-9_\-\/]+\.html)$/)
{ my $subFileName = $1;
  if (-f "$htdocsdir/$subFileName")
  { unlink ("$htdocsdir/$subFileName"); #regel 159
  }
}

Ik doe dus zoals dat Taint gebeuren voorschrijft een nette regexp op die filename. Toch die foutmelding. Wat doe ik fout?

[JayTaph]

En $htdocsdir?

[Juup]

$htdocsdir is untainted. Echt

[JayTaph]

Op donderdag 28 februari 2002 10:26 schreef Jaaap het volgende:
$htdocsdir is untainted. Echt

Ok, dan geloof ik je

Maar ik zie zo geen oplossing in ieder geval. Op de een of andere manier is OF $htdocsdir OF $subFileName OF de combinatie van beide tainted. Een doekje voor het bloeden zou zijn om deze in een aparte var te zetten en daarna met een default regex te untainten.

[Juup]

Ik heb het gevonden. Stom foutje. Nix interessants.

[JayTaph]

en nou wil ik het weten ook