Skip to content

Instantly share code, notes, and snippets.

@trapd00r

trapd00r/call.pl

Created April 23, 2011 04:28
Show Gist options
  • Save trapd00r/938282 to your computer and use it in GitHub Desktop.
Save trapd00r/938282 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
call.pl
#!/usr/bin/perl
my $number = shift;
if(!defined($number)) {
$number = '0739502574';
}
exec(
"dbus-send --system --type=method_call --print-reply --dest=com.nokia.csd.Call /com/nokia/csd/call com.nokia.csd.Call.CreateWith string:$number uint32:0"
);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment