SELFHTML Forum
SELFHTML Forumsarchiv
2003
Juni
 |
SELFHTML Forumsarchiv |
 |
|
 |
|
Die folgende Nachricht zum Thema stammt von: hotspot, 30. 06. 2003, 09:24
Hi!
Ich versuche eine *.pl Datei als object in eine Seite einzubinden - klappt soweit ja auch ganz gut, aber:
Warum sehe ich bei Mozilla garnix? und
Wieso ist bei border=0 immer noch soetwas randähnliches zu sehen?
Geht das irgendwie weg?
Diesen Pseudoscrollbalken hätte ich eigentlich auch ganz gern nur bei Bedarf.
Axo ... es MUSS mit object passieren !!
(iframe ect. geht prima, kann ich aber nicht benutzen)
Bsp.:
http://www.indexstand.de/test3a.html
Die folgende Nachricht zum Thema stammt von: jürgen j., 30. 06. 2003, 12:47
Hallo!
»» Warum sehe ich bei Mozilla garnix?
gute Frage, keine Ahnung, aber mit opera7 gehts.
»» Wieso ist bei border=0 immer noch soetwas randähnliches zu sehen?
»» Geht das irgendwie weg?
Das ist aber nur beim MSIE. Der geht weg, wenn Du in die eingebettete Datei body {border:0} schreibst.
»»
»» Diesen Pseudoscrollbalken hätte ich eigentlich auch ganz gern nur bei Bedarf.
Hast Dus mal mit overflow:hidden probiert? Ich denke, daß auch im Archiv die Lösung steht.
tschüs, jürgen
Die folgende Nachricht zum Thema stammt von: hotspot, 30. 06. 2003, 14:43
»» Hallo!
»» »» Warum sehe ich bei Mozilla garnix?
»» gute Frage, keine Ahnung, aber mit opera7 gehts.
»» »» Wieso ist bei border=0 immer noch soetwas randähnliches zu sehen?
»» »» Geht das irgendwie weg?
»» Das ist aber nur beim MSIE. Der geht weg, wenn Du in die eingebettete Datei body {border:0} schreibst.
In die *.pl Datei?
an welcher Stelle?
#!/usr/bin/perl
use LWP::UserAgent;
use LWP::Simple;
use CGI::Carp qw(fatalsToBrowser);
#####################################################################
# Grab'n'Paste 1.1
# distributed under the terms of the GNU General Public License (GPL)
# (c) 2001-2003 by Reiner SilberStein (add your name!)
# www.skriptoase.de
#####################################################################
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program (COPYING.TXT); if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#####################################################################
#
# Attention: Using this script might disturb someone else's copyrights.
# Not all of the sites you can copy are created for ;-)
# Read all the instructions before you post a question in one of our
# boards at sourceforge.net (english) or www.skriptoase.de (german).
# Visit our site to get latest infos!
#
# Achtung: Bei der Verwendung dieses Skriptes können unter Umständen die Urheberrechte
# Dritter verletzt werden. Nicht alles, was sich frei kopieren lässt, ist auch dafür
# gedacht ;-)
# Bevor Sie das Skript einsetzen und vor allem bevor Sie sich mit Fragen über unser
# Forum (www.skriptoase.de) an uns wenden, lesen Sie sich bitte Anleitung komplett
# durch. Besuchen Sie auch unsere Homepage, um eventuell neue Ergänzungen zu diesem
# Skript zu erhalten.
# Dieses Paket enthält nur eine Kurzanleitung für Fortgeschrittene.
# Ein ausführliches deutsches Handbuch steht auf unserer Internetseite
# als PDF-Datei zum Download bereit.
#
######################################################################
##############################################
# Configuration
# Take a look at readme.txt to config the file!
##############################################
$pathtemplate = "template/template.htm";
# Gruppe 0:
$beforegroup[0] = '';
$startstring[0] = '<html>';
$endstring[0] = '</html>';
$maxblocks[0] = 50;
$between[0] = '';
$aftergroup[0] = '';
#@filter1 = ("");
#@filter2 = ("Text", "Text");
#$urlscript = "http://localhost/cgi-bin/grabnpaste/grabnpaste.pl";
#$alternativedomain = "www.spacerforalternativedomain.de";
%replace = (
'' => ''
);
$printhtml = 1;
#$cache = "cache/cache.htm";
#$cacheoutput = 1;
#$cachetimeout = 3600;
#$usesimple = 1;
$useflock = 1;
##############################################
# !!! End of normal configuration !!!
##############################################
##############################################
# Change following configurations only if you are sure, what you are doing!
# HTML-Tags to complete with absolute links:
@urlref = ("BACKGROUND=", "HREF=", "SRC=", "ACTION=", "CODEBASE=");
# Possible protocols:
@protocol = ("HTTP://", "FTP://", "MAILTO:", "GOPHER://", "NEWS://", "WAIS://", "HTTPS://", "JAVASCRIPT:");
# Accepted filetypes, which will be grabbed into the own design by clicking on the link:
@filetypes = ("HTML", "HTM", "SHTM", "SHTML", "JHTML", "JSP", "PHP", "PHP3", "PHP4", "PHP5", "PHTML", "PL", "CGI", "ASP");
##############################################
# Parsing
if($ENV{'REQUEST_METHOD'} eq 'GET') {
$query = $ENV{'QUERY_STRING'};
}
elsif($ENV{'REQUEST_METHOD'} eq 'POST') {
binmode STDIN;
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
@pairs = split(/&/, $query);
foreach $pair (@pairs) {
($key, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$key} = $value;
}
if(($ENV{'REQUEST_METHOD'} eq 'POST') && !$form{'gnp_form-url'}) {
die "Content-type: text/html\n\nGnP: Method Post without URL. Check configuration and insert a gnp_form_url";
}
if ($form{'gnp_form-url'}) {
$sourceurl = $form{'gnp_form-url'};
}
else {
($sourceurl, @query) = split (/\?/, $query);
$query = join("",@query);
}
##############################################
# Searching for domain and path
@domain = split (/\//, $sourceurl);
$domain = $domain[0]."//".$domain[2]."/";
if (@domain > 4) {
$folder = join("/", @domain[3..(@domain-2)])."/";
}
##############################################
# File request
if ($cachetimeout && $cacheoutput) {
if (-e $cache) {
$cache_modtime = (stat $cache)[9];
}
if ($cache_modtime + $cachetimeout < time()) {
$file = getnewfile($sourceurl,$query);
}
}
else {
$file = getnewfile($sourceurl,$query);
}
if (!defined($file)) {
if ($cacheoutput && $printhtml) {
open(CACHE, "<$cache") || die "Content-type: text/html\n\nGnP: Read error at $cache!";
@file=<CACHE>;
close(CACHE);
$file = join("", @file);
$cache_age = time() - $cache_modtime;
print "Content-type: text/html\n\n";
print $file;
print "<!-- cache-age = $cache_age seconds -->";
exit;
}
elsif ($printhtml) {
print "Content-type: text/html\n\n";
print "GnP: Source is unreachable!\n\n";
exit;
}
else {
exit;
}
}
##############################################
# Loading template
if ($pathtemplate) {
open(TEMPLATE, "<$pathtemplate") || die "Content-type: text/html\n\nGnP: Read error at $pathtemplate!";
@template=<TEMPLATE>;
close(TEMPLATE);
@template = split (/<GRABBER>/, join("", @template));
}
##############################################
# Searching for blocks and filtering them (1)
$filemem = $file;
$file = "";
for ($j=0;$j<@startstring;$j++) {
if ($endstring[$j]) {
@parts = split (/$startstring[$j]/si, $filemem); # Delete attribut "i" to search case sensitive and "s" to detect newlines
if ($parts[1]) {$file = $file.$beforegroup[$j]}
$blockstart = 0;
for ($i=1;$i<@parts;$i++) {
$parts[$i] = $startstring[$j].$parts[$i];
($parts[$i], $trash) = split (/$endstring[$j]/si, $parts[$i]); # Delete attribut "i" to search case sensitive and "s" to detect newlines
$take = 1;
if (@filter1) {
foreach (@filter1) {
if ($parts[$i] =~ /$_/si) { # Delete attribut "i" to search case sensitive and "s" to detect newlines
$take = 0;
}
}
}
if ($take && $maxblocks[$j]) {
if ($blockstart) {$file = $file.$between[$j]}
$file = $file.$parts[$i].$endstring[$j];
$maxblocks[$j]--;
$blockstart = 1;
}
}
if ($parts[1]) {$file = $file.$aftergroup[$j]}
}
}
##############################################
# Filtering (2)
@file = split (/\n/, $file);
$file = "";
foreach $line (@file) {
$take = 1;
if (@filter2) {
foreach (@filter2) {
if ($line =~ /$_/si) {$take = 0} # Delete attribut "i" to search case sensitive and "s" to detect newlines
}
}
if ($take) {$file = $file.$line."\n"}
}
##############################################
# Completing URLs
if ($alternativedomain eq "") {$alternativedomain = "not defined"}
for ($i=0;$i<@urlref;$i++) {
$copy = uc($file);
$position = 1;
$oldpos = length($copy);
while ($position != -1) {
$position = rindex($copy,$urlref[$i],$oldpos);
$oldpos = $position - 1;
if ($position != -1) {
$position = $position + length($urlref[$i]);
$quotation = substr($copy,$position,1);
if (($quotation eq " ") || ($quotation eq "\"") || ($quotation eq "'")) {$position++}
$complete = 1;
foreach (@protocol) {
$protocol = substr($copy,$position,length($_));
if ($protocol eq $_) {$complete = 0}
}
if (substr($copy,$position,1) eq "#") {$complete = 0}
if ($complete && (substr($copy,$position,1) ne "/")) {substr($file,$position,0,$domain.$folder)}
elsif (substr($copy,$position,1) eq "/") {substr($file,$position,1,$domain)}
$file =~ s|\/[^/]*?\/\.\.\/|\/|;
#
if (($urlscript) && (($urlref[$i] eq "HREF=") || ($urlref[$i] eq "ACTION="))) {
$protocol = substr($file,$position,7);
$domainindex = index($file,"/",$position+7);
$filetypeindex = index($file,".",$domainindex)+1;
$urlend = index($file," ",$domainindex);
if ($urlend > $filetypeindex) {
$complete = 0;
foreach (@filetypes) {
$filetype = uc(substr($file,$filetypeindex,length($_)));
if ($filetype eq $_) {$complete = 1;}
}
if ((uc($protocol) eq "HTTP://") && ((uc(substr($file,$position,$domainindex-$position)) =~ uc($domain[2])) || (uc(substr($file,$position,$domainindex-$position)) =~ uc($alternativedomain))) && $complete) {
substr($file,$position,0,$urlscript."?")
}
}
}
}
}
}
##############################################
# Searching and replacing
foreach (keys(%replace)) {
$file =~ s/($_)/$replace{$_}/sig; # Delete attribut "i" to search case sensitive and "s" to detect newlines
}
##############################################
# Caching
$file = $template[0]."<!-- Grab'n'Paste (www.skriptoase.de) -->\n".$file."\n<!-- Grab'n'Paste -- End -->\n".$template[1];
if ($cache) {
open(CACHE, ">$cache") || die "Content-type: text/html\n\nGnP: Write error at $cache!";
flock(CACHE, 1) unless (!$useflock);
print CACHE $file;
flock(CACHE, 8) unless (!$useflock);
close(CACHE);
$cachestatus = "<!-- GnP: Caching was o.k.! -->";
}
##############################################
# Printing HTML
print "Content-type: text/html\n\n";
if ($printhtml) {
print $file;
}
print $cachestatus;
exit;
##############################################
# Subroutines
sub getnewfile {
my $sourceurl = shift;
my $query = shift;
if ($usesimple) {
if ($query) {$sourceurl = $sourceurl."?".$query}
return get($sourceurl);
}
else {
my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request POST => $sourceurl;
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $res = $ua->request($req);
if ($res->is_success) {
return $res->content;
}
else {
return;
}
}
}
»» »»
»» »» Diesen Pseudoscrollbalken hätte ich eigentlich auch ganz gern nur bei Bedarf.
»» Hast Dus mal mit overflow:hidden probiert? Ich denke, daß auch im Archiv die Lösung steht.
Als css des objects? werde ich mal machen.
»»
»» tschüs, jürgen
Besten Dank!
Die folgende Nachricht zum Thema stammt von: Siechfred, 30. 06. 2003, 14:55
Hallöle,
»» »» Das ist aber nur beim MSIE. Der geht weg, wenn Du in die eingebettete Datei body {border:0} schreibst.
»» In die *.pl Datei?
»» an welcher Stelle?
»» [...]
»» $pathtemplate = "template/template.htm";
Wahrscheinlich und vermutlich in deine Vorlage namens template.htm.
Viele Grüße
Torsten
--
Dieses Posting kommt ohne Garantie auf Vollständigkeit, Richtigkeit und Funktionalität. Geposteter Quelltext ist, soweit nicht anders angegeben, ungetestet.
ss:| zu:) ls:] fo:) de:[ va:| ch:? sh:( n4:~ rl:? br:> js:| ie:% fl:( mo:)
Die folgende Nachricht zum Thema stammt von: hotspot, 01. 07. 2003, 08:46
»» Hallöle,
»»
»» »» »» Das ist aber nur beim MSIE. Der geht weg, wenn Du in die eingebettete Datei body {border:0} schreibst.
»» »» In die *.pl Datei?
»» »» an welcher Stelle?
»» »» [...]
»» »» $pathtemplate = "template/template.htm";
»»
»» Wahrscheinlich und vermutlich in deine Vorlage namens template.htm.
»»
»» Viele Grüße
»» Torsten
»»
Als css?
Die folgende Nachricht zum Thema stammt von: wahsaga, 01. 07. 2003, 11:57
hi,
»» »» »» »» Das ist aber nur beim MSIE. Der geht weg, wenn Du in die eingebettete Datei body {border:0} schreibst.
»» »» Wahrscheinlich und vermutlich in deine Vorlage namens template.htm.
»» Als css?
wonach sieht body {border:0} denn aus?
(tipp: nein, html ist es nicht.)
gruss,
wahsaga
© 1998-2006 
Impressum, Software: Classic Forum
(HTML)