[MacPerl] # Use of uninitialized value. huh??

["Martin D." <martind@algonet.se>]

Hi,

I've got a script that grabs a thread from deja, converts it to an rnews
batch file and and then tells MacSOUP to import that file. It works, but I
get some error messages and I can't figure out why, I would be very
grateful if someone would like to enlighten me!

thanks in advance,
/Martin

# Use of uninitialized value.
File '...MacPerl Ÿ:site_perl:LWP:Protocol.pm'; Line 107
# Use of uninitialized value.
File '...MacPerl Ÿ:site_perl:LWP:Protocol.pm'; Line 82
# Use of uninitialized value.
File '...MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 52
# Use of uninitialized value.
File '...MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 53
# Use of uninitialized value.
File '...MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 54
# Use of uninitialized value.
File '...MacPerl Ÿ:site_perl:LWP:Protocol.pm'; Line 107
# Use of uninitialized value.
File '...MacPerl Ÿ:site_perl:LWP:Protocol.pm'; Line 82
# Use of uninitialized value.
File 'MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 52
# Use of uninitialized value.
File 'MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 53
# Use of uninitialized value.
File '...MacPerl Ÿ:my scripts:fetch entire thread.pl'; Line 54



#************************************************************************
#! perl -w
#
#Detta skriptet läser in ett Message-ID från urklipp, hämtar hela
#tråden det tillhör från deja news och konverterar dem till en rnews
#batch file som MacSOUP kan läsa.
#

use strict;
use LWP::Simple;
use URI::Escape;


package Darmouth;
MacPerl::LoadExternals("Clipboard.XFCN");
package main;

my ($macsoup, $mssetting,
   $svol, $msgid, $msg_file, $mid, $message, $view, $article, $len, @lines,
@links);

$svol = MacPerl::Volumes();
$svol = MacPerl::MakePath($svol);

$macsoup = "$svol"."internet:MacSOUP 2.4:MacSOUP";
$mssetting = "$svol"."internet:MacSOUP 2.4:MacSOUP databas:MacSOUP settings";

$msgid = "http://www.deja.com/=dnc/msgid.xp?ST=&MID=";
$msg_file = "$svol"."Desktop Folder:msg_file";

$mid = Darmouth::Clipboard();
$mid = uri_escape "$mid";

$message = get($msgid.$mid) or die "couldn't get $msgid$mid $!";
$message =~ s/\012/\n/gs;
$message =~ s/.+HREF=\"(.+viewthread\.xp\?[^"]+).+$/$1/s;

$view = get($message) or die "couldn't get $message $!";

@lines = split(/\012/,$view);

foreach my $line (@lines) {
    if ($line =~ /getdoc\.xp/){
		$line =~ s/\s+<a href=([^>]+).+$/$1/;
        $line = $line.'&fmt=raw';
        push(@links, $line);
    }
}

open(RNEWS, ">$msg_file") or die "couldn't create $msg_file $!";

foreach my $link (@links) {
    $article = get($link);                       #unhapppy lines
    $article =~ s/\012/\n/gs;                    #line 52
    $len = length $article;                      #line 53
    print RNEWS "#! rnews ".$len."\n".$article;  #line 54

}

close RNEWS;

&MacPerl::SetFileInfo("ALFA","TEXT",$msg_file);



MacPerl::DoAppleScript qq{
	tell application "$macsoup"
   		set thefile to "$mssetting"
	open thefile as alias
    	set thefile to "$msg_file"
	open thefile as alias
	end tell
};

MacPerl::Quit(3);  # stäng perl om det inte redan var öppet

#färdigt
#************************************************************************







# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org