-- DialANumber v0.1  © Oct 2007 by skeeve (dial.number.skeeve et xoxy dot net)

-- ::::::::::::::::::::::::::::::::::::::::  hohabadu.de  ::::::::::::::::::::::::::::::::::::::::

using terms from application "Address Book"
   
   on action property
      return "phone"
   end action property
   
   on should enable action for aPerson with phoneNumber
      return true
   end should enable action
   
   on action title for aPerson with phoneNumber
      return "mit Modem wählen"
   end action title
   
   on perform action for aPerson with phoneNumber
      set phone_chars to the value of phoneNumber
      launch application "DialANumber"
      call(phone_chars) of application "DialANumber"
   end perform action
   
end using terms from

---

 Im Scripteditor öffnen

-- DialANumber v0.1     © Oct 2007 by skeeve (dial.number.skeeve et xoxy dot net)

-- ::::::::::::::::::::::::::::::::::::::::  hohabadu.de  ::::::::::::::::::::::::::::::::::::::::

property version : "Dial a Number V0.1"

property replacements : {¬
   {search:"(0)", replace:"", at_start:false}, ¬
   {search:"+", replace:"00", at_start:true}, ¬
   {search:"0049", replace:"0", at_start:true}, ¬
   {search:"030", replace:"", at_start:true} ¬
      } --
property allowed_chars : characters of "(+0123456789)"

on run
   set possible_number to strip_number(the clipboard as text, true)
   set possible_number to the text returned of (display dialog "Welche Nummer anrufen?" with title version default answer possible_number)
   if possible_number is not "" then call(possible_number)
end run

on call(phone_number)
   activate me
   set phone_num to strip_number(phone_number, false)
   
   repeat with repl in replacements
      if at_start of repl is false then
         if phone_num contains search of repl then
            set {oastid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, search of repl}
            set phone_num to text items of phone_num
            set AppleScript's text item delimiters to replace of repl
            set phone_num to phone_num as string
            set AppleScript's text item delimiters to oastid
         end if
      else if phone_num starts with search of repl then
         set phone_num to (replace of repl) & text (1 + (length of search of repl)) thru -1 of phone_num
      end if
   end repeat
   repeat
      set pid to dial(phone_num)
      set taste to the button returned of (display dialog "Wählt " & phone_num & return & return & "Bitte den Hörer abheben und (Verbunden) anklicken, wenn die Verbindung hergestellt ist." with title version buttons {"Auflegen", "Neu wählen", "Verbunden"} default button "Verbunden")
      if taste is "Auflegen" then
         do shell script "kill -9 " & pid
         exit repeat
      end if
      if taste is "Verbunden" then
         do shell script "kill -9 " & pid
         exit repeat
      end if
      do shell script "kill -9 " & pid
   end repeat
end call

to strip_number(some_text, keep_space)
   set phone_num to ""
   set gap to ""
   repeat with c in every character of some_text
      if c is in allowed_chars then
         set phone_num to phone_num & gap & c
         set gap to ""
      else if keep_space and (ASCII number of c) is in {9, 32} and phone_num is not "" then
         set gap to " "
      end if
   end repeat
   return phone_num
end strip_number

on dial(phone_number)
   return do shell script "perl <<-''
#!/usr/bin/perl
use strict;
use warnings;
my $pid=fork();
print 'ERROR' and exit unless defined $pid;
$SIG{CHLD}= 'IGNORE';
print $pid and exit if $pid;
close STDOUT;
close STDERR;
#
my $number= <DATA>;
$number=~ tr/\\015\\012//d;
#
# DEVICE
my $dev  = qq(/dev/cu.modem);
my $baud = 19200;
my $timeout = 3.0;
#
my $CRLF= qq(\\015\\012);
my $OK= 'OK';
my $END= qr/^(OK|NO DIALTONE|NO CARRIER|BUSY|ERROR)$CRLF$/m;
$|=1;
#
open my $tty, '+<', $dev or die qq(Can't access $dev: $!\\n);
system(qq(stty $baud raw clocal mdmbuf -hupcl -echo < $dev));
#
my $ret= modem_send($tty, 'ATZ' . $CRLF);
die $ret if defined $ret;
#
$ret= modem_send($tty, 'ATS11=120' . $CRLF);
die $ret if defined $ret;
#
foreach (split /(?<=;)/, $number) {
   $ret= modem_send($tty, 'ATDTW'. $_ . $CRLF);
}
die $ret if defined $ret;
#
close $tty;
#
sub modem_send {
   my ($tty, $text)= @_;
   my $buf='';
   my $c;
   my $rout;
   my $rin= 0;
   my $rtty= 0;
   vec($rin, fileno($tty),   1) = 1;
   $rtty= unpack('%32C*', $rin);
   #
   while (1) {
      if ($text) {
         syswrite($tty, $text, 1);
         substr($text,0,1)= '';
      }
      select($rout=$rin, undef, undef, $timeout);
      if ( unpack('%32C*', $rout) & $rtty ) {
         sysread($tty, $c, 1);
         $buf.= $c;
      }
      if ($buf=~ $END and not $text) {
         return undef if $1 eq $OK;
         return $buf;
      }
   }
}
__DATA__" & (ASCII character 10) & phone_number
end dial

---

 Im Scripteditor öffnen