]>
Commit | Line | Data |
---|---|---|
1 | --- automsn-1.1.2/automsn 2006-03-21 21:29:41.000000000 +0200 | |
2 | +++ /tmp/automsn 2006-03-21 21:29:23.000000000 +0200 | |
3 | @@ -6,6 +6,8 @@ | |
4 | use strict; | |
5 | use IO::Socket; | |
6 | ||
7 | +$| = 1; | |
8 | + | |
9 | print <<END; | |
10 | $APP | |
11 | $AUTH | |
12 | @@ -14,18 +16,20 @@ | |
13 | and sets them up for use in e.g. Kopete. | |
14 | END | |
15 | ||
16 | +my $destdir = shift || ''; | |
17 | my $ch = ''; | |
18 | -print "Proceed? [Y/N] "; | |
19 | -do { | |
20 | - chomp ($ch = <>); | |
21 | - $ch = lc($ch); | |
22 | -} while($ch !~ /^[yn]$/); | |
23 | +if (-t STDIN) { | |
24 | + print "Proceed? [Y/N] "; | |
25 | + do { | |
26 | + chomp ($ch = <>); | |
27 | + $ch = lc($ch); | |
28 | + } while($ch !~ /^[yn]$/); | |
29 | ||
30 | -if($ch ne 'y') { | |
31 | - exit; | |
32 | + if ($ch ne 'y') { | |
33 | + exit; | |
34 | + } | |
35 | } | |
36 | ||
37 | -my $destdir = shift || ''; | |
38 | my $default = "/share/emoticons/AutoMSN"; | |
39 | my $default33 = "/share/apps/kopete/pics/emoticons/AutoMSN"; | |
40 |