Firefox3.0.8,Konquerer 3.5.10: Perlscript not accepted

Bug #350951 reported by Wolfgang Götz
4
Affects Status Importance Assigned to Milestone
Ubuntu
Invalid
Undecided
Unassigned

Bug Description

The Perlscript, which is used at the Database behind the Internetsite
http://www.eurohockey.net/
examplelinks:
- http://www.eurohockey.net/players/show_player.cgi?serial=113285

give not longer an correct displayed template since the installed Update for the Version
- Firefox: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.8) Gecko/2009032711 Ubuntu/8.04 (hardy) Firefox/3.0.8
- Konquerer: Konquerer 3.5.10 (KDE 3.5.10) German Version.

I've justed installed the lasted Updates of Kubuntu 8.0.4 Version 29.03.2009 - 15.00 MESZ

Example 1: If i give the url
http://www.eurohockey.net/about/index.cgi?page=contact.html
at Firefox the result is:

#!/usr/bin/perl

###############################################################
# #
# /scripts/index.cgi part of "European Hockey.Net" #
# #
# (c) 1998/1999 European Hockey.Net www.eurohockey.net #
# Carl Johnstone <email address hidden> #
# Mike Ewer <email address hidden> #
# Balz Meierhans <email address hidden> #
# #
###############################################################

&ReadParse(*input);

if (-e 'home.cgi') {
  $default = 'home.cgi';
} elsif (-e 'home.shtml') {
  $default = 'home.shtml';
} elsif (-e 'home.html') {
  $default = 'home.html';
}

$input{'page'} ||= $default;

print "Content-type: text/html\n\n";

print <<END_OF_PRINT;
<html>
<head>
<title>European Hockey.Net - Ice Hockey News and Stats for Europe</title>
<SCRIPT language="JavaScript"><!--
   if (top != self) top.location.href = self.location.href;
//--></SCRIPT>
<link rel="home" href="/" title="European Hockey.Net">
<link rel="players" href="/players/" title="European Hockey.Net">
<link rel="shortcut icon" href="http://img.eurohockey.net/favicon.ico" type="image/x-icon">
</head>

