} elsif ($flag =~ /S/) {
# "Harmless" string. Aggressively filter-in on unsafe
# platforms.
if ( $this->{SAFE} ||
$param =~ /^[0-9A-Za-z.+_\-]$/ ) {
push @targs, untaintUnchecked( $param );
} else {
throw Error::Simple( "invalid string argument '$param' $t" );
}
Oops. RE should be changed to /^[0-9A-Za-z.+_\-]+$/
From TWiki:Support.LoginUserFails| ItemTemplate | |
|---|---|
| Summary | Sandbox aggressively filters all but single-character strings |
| ReportedBy |
TWiki:Main.CrawfordCurrie |
| Codebase | ~twiki4 |
| SVN Range | TWiki-4.1, Sun, 08 Oct 2006, build 11688 |
| AppliesTo | Engine |
| Component | |
| Priority | Urgent |
| CurrentState | Closed |
| WaitingFor | |
| Checkins | 11697 |
| TargetRelease | minor |