Leser: 1
|< 1 2 >| | 12 Einträge, 2 Seiten |
1
2
3
4
5
6
7
sub fileparse {
my($fullname,@suffices) = @_;
unless (defined $fullname) {
require Carp;
Carp::croak("fileparse(): need a valid pathname");
}
Quotehabe ich noch nix gehört. Hab auch bei mir im gesamten Webspace keine gefunden bzw. programmiert.lib/File/Basename.pm
1
2
3
4
5
use File::Basename;
# Script Pfad
$script_path = dirname($ENV{'/is/htdocs/66644/www.webserver.neugebaueronline.de/cgi-bin/gbserver'});
# Pfad zu den Sources-CGI
$source_cgi_path = $script_path . "/sources";
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use CGI::Carp "fatalsToBrowser";
use Time::Local;
require "config.cgi";
require "texte.cgi";
require "$source_cgi_path/subs.pl";
$ENV{'/is/htdocs/66644/www.webserver.neugebaueronline.de/cgi-bin/gbserver'}
QuoteDer absolute Pfad Ihres WebPacks lautet: /is/htdocs/[Kundennummer]/www.[Domain]/
|< 1 2 >| | 12 Einträge, 2 Seiten |