head	1.4;
access;
symbols;
locks; strict;
comment	@# @;


1.4
date	2007.11.04.15.49.37;	author rse;	state dead;
branches;
next	1.3;
commitid	boWPpVfNPtlTZgEs;

1.3
date	2007.04.07.06.50.28;	author rse;	state Exp;
branches;
next	1.2;
commitid	CqboIivhprsrN6ds;

1.2
date	2007.02.25.11.44.13;	author rse;	state Exp;
branches;
next	1.1;
commitid	XuNEIfs8NUtVJR7s;

1.1
date	2007.02.25.10.31.13;	author rse;	state Exp;
branches;
next	;
commitid	VnT9w7EK4BQRkR7s;


desc
@@


1.4
log
@upgrading package: bitflu 0.33 -> 0.40
@
text
@Index: bitflu.pl
--- bitflu.pl.orig	2007-04-06 19:03:59 +0200
+++ bitflu.pl	2007-04-07 08:47:18 +0200
@@@@ -252,7 +252,7 @@@@
 $config->{SYS}->{kick_refreshpeers} = 0;
 $config->{SYS}->{kick_autoload}     = 0;  # ugly: used by other classes
 
-print Data::Dumper::Dumper($config->{client});
+#print Data::Dumper::Dumper($config->{client});
 
 # DHT:
 # should fork, secure_process() and launch DHT
@


1.3
log
@upstream author has taken over my bind patches
@
text
@@


1.2
log
@protect the bitflu interface with a default user and tell the user how to change the password
@
text
@d2 3
a4 20
--- bitflu.pl.orig	2007-02-24 12:26:16 +0100
+++ bitflu.pl	2007-02-25 12:42:50 +0100
@@@@ -188,6 +188,7 @@@@
 #Options with getopt support:
 # 1. prio: commandline switch , 2.nd: rcfile 3th: defaults
 $config->{client}->{port}   = $getopts{torrent} || $config->{client}->{port} || 6688;     # BitTorrent incoming port (UDP and TCP)
+$config->{client}->{bind}   ||= 0;
 
 $config->{client}->{telnet} = $getopts{telnet} if defined($getopts{telnet});
 $config->{client}->{telnet} = 4001 unless defined($config->{client}->{telnet});
@@@@ -225,7 +226,7 @@@@
 $config->{client}->{notifycompleted} = 0 unless defined($config->{client}->{notifycompleted}); #WALL about completed downloads
 
 # Lock Non-Runtime vars
-foreach (qw(rootdir downloaddir http httpbind port telnet telnetbind key peerid chroot runas_gid runas_uid userauth)) {
+foreach (qw(rootdir downloaddir http httpbind port bind telnet telnetbind key peerid chroot runas_gid runas_uid userauth)) {
 	$config->{client_locked}->{$_} = 1;
 }
 
@@@@ -245,7 +246,7 @@@@
a12 18
@@@@ -257,7 +258,7 @@@@
 l(L_WARN, "Bitflu ".BITFLU_VERSION." (build: ".BITFLU_BUILD.") starting ...");
 
 	my $torrent_handle = new IO::Select();	
-	my $torrent_socket  = IO::Socket::INET->new(LocalPort=>$config->{client}->{port},
+	my $torrent_socket  = IO::Socket::INET->new(LocalPort=>$config->{client}->{port}, LocalAddr=>$config->{client}->{bind},
 	                                           Proto=>'tcp', Listen=>1, ReuseAddr=>1) or die "$0 Unable to bind to $config->{client}->{port} : $!\n";
 	$torrent_handle->add($torrent_socket);
 
@@@@ -1166,7 +1167,7 @@@@
 							}
 							elsif($ACSTAT{$sock}->{AUTH_STATE} == TELNET_CLIENT_WAITFORUSER) {
 								$ACSTAT{$sock}->{GIVEN_USER} = substr($full_data,0,-2);
-								_xwA($sock, "# Password : ");
+								_xwA($sock, "# Password: ");
 								$ACSTAT{$sock}->{AUTH_STATE} = TELNET_CLIENT_WAITFORPASS;
 							}
 							elsif($ACSTAT{$sock}->{AUTH_STATE} == TELNET_CLIENT_WAITFORPASS) {
@


1.1
log
@new package: bitflu 0.32 (BitTorrent Daemon Client)
@
text
@d3 1
a3 1
+++ bitflu.pl	2007-02-25 11:17:05 +0100
d39 9
@