Changing perl script bnews-fetch from by Carl Declerck

B

borniac

The problemm I have is that not al the post posted with yEnc are
retrieved with that script. Is there somebody that uses this and has
the same problem and can you help to change it.

This is the code in that perl script for look thing posted with yEnc up.

} elsif ($subject =~ /^(.*\s+yEnc)\s+"([^"]+)"\s+\((\d+)\/(\d+)\)/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+yEnc\s+\((\d+)\/(\d+)\)/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+\((\d+)\/(\d+)\).*yEnc/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+\d+\s+yEnc\s+bytes/) {

en this I have now.

} elsif ($subject =~ /^(.*\s+yEnc)\s+"([^"]+)"\s+\((\d+)\/(\d+)\)/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+yEnc\s+\((\d+)\/(\d+)\)/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+\((\d+)\/(\d+)\).*yEnc/
|| $subject =~ /^(.*)\s+"([^"]+)"\s+\d+\s+yEnc\s+bytes/
|| $subject =~ /^(.*)\s+([^"]+)\s+yEnc\s+\((\d+)\/(\d+)\)/
|| $subject =~ /^(.*\yEnc)\s+"([^"]+)"\s+\((\d+)\/(\d+)\)/) {


but still doesn't see everything

Thanks
Borniac
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,769
Messages
2,569,579
Members
45,053
Latest member
BrodieSola

Latest Threads

Top