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