Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Phone Calls

by Neozuki (Initiate)
on Nov 23, 2001 at 18:05 UTC ( #127110=perlquestion: print w/replies, xml ) Need Help??

Neozuki has asked for the wisdom of the Perl Monks concerning the following question:

Excuse my ignorance, but I have just been struck with an idea. Is there any way (using perl) to connect with my modem, get it to call somebody's telephone, and then hang up when they pick up? If so, can I have any information you may have on how to do this, what modules to use, etc.

Replies are listed 'Best First'.
Re: Phone Calls
by arhuman (Vicar) on Nov 23, 2001 at 18:11 UTC
    Is Modem::Vgetty what you're looking for ?

    "Only Bad Coders Code Badly In Perl" (OBC2BIP)
Re: Phone Calls
by George_Sherston (Vicar) on Nov 23, 2001 at 19:32 UTC
    I know exactly how to do this, but it's a bit complicated. /msg me your 'phone number and I'll talk you through it.

    George Sherston
      If it's complicated, it may be interesting to produce a tutorial.
      You might then teach not only neozoki, but also all the interested monks...


      "Only Bad Coders Code Badly In Perl" (OBC2BIP)

        It may be the negative part of me talking here, but I have the impresion that George_Sherston had the idea to write the script and then let it call Neozuki.

        Repeatedly... Once every X minutes. For n days...

        But then again, it must be me having very bad thoughts about George_Sherston. Sorry, George. Won't happen again. :-)

        f--k the world!!!!
        /dev/world has reached maximal mount count, check forced.

        Much as I wd like to claim the high-minded motivations that arhuman attributes to me... I fear I must acknowledge that Biker's got my number (figuratively, I hasten to add) ;)

        George Sherston
Re: Phone Calls
by rob_au (Abbot) on Nov 23, 2001 at 19:18 UTC
    An alternate method for communicating with serial port devices would be through the use of Device::SerialPort for *nix-based systems (through the termios library) or Win32::SerialPort for windows-based systems.


    Ooohhh, Rob no beer function well without!

Re: Phone Calls
by boo_radley (Parson) on Nov 23, 2001 at 19:30 UTC
    Is there any way (using perl) to connect with my modem, 
    get it to call somebody's telephone, and then 
    hang up when they pick up?
    What the hell do you want to do this for?
    Update : Thanks, neophyte!
      Thank *god* telemarketeers are dumb and will never understand the stuff geek perl coders write!
Re: Phone Calls
by kschwab (Vicar) on Nov 23, 2001 at 20:18 UTC
    My answer doesn't have much to do with perl, but there is a tool that does well with this sort of thing.

    Kermit is a general purpose modem/file transfer/communications tool.

    I noticed a kermit script called callstats that you could cut and paste from.

Re: Phone Calls
by nlafferty (Scribe) on Nov 24, 2001 at 07:56 UTC
    There is something called a "War Dialer". Most of you have probably heard of this type or program. There is probably even a few written in perl. Some will tell you if a modem, fax, human, or answering machine picked up. If you are motivated enough, just search for one. They are available.
Re: Phone Calls
by mitd (Curate) on Nov 24, 2001 at 10:22 UTC
    I think what our friend Neozuki really means is he needs a script to dial a number and hang up if her father answers.

    mitd-Made in the Dark
    'Interactive! Paper tape is interactive!
    If you don't believe me I can show you my paper cut scars!'

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://127110]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2022-06-27 11:47 GMT
Find Nodes?
    Voting Booth?
    My most frequent journeys are powered by:

    Results (88 votes). Check out past polls.