← Back to branch summary

~ubuntu-branches/ubuntu/precise/fex/precise

« back to all changes in this revision

Viewing changes to bin/fexsrv

  • Committer: Package Import Robot
  • Author(s): Kilian Krause
  • Date: 2012-02-22 10:14:45 UTC
  • mfrom: (13.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20120222101445-omwymzjlo12ggn5z
Tags: 20120215-2
http://bugs.debian.org/642714
* Add check for existance of md5sum files to clean target and make sure we
  don't include META-INF
  => Ignoring META-INF on md5sum checks allows signing with different java
  versions and not get an FTBFS (Closes: #642714)
+ Set urgency=high due to fixing RC bug

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/fexsrv
61
61
 
62
62
our $log = "$logdir/fexsrv.log";
63
63
 
 
64
our $error = 'F*EX ERROR';
 
65
 
64
66
$0 = untaint($0);
65
67
  
66
68
$ENV{GATEWAY_INTERFACE} = 'CGI/1.1';
77
79
  ^GET./w00tw00t\.at\.ISC\.SANS
78
80
));
79
81
 
 
82
$port = 0;
 
83
 
80
84
# continue session?
81
85
if ($keep_alive) {
82
86
  if ($ENV{HTTP_HOST} =~ /(.+):(.+)/) {
282
286
    $ENV{PATH_INFO}      = $1               if $cgi =~ m:/.+?(/.+?)(\?|$):;
283
287
    $ENV{KEEP_ALIVE}     = $keep_alive = '' if $protocol =~ /1\.0/;
284
288
    $ENV{REQUEST_URL}    = "$ENV{PROTO}://$ENV{HTTP_HOST}$ENV{REQUEST_URI}";
 
289
    if ($uri =~ /<|%3c/i)  { badchar("&lt;") }
 
290
    if ($uri =~ />|%3e/i)  { badchar(">") }
 
291
    if ($uri =~ /\||%7c/i) { badchar("|") }
 
292
    if ($uri =~ /\\|%5c/i) { badchar("\\") }
285
293
  }
286
294
 
287
295
  while ($_ = shift @header) {
552
560
}
553
561
 
554
562
 
 
563
 
 
564
sub badchar {
 
565
  my $bc = shift;
 
566
  
 
567
  fexlog($connect,@log,"DISCONNECT: bad characters in URL");
 
568
  debuglog("DISCONNECT: bad characters in URL $uri");
 
569
  http_die("\"$bc\" is not allowed in URL");
 
570
}
 
571
 
 
572
 
555
573
sub http_error {
556
574
  my $error = shift;
557
575
  my $URL = $ENV{REQUEST_URL};