absolute url / complete url

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    absolute url / complete url

    Hallo!

    Ich habe die Version 0.95 bei Pytalhost hochgeladen. Wenn ich die Datei 'Settings.dat' anpassen will, muss ich doch folgendes anpassen:
    # absolute URL of your chat's HTML pages (with trailing '/')
    und
    # complete URL of the chat script, including chat.pl

    Ich weiss nicht was ich da genau einsetzen muss. Meine Adresse bei pytal lautet:
    shambala.pytalhost.com
    Wenn ich die Seite öffne, wird immer Error 403 angezeigt.

    LG

    Barbara

    urls und pfade

    bei derartigen dingen handelt es sich um grundwissen und einige fehler würden nicht auftreten, wenn man weiss, was eine url und ein pfad ist.

    grob erklärt:

    eine url ist nix andres als ein link, der angeklickt wird und die verlinkte datei ausführt.

    ein pfad ist die verzeichnisstruktur auf deinem webspace und der kann erheblich von anbieter zu anbieter variieren. diese wird verwendet, wenn scripte auf dateien zugreifen müssen und somit wissen müssen, in welchem verzeichnisordner sich die benötigte datei befindet.

    ausserdem wäre es ganz nett, dass wenn man schon probleme hat, im profil der link zum chat eingetragen wäre. aber ich habe auch schon gesehen, dass hier nach irgendwas gefragt wird und auf der seite dann schon ein ganz andrer chat als der gt-chat installiert war, der wahrscheinlich auch nicht funzte.

    jungs und mädels, so wird das nie was...


    aber hier ein kleines systeminfoscript für alle, das informationen ausliest.
    speichern als .cgi
    ------------------------------------------------------------------------



    #!/usr/bin/perl
    ################################################################
    # SysInfo v1.0 #
    # ©2000 thinkfactory #
    # thinkfactory.de #
    # Alle Rechte vorbehalten. #
    # SysInfo ist Freeware ! #
    ################################################################
    # 1. Script im ASCII-Modus in das cgi-bin Verzeichnis kopieren #
    # 2. chmod 755 vergeben #
    # 3. Per Browser aufrufen #
    ################################################################
    # Ab dieser Zeile nichts mehr ändern! #
    ################################################################
    $sendmail =`whereis sendmail`;$plocation =`whereis perl`;@perlloc = split(" ",$plocation);@mailloc = split(" ",$sendmail);$font = '<FONT FACE="Arial,Verdana,sans serif" SIZE=2>';&vars;print "Content-type: text/html\n\n";print qq~<HTML><HEAD><TITLE>$program $version</TITLE><STYLE type=text/css>A:link { COLOR: #000000; TEXT-DECORATION: none}A:visited { COLOR: #000000; TEXT-DECORATION: none}A:active { COLOR: #000000; TEXT-DECORATION: none}A:hover { COLOR: #FF0000; TEXT-DECORATION: underline}</STYLE></HEAD><br><body bgcolor="#B5E6FF" TOPMARGIN=0 LEFTMARGIN=0 RIGHTMARGIN=0><div align="center"><center><table border="0" width="85%" bgcolor="#0099CC" cellpadding="3"><tr><td width="100%"><p align="center"><b><font face="Arial,Verdana" size="3">$program</font></b><font face="Arial,Verdana" size="1"><br>v$version vom $release</font></td></tr></table></center></div><P><DIV ALIGN=CENTER><TABLE WIDTH=85% BGCOLOR=#FDB900 CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH bgcolor="$bgcolor">$font<FONT SIZE=2>Server Pfade</FONT></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=85%><TR><TD BGCOLOR="$bgcolor" WIDTH=35%>${font}<B>Perl:</B></TD><TD WIDTH=65% bgcolor="$brcolor">${font}$^X</TD></TR><TR><TD BGCOLOR="$bgcolor">${font}<B>Perl-Version:</B></TD><TD bgcolor="$brcolor">${font}$]</TD></TR> <TR><TD BGCOLOR="$bgcolor">${font}<B>Betriebssystem:</B></TD> <TD bgcolor="$brcolor">${font}$^O</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Perl befindet sich in:</B></TD><TD bgcolor="$brcolor">${font}~;foreach $loc(@perlloc){ print "$loc<BR>\n";} print qq~</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Sendmail:</B></TD> <TD bgcolor="$brcolor">${font}~;foreach $ml(@mailloc){ print "$ml<BR>\n";} print qq~</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font} <B>Verzeichnisse, die nach Perl durchsucht wurden</B></TD><TD bgcolor="$brcolor">$font~;foreach $item(@INC){ print "$item <BR>\n";} print qq~</TD></TR></TABLE><P><TABLE WIDTH=85% BGCOLOR=#FDB900 CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH bgcolor="#0099CC">$font<font size="2">Umgebungsvariablen</font></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=85%>~;foreach $fieldname(keys %ENV){ print qq~ <TR><TD BGCOLOR="$bgcolor" WIDTH=35%><B>${font}$fieldname</B></TD> <TD WIDTH=65% bgcolor="$brcolor">${font}$ENV{$fieldname}</TD></TR>~;} print qq~</TABLE><P><TABLE WIDTH=85% BGCOLOR=#FDB900 CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH bgcolor="#0099CC">$font<FONT SIZE=2>Installierte Module</FONT></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=85% bgcolor="$brcolor">~;find(\&wanted,@INC);$modcount = 0;foreach $line(@foundmods){ $match = lc($line); if ($found{$line}[0] >0) {$found{$line} = [$found{$line}[0]+1,$match]}else {$found{$line} = ["1",$match];$modcount++}}@foundmods = sort count keys(%found);sub count {return $found{$a}[1] cmp $found{$b}[1]}$third = $modcount/3;$count=0;print "<TR><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";foreach $mod(@foundmods){ chomp $mod; $count++; if ($count <= $third){ print qq~<TR><TD>${font}$mod</TD></TR>~;} else {push (@mod1,$mod)}}print "</TABLE></TD><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";$count = 0;foreach $mod1(@mod1){ chomp $mod1;$count++;if ($count <= $third){ print qq~<TR><TD>${font}$mod1</TD></TR>~;} else {push (@mod2,$mod1)}}print "</TABLE></TD><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";$count = 0;foreach $mod2(@mod2){ chomp $mod2;$count++; if ($count <= $third){ print qq~<TR><TD>${font}$mod2</TD></TR>~;}}print qq~</TABLE></TD></TR></TABLE><br><div align="center"><center><table border="0" width="85%" bgcolor="#0099CC" cellpadding="3"><tr><td width="100%"><p align="center"><font face="Arial,Verdana" size="2"></font></td></tr></table></center></div><br></BODY></HTML>~;exit;sub vars {$dev="thinkfactory";use File::Find;$bgcolor = "#0099CC";$brcolor = "#EEEEEE";$program="SysInfo";$release="28.03.2000";$version="1.0";}sub wanted { $count = 0;if ($File::Find::name =~ /\.pm$/){ open(MODFILE,$File::Find::name) || return;while(<MODFILE>){ if (/^ *package +(\S+);/){ push (@foundmods, $1);last; }}}}