<frameset cols="145,*" border="0">
<frame name="EHNNavigate" scrolling="no" src="navigate.cgi">
<frameset rows="100,*" border="0">
<frame name="EHNTop" scrolling="no" src="/topframe.html">
<frame name="EHNMain" scrolling="auto" src="$input{'page'}">
</frameset>
</frameset>
<body>
<noframes>
<h1>Welcome to European Hockey.Net</h1>
<p>Our aim is to bring all European Ice Hockey together in a single site.
We currently include
<ul>
<li>news</li>
<li>player statistics</li>
<li>games</li>
<li>schedules</li>
<li>fixtures</li>
<li>tables</li>
<li>standings</li>
<li>scores</li>
<li>results</li>
<li>transfers</li>
<li>team information</li>
<li>rink information</li>
<li>league information</li>
</ul>
from leagues all across Europe:
<ul>
<li>East European League - A</li>
<li>Euro Ice Hockey Challenge</li>
<li>Euro Ice Hockey Challenge - UK</li>
<li>Euro Hockey Tour</li>
<li>Ceska Pojistovna Cup (EHT)</li>
<li>Karjala Tournament (EHT)</li>
<li>Sweden Hockey Games (EHT)</li>
<li>Pannonia League</li>
<li>Siemens International Hockey League</li>
<li>at : UNIQA Eishockeyliga</li>
<li>be : Belgian First Division</li>
<li>be : Beker van Belgie</li>
<li>be : Belgian Premier Division</li>
<li>ch : NLA</li>
<li>ch : NLB</li>
<li>cz : Czech 1.liga</li>
<li>cz : Extraliga (cz)</li>
<li>de : 2. Bundesliga</li>
<li>de : DEL</li>
<li>de : Oberliga - Südost</li>
<li>de : Oberliga - Südwest</li>
<li>de : Regionalliga Nord</li>
<li>de : Regionalliga Nord, Pokalrunde</li>
<li>de : Regionalliga Nordrhein-Westfalen</li>
<li>de : Regionalliga Ost</li>
<li>de : Regionalliga Ost, Pokalrunde</li>
<li>dk : Superisligaen</li>
<li>it : Euro Ice Hockey Challenge - IT</li>
<li>lv : Euro Ice Hockey Challenge - LV</li>
<li>fi : III divisioona Pirkanmaa</li>
<li>fi : Mestis</li>
<li>fi : SM-liiga</li>
<li>fi : Suomi-sarja East</li>
<li>fi : Suomi-sarja West</li>
<li>fr : Super 16 Nord</li>
<li>fr : Super 16 Sud</li>
<li>hu : Orszagos Bajnoksag</li>
<li>is : Icelandic League</li>
<li>it : Serie A1</li>
<li>it : Serie A2</li>
<li>it : Serie B</li>
<li>lv : Latvian League</li>
<li>nl : Super Liga Cup competition, round 1</li>
<li>nl : Super Liga Cup competition, round 2</li>
<li>nl : Super Liga Bonus Ronde</li>
<li>nl : Super Liga Ronde 1</li>
<li>nl : Super Liga Ronde 2</li>
<li>nl : Toekomst Liga</li>
<li>no : Norwegian Eliteserien</li>
<li>ru : Russian League</li>
<li>se : Allsvenskan Norra</li>
<li>se : Allsvenskan Södra</li>
<li>se : Swedish Division 1 Norra A</li>
<li>se : Swedish Division 1 Norra B</li>
<li>se : Swedish Division 1 Östra A</li>
<li>se : Swedish Division 1 Östra B</li>
<li>se : Swedish Division 1 Södra</li>
<li>se : Swedish Division 1 Västra A</li>
<li>se : Swedish Division 1 Västra B</li>
<li>se : Elitserien</li>
<li>sk : Extraliga</li>
<li>uk : UK Challenge Cup - Group A</li>
<li>uk : UK Challenge Cup - Group B</li>
<li>uk : ISL</option>
</ul>
</p>
<p>Sorry, but European Hockey.Net uses frames for layout.</p>
<p><a href="mailto:webmaster\@eurohockey.net?subject=No Frames">webmaster\@eurohockey.net</a></p>
<a href="navigate.cgi">Navigation</a>
</noframes>
</body>
</html>
END_OF_PRINT

#############################################
sub ReadParse {
  local (*in) = @_ if @_;
  local ($i, $key, $val);

  # Read in text
  if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $in = $ENV{'QUERY_STRING'};
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
  }

  @in = split(/[&;]/,$in);

  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =~ s/\+/ /g;

    # Split into key and value.
    ($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

    # Convert %XX from hex numbers to alphanumeric
    $key =~ s/%(..)/pack("c",hex($1))/ge;
    $val =~ s/%(..)/pack("c",hex($1))/ge;

    # Associate key and value
    $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
    $in{$key} .= $val;

  }

  return scalar(@in);
}

If i give in the Url at the Konquerer-Browser
the Result is the Attachement

Revision history for this message
Wolfgang Götz (wolfgang-goetz) wrote :
Revision history for this message
Brian Murray (brian-murray) wrote :

Looking at the attachments in this bug report, I noticed that "Result of the Perlscript at the Konquerer-Brower" was flagged as a patch. A patch contains changes to an Ubuntu package that will resolve a bug, since this was not one I've unchecked the patch flag for it. In the future keep in mind the definition of a patch. You can learn more about what qualifies as a patch at https://wiki.ubuntu.com/Bugs/Patches. Thanks!

Revision history for this message
David Tombs (dgtombs) wrote :

Hi, and thanks for reporting this bug. It seems the issue was a problem with the website, and is now fixed. Please reopen if you're still experiencing the issue.

Changed in ubuntu:
status: New → Invalid
To post a comment you must log in.
This report contains Public information  
Everyone can see this information.

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.