Public bug reported:

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 c...@eurohockey.net            #
#               Mike Ewer m...@eurohockey.net                 #
#               Balz Meierhans b...@eurohockey.net            #
#                                                             #
###############################################################


&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:webmast...@eurohockey.net?subject=no 
Frames">webmast...@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

** Affects: ubuntu
     Importance: Undecided
         Status: New

-- 
Firefox3.0.8,Konquerer 3.5.10: Perlscript not accepted
https://bugs.launchpad.net/bugs/350951
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.

-- 
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs

Reply via email to