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 |