move create_user to perl API
[cloudstore.git] / torrent / mktorrent.sh
1 #!/bin/sh -e
2
3 cd /rsync1/s1
4
5
6 test -d torrent/md5 || mkdir torrent/md5
7
8 torrent="torrent/md5/$1.torrent"
9 file="md5/$1"
10
11 if [ ! -f $file ] ; then
12         echo "usage: $0 md5"
13         exit 1
14 fi
15
16 if [ ! -e $torrent ] ; then
17
18 eval export `grep s1 /var/lib/extrausers/group | cut -d: -f4`
19
20 # -p prevents sharing between clients
21 mktorrent --announce http://$tracker_ip:$tracker_port/announce --no-date --verbose --output $torrent $file
22
23 fi
24
25 test -d torrent/seed || mkdir torrent/seed
26 test -d torrent/download || mkdir torrent/download
27 # start seeding
28 ln -fv `pwd`/$file torrent/download/
29 ln -sfv `pwd`/$torrent torrent/seed/
30