version 1.10, 2006/07/24 19:03:53 |
version 1.11, 2007/02/07 23:09:05 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$RedRiver: NewTorrents.pl,v 1.9 2006/05/15 18:47:04 andrew Exp $ |
#$RedRiver: NewTorrents.pl,v 1.10 2006/07/24 18:03:53 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
|
|
%ENV = (); |
%ENV = (); |
|
|
use YAML; |
|
|
|
|
|
my $last_dir = ''; |
my $last_dir = ''; |
while (<>) { |
while (<>) { |
|
print; |
chomp; |
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 if $message eq 'Making directory'; |
|
next unless $xfer; |
|
|
my $dir = ''; |
my $dir = ''; |
if ($file =~ m#^(.*)/([^/]+)#) { |
if ($file =~ m#^(.*)/([^/]+)#) { |