Thread Von Perl 5.8.7 -> 5.8.8 upload funktioniert nicht mehr (38 answers)
Opened by Tom at 2007-12-06 02:28

Tom
 2007-12-12 02:49
#103750 #103750
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Also ich habe das ganze jetzt nochmal überprüft warum das nicht mehr geht, und habe die Stelle gefunden was das Script zum scheitern bringt, aber ich weiß nicht warum.

Wenn ich in dem o.g. Script bei "sub upload_datei" den Code "&header(0);" entferne dann funktioniert es.

"&header(0);" hat folgenden Code:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

sub header
{
my ($refrerr) = @_;

if ($refrerr eq 'admin')
{
require "../data/session.cgi";
$header = HTML::Template->new(filename => 'header.tmpl',
                                 path => ["$prog_lib/../templates/standard"]);
}
else
{
require "data/session.cgi";
$header = HTML::Template->new(filename => 'header.tmpl',
                                 path => ["$prog_lib/templates/standard"]);
}                                 

my $loggedin;
my $loggedinuser;
my $loggedinuserid;

my $cgi = new CGI;
$sid = $cgi->cookie('YAMBE_SESSID') || $cgi->param('sid');

$header->param(L_TITLE => $lang{title});
$header->param(L_REGISTER => $lang{Register});
$header->param(L_TODAY => $lang{Today});
$header->param(L_CALENDAR => $lang{Calendar});
$header->param(L_MONTHSUMMERY => $lang{Monthsummery});
$header->param(L_SEARCH => $lang{Search});
$header->param(ROOT_PATH => $root_path);

$header->param(U_REGISTER => &add_session($root_path . "/cgi-bin/yambe/register.cgi"));
$header->param(U_TODAY => &add_session($root_path . "/cgi-bin/yambe/event.cgi"));
$header->param(U_CALENDAR => &add_session($root_path . "/cgi-bin/yambe/kalender.cgi"));
$header->param(U_MONTHSUMMERY => &add_session($root_path . "/cgi-bin/yambe/monat.cgi"));
$header->param(U_SEARCH => &add_session($root_path . "/cgi-bin/yambe/search.cgi"));

if (defined ($sid))
{
($loggedin,$loggedinuser,$loggedinuserid) = &init;
}

if ($loggedin != 1)
{
    $header->param(USER_LOGGED_OUT => 1);
    $header->param(L_PROFILE_REGISTER => $lang{Profile_Register});
    $header->param(L_LOGIN => $lang{Login});
    
    $header->param(U_PROFILE_REGISTER => $root_path . "/cgi-bin/yambe/profile.cgi?action=register");
    $header->param(U_LOGIN => $root_path . "/cgi-bin/yambe/login.cgi");
}
else
{
    $header->param(USER_LOGGED_IN => 1);
    $header->param(L_LOGOUT => sprintf($lang{Logout},$loggedinuser));
    $header->param(L_PROFILE => $lang{Profil});
    
    $header->param(U_LOGOUT => $root_path . "/cgi-bin/yambe/login.cgi?action=logout");
    my $test = &add_session($root_path . "/cgi-bin/yambe/profile.cgi");
    $header->param(U_PROFILE =>  $test . "&action=edit&u=$loggedinuserid");
}    



print "Content-Type: text/html\n\n";
print $header->output;

}


Warum funktioniert das auf einmal nicht mehr?

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

View full thread Von Perl 5.8.7 -> 5.8.8 upload funktioniert nicht mehr