#!/usr/local/bin/perl -w

use strict;

my $url = shift;

die "usage: seeddir.pl http://cdimage.debian.org/debian-cd/current/i386/iso-dvd/\n" if not defined $url;

my $torrentdir = $url;
$torrentdir =~ s/iso-/bt-/;

print `lftp -c "mirror $torrentdir ."`;
print `lftp -c "mirror $url ."`;

print `screen -d -m btlaunchmanycurses --check_hashes 0 --upload_unit_size 32768 .`;
