Re: Re: Crontab error!

[Ozoz]

Here's the script. Thx! :)

#!/usr/bin/perl

# Environment Variables
use LWP::Simple; 
use CGI qw/:standard :netscape :html3/;

$sonuc="/home/usr254/html/sa/filmler/HeadLine.tlt";

&toplasa1;
exit;

sub toplasa1 {

$elle1= get("http://www.ntvmsnbc.com/news/FILM_front.asp"); 

# Oncesini sil
    $elle1=~ s/^.*<!---Insert_Tertiary_Stories--->//s; 
# Sonrasini sil
    $elle1=~ s/<!---END Insert_Tertiary_Stories--->.*$//s;  
# Gereksiz bosluklari kaldir
    $elle1=~ s/\s\s//g;
# Enterlari kaldir
    $elle1=~ s/\n//g;


# Returnleri tanimla
    $elle1=~ s/<TD WIDTH=13 VALIGN="TOP">/\n/g;
    $elle1=~ s/<!---spacing between headlines--->/\n\n/g;

    $elle1=~ s/&#0145;/'/g;
    $elle1=~ s/&#0146;/'/g;
    $elle1=~ s/&#0147;/"/g;
    $elle1=~ s/&#0148;/"/g;

# Butun tablari kaldir
    $elle1=~ s/<[^>]+>//g;

# Baaas
    
        open(PAGE,">$sonuc") || die("Error $! opening file");
        print PAGE $elle1; 
        close(PAGE);
        
}

[davorg]

Both LWP::Simple and CGI try to export a function called head and they have different prototypes. This can lead to badness - as you've seen.

However, you don't actually use either of these subroutines, so you just need to stop importing them (or, at least, one of them). Quickest fix is to change the use LWP::Simple line to:

use LWP::Simple 'get';

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

[dws]

Or change   use CGI qw/:standard :netscape :html3/; to   #use CGI qw/:standard :netscape :html3/; or remove that line entirely, since the script doesn't really use anything from CGI.pm

[Ozoz]

Thanks Dave! Though I still receieve an email, it's empty; just informing that the cronjob is done I think. No errors. thx :)

[Ozoz]

500 error.log for the script:

/home/usr254/html/sa/Global symbol "$sonuc" requires explicit package 
+name at ok-filmler.cgi line 8.

Global symbol "$elle1" requires explicit package name at ok-filmler.cg
+i line 15.

[davorg]

You'll need to predeclare both of these variables. This is a good thing and one of the best reasons for using use strict.

my $sonuc="/home/usr254/html/sa/filmler/HeadLine.tlt";

my $elle1= get("http://www.ntvmsnbc.com/news/FILM_front.asp");

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me