hotspot: Object ohne "Rahmen" und Scrollbalken!

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

  1. 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

    1. 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!

      1. 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:)
        1. 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?

          1. 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