openbsd/OpenBSDTorrents/ServerTorrents.pl - diff

Return to ServerTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

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

version 1.24, 2007/11/02 03:36:01

Line 1

#!/usr/bin/perl -T

#$RedRiver: ServerTorrents.pl,v 1.22 2006/07/24 18:03:53 andrew Exp $

#$RedRiver: ServerTorrents.pl,v 1.23 2007/10/01 20:17:23 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 159

$comment =~ s/\n.*$//s;

my $filename =

$comment =~ /Files from (.+)/ ? $1

$comment =~ /($OBT->{BASENAME}.+)/ ? $1

: $file;

$filename =~ s#/# #g;

$filename =~ s/\.torrent\z//;