===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm,v
retrieving revision 1.1
retrieving revision 1.7
diff -u -r1.1 -r1.7
--- openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm	2005/03/22 23:14:40	1.1
+++ openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm	2005/03/28 23:04:42	1.7
@@ -1,15 +1,121 @@
 package OpenBSDTorrents;
-
+#$Id: OpenBSDTorrents.pm,v 1.7 2005/03/28 23:04:42 andrew Exp $
 use 5.008005;
 use strict;
 use warnings;
 
-our @ISA = qw();
+require Exporter;
 
+our @ISA = qw(Exporter);
+
 our $VERSION = '0.01';
 
+our @EXPORT = qw(
+	$BaseDir
+	$HomeDir
+	$TorrentDir
+	$BaseName
+	$Tracker
+	&Name_Torrent
+	&Get_Files_and_Dirs
+	&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';
 
-# Preloaded methods go here.
+# These are regexes that tell what files to skip;
+our $SkipDirs  = qr/\/patches$/;
+our $SkipFiles = qr/^\./;
+
+
+sub Name_Torrent
+{
+	my $torrent = shift;
+
+	my $date = Torrent_Date();
+
+	$torrent =~ s/\W/_/g;
+	$torrent .= '-' . $date;
+	$torrent .= '.torrent';
+
+	return $torrent;
+}
+
+
+sub Get_Files_and_Dirs
+{
+	my $basedir = shift;
+	opendir DIR, $basedir or die "Couldn't opendir $basedir: $!";
+	my @contents = sort grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR;
+	closedir DIR;
+	my @dirs  = grep { -d "$basedir/$_" } @contents;
+
+	my %dirs; # lookup table
+	my @files;# answer
+
+	# build lookup table
+	@dirs{@dirs} = ();
+
+	foreach my $item (@contents) {
+    		push(@files, $item) unless exists $dirs{$item};
+	}
+
+	@dirs  = grep { ! /$SkipDirs/  } @dirs  if $SkipDirs;
+	@files = grep { ! /$SkipFiles/ } @files if $SkipFiles;
+
+	return \@dirs, \@files;
+}
+
+sub Torrent_Date
+{
+	my ($min, $hour, $mday, $mon, $year) = (gmtime)[1..5];
+	$mon++;
+	$year += 1900;
+	foreach ($min, $hour, $mday, $mon) {
+		if (length $_ == 1) {
+			$_ = '0' . $_;
+		}
+	}
+	return join '-', ($year, $mon, $mday, $hour . $min);
+}
+
+# "There can be only one."  --the Highlander
+sub justme {
+
+	my $myname;
+
+	if ($0 =~ m#([^/]+$)#) {
+		$myname = $1;
+	} else {
+		die "Couldn't figure out myname";
+	}
+
+	my $SEMA = "$HomeDir/run/$myname.pid";
+        if (open SEMA, "<", $SEMA) {
+                my $pid = <SEMA>;
+                if (defined $pid) {
+                        chomp $pid;
+			if ($pid =~ /^(\d+)$/) {
+				$pid = $1;
+			} else { 
+				die "invalid pid read '$pid'";
+			}
+                        if (kill(0, $pid)) {
+                              print "$0 already running (pid $pid), bailing out\n";
+                              exit 253;
+                        }
+                }
+                close SEMA;
+        }
+        open (SEMA, ">", $SEMA)      or die "can't write $SEMA: $!";
+        print SEMA "$$\n";
+        close(SEMA)                    or die "can't close $SEMA: $!";
+}
+
 
 1;
 __END__