my stupit script...

[Suzuki Yoshio]

Hi, you guyz!

I made a script that show /var/log/messages* when you press submit.
But!!! it doesn't come out to the last when the file size is upper
than the few MB.

Is that my mistake? or is that a kind of the bug?
Please let me know about it.
Thank you.

My server : RH7.1，thttpd，perl-5.6.0
--
Suzuki, Yoshio

=============================================
#!/usr/bin/perl -w

use strict;
use CGI;

my $q = CGI->new();
my @log;
my @list;
my %labels;

print
$q->header( -type => "text/html" ),
        $q->start_html;

if ( $q->param( "show" ) ) {
        open( LOG, $q->param( "check" ) );
        @log = <LOG>;
        close( LOG );
}

print
$q->start_form;

foreach ( @list = sort( </var/log/messages*> ) ) {
        $labels{ $_ } = $_;
}

print
$q->radio_group( -name => "check", -value => \@list,
        -labels => \%labels, -linebreak => "true" );

print
$q->br,
        $q->submit( -name => "show" ),
        $q->end_form,
        $q->hr;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]