openbsd/OpenBSDTorrents/NewTorrents.pl - diff

Return to NewTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.10, 2006/07/24 19:03:53

version 1.12, 2007/10/01 21:17:23

Line 1

#!/usr/bin/perl -T

#$RedRiver: NewTorrents.pl,v 1.9 2006/05/15 18:47:04 andrew Exp $

#$RedRiver: NewTorrents.pl,v 1.11 2007/02/07 23:09:05 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 15

%ENV = ();

use YAML;

my $last_dir = '';

while (<>) {

print;

chomp;

print $_, "\n";

if (my ($message, $file, $xfer, $size) =

if (my ($message, $file) = m#(.*)\s+\`([^']+)'#) {

m#(.*)\s+\`([^']+)'\s+(\d+)\s+(\d+)#) {

next if $message eq 'Making directory';

next unless $xfer;

my $dir = '';

if ($file =~ m#^(.*)/([^/]+)#) {

Line 58

Line 57

{

my $dir = shift;

return undef unless $dir;

$dir =~ s/^.*$OBT->{BASENAME}\///;

my $should_fork = 1;