Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]966[/thread]

apache error_log



<< >> 5 Einträge, 1 Seite
faby71
 2007-07-18 19:19
#386 #386
User since
2007-07-16
3 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich bin hier neue und ich hoffe auf Hilfe.Hier zu meine Frage:
Wie kann man die Apache error_log Datei in Browser anzeigen anstatt jedesmal die Datei zu öffnen ? (ich das Möglich?)

Ich benutzer immer sowas:
Code: (dl )
1
2
use strict;
use CGI::Carp qw(fatalsToBrowser);


Danke

Faby
Windows XP
Apache 2.0.49
Perl V5.8.8
renee
 2007-07-18 21:07
#387 #387
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wenn es einfach nur um's Anzeigen geht:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
print $cgi->header( 'text/plain' );

my $error_log = '/path/to/error_log';
open my $fh, '<', $error_log or die $!;
while( <$fh> ){
    print;
}
close $fh;


Wenn es nicht das ist was Du willst, musst Du Deine Frage etwas mehr erläutern...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
faby71
 2007-07-18 23:04
#388 #388
User since
2007-07-16
3 Artikel
BenutzerIn
[default_avatar]
Hi Renee,

vielen Dank für deine Antwort

Ich glaube dein Code geht in der Richtung aber, wenn ich bei:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();

$cgi=new CGI();
print $cgi->header( 'text/plain' );

my $error_log = 'C:\Apache2\logs\error.log';
open my $fh, '<', $error_log or die $!;
while( <$fh> ){
    print;
}
close $fh;


eingebe er liest mir den ganze error.log, wie kann man der Code änder das er nur die zeile von heute liest ?

[Wed Jul 18 20:57:46 2007] [error] [client 127.0.0.1]

d.H liest nur die error.log von Wed Jul 18 zumindest..wenn ein Fehler auftritt..

danke,

Faby
Windows XP
Apache 2.0.49
Perl V5.8.8
renee
 2007-07-19 00:48
#389 #389
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
ungetestet
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();

$cgi=new CGI();
print $cgi->header( 'text/plain' );

my $error_log = 'C:\Apache2\logs\error.log';
my $date = localtime;
$date = substr $date,0,10;
open my $fh, '<', $error_log or die $!;
while( <$fh> ){
   print if /$date/;
}
close $fh;
\n\n

<!--EDIT|renee|1184791781-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
faby71
 2007-07-19 13:09
#390 #390
User since
2007-07-16
3 Artikel
BenutzerIn
[default_avatar]
renee,

auch ungetestet funktioniert super..

danke :)

Faby
Windows XP
Apache 2.0.49
Perl V5.8.8
<< >> 5 Einträge, 1 Seite



View all threads created 2007-07-18 19:19.