- converted to UTF-8
[packages/automsn.git] / automsn.patch
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  
This page took 0.050813 seconds and 3 git commands to generate.