[BACK]Return to OpenBSDTorrents.pm CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents / lib

Diff for /openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm between version 1.7 and 1.8

version 1.7, 2005/03/28 23:04:42 version 1.8, 2005/05/20 19:36:34
Line 11 
Line 11 
 our $VERSION = '0.01';  our $VERSION = '0.01';
   
 our @EXPORT = qw(  our @EXPORT = qw(
         $BaseDir          $OBT
         $HomeDir  
         $TorrentDir  
         $BaseName  
         $Tracker  
         &Name_Torrent          &Name_Torrent
         &Get_Files_and_Dirs          &Get_Files_and_Dirs
         &justme          &justme
 );  );
   
 our $BaseDir    = '/home/ftp/pub';  
 our $HomeDir    = '/home/OpenBSDTorrents';  
 our $TorrentDir = '/home/torrentsync/torrents';  
 our $BaseName   = 'OpenBSD';  
 our $Tracker    = 'http://OpenBSD.somedomain.net/announce.php';  
   
 # These are regexes that tell what files to skip;  my $config_file = '/etc/OpenBSDTorrents.conf';
 our $SkipDirs  = qr/\/patches$/;  our $OBT = Config();
 our $SkipFiles = qr/^\./;  
   
   sub Config
   {
           my %config;
           open FILE, $config_file or die "Couldn't open FILE $config_file: $!";
           while (<FILE>) {
                   chomp;
                   s/#.*$//;
                   s/\s+$//;
                   next unless $_;
                   my ($name, $val) = split /=/, $_, 2;
                   $name =~ s/^OBT_//;
                   # This should really look for contents that are a
                   # bit safer, but I can't think of what would work here.
                   if ($val =~ /^(.*)$/) {
                           $config{$name} = $1;
                   }
           }
           close FILE;
           return \%config;
   }
   
 sub Name_Torrent  sub Name_Torrent
 {  {
Line 64 
Line 73 
                 push(@files, $item) unless exists $dirs{$item};                  push(@files, $item) unless exists $dirs{$item};
         }          }
   
         @dirs  = grep { ! /$SkipDirs/  } @dirs  if $SkipDirs;          @dirs  = grep { ! /$OBT->{SKIP_DIRS}/  } @dirs
         @files = grep { ! /$SkipFiles/ } @files if $SkipFiles;                  if $OBT->{SKIPDIRS};
           @files = grep { ! /$OBT->{SKIP_FILES}/ } @files
                   if $OBT->{SKIP_FILES};
   
         return \@dirs, \@files;          return \@dirs, \@files;
 }  }
Line 94 
Line 105 
                 die "Couldn't figure out myname";                  die "Couldn't figure out myname";
         }          }
   
         my $SEMA = "$HomeDir/run/$myname.pid";          my $SEMA = $OBT->{DIR_HOME} . "/run/$myname.pid";
         if (open SEMA, "<", $SEMA) {          if (open SEMA, "<", $SEMA) {
                 my $pid = <SEMA>;                  my $pid = <SEMA>;
                 if (defined $pid) {                  if (defined $pid) {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>