| OLD | NEW |
| 1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
| 2 | 2 |
| 3 print "Content-type: text/html\r\n"; | 3 print "Content-type: text/html\r\n"; |
| 4 | 4 |
| 5 @keypairs = split(/&/, $ENV{'QUERY_STRING'}); | 5 @keypairs = split(/&/, $ENV{'QUERY_STRING'}); |
| 6 | 6 |
| 7 $type = ""; | 7 $type = ""; |
| 8 | 8 |
| 9 foreach $pair (@keypairs) | 9 foreach $pair (@keypairs) |
| 10 { | 10 { |
| (...skipping 28 matching lines...) Expand all Loading... |
| 39 } | 39 } |
| 40 | 40 |
| 41 $src = "'reload-subframe-content.pl?text=$subframe_content'"; | 41 $src = "'reload-subframe-content.pl?text=$subframe_content'"; |
| 42 | 42 |
| 43 if ($type eq "iframe") { | 43 if ($type eq "iframe") { |
| 44 print "<body>"; | 44 print "<body>"; |
| 45 print "<iframe src=$src></iframe>"; | 45 print "<iframe src=$src></iframe>"; |
| 46 print "</body>"; | 46 print "</body>"; |
| 47 } elsif ($type eq "object") { | 47 } elsif ($type eq "object") { |
| 48 print "<body>"; | 48 print "<body>"; |
| 49 print "<object data=$src></object>"; | 49 print "<object type='text/plain' data=$src></object>"; |
| 50 print "</body>"; | 50 print "</body>"; |
| 51 } else { | 51 } else { |
| 52 print "<frameset>"; | 52 print "<frameset>"; |
| 53 print "<frame src=$src>"; | 53 print "<frame src=$src>"; |
| 54 print "</frameset>"; | 54 print "</frameset>"; |
| 55 } | 55 } |
| 56 | 56 |
| 57 print "</html>"; | 57 print "</html>"; |
| OLD | NEW |