- converted to UTF-8

[packages/automsn.git] / automsn.patch

--- automsn-1.1.2/automsn	2006-03-21 21:29:41.000000000 +0200
+++ /tmp/automsn	2006-03-21 21:29:23.000000000 +0200
@@ -6,6 +6,8 @@
 use strict;
 use IO::Socket;
 
+$| = 1;
+
 print <<END;
 $APP
 $AUTH
@@ -14,18 +16,20 @@
 and sets them up for use in e.g. Kopete.
 END
 
+my $destdir = shift || '';
 my $ch = '';
-print "Proceed? [Y/N] ";
-do {
-	chomp ($ch = <>);
-	$ch = lc($ch);
-} while($ch !~ /^[yn]$/);
+if (-t STDIN) {
+	print "Proceed? [Y/N] ";
+	do {
+		chomp ($ch = <>);
+		$ch = lc($ch);
+	} while($ch !~ /^[yn]$/);
 
-if($ch ne 'y') {
-	exit;
+	if ($ch ne 'y') {
+		exit;
+	}
 }
 
-my $destdir = shift || '';
 my $default = "/share/emoticons/AutoMSN";
 my $default33 = "/share/apps/kopete/pics/emoticons/AutoMSN";