#!/usr/bin/perl -w

use strict;
use warnings;

SAY("Hello World!!!");
exit;

# Usage: STATUS = SAY(TEXT, VOLUME) - Reads a text in computer voice on Windows computers (tested on Windows XP) Returns 1 if something was read or 0 if nothing was read
sub SAY
{
  @_ or return 0;
  my $TEXT = shift;
  defined $TEXT or return 0;
  length($TEXT) or return 0;
  my $VOLUME = @_ ? shift : 100;
  defined $VOLUME or $VOLUME = 100;
  length($VOLUME) or $VOLUME = 100;

  $TEXT =~ tr|\"| |;     # Remove all quotes
  print "\n\n$TEXT\n\n"; # For those who are deaf, it's important to also print the same message.

  my $TEMP_VBS_FILE = 'C:\\TEMP\\SAY.VBS';
  my $TEMPDIR = substr($TEMP_VBS_FILE, 0, rindex($TEMP_VBS_FILE, "\\") + 1);

  my $VB_SCRIPT = "IF Wscript.Arguments.length > 1 THEN\nSET VOICE = CreateObject(\"SAPI.SpVoice\")\nVOICE.Volume = Wscript.Arguments(0)\nVOICE.Speak Wscript.Arguments(1)\nELSE\nWscript.echo \"Usage: say.vbs <VOLUME> <TEXT>\"\nEND IF\n";
  unless (-f $TEMP_VBS_FILE && -s $TEMP_VBS_FILE == length($VB_SCRIPT))
  {
    mkdir $TEMPDIR;
    open(SCRIPTFILE, "> $TEMP_VBS_FILE") or return 0;
    print SCRIPTFILE $VB_SCRIPT;
    close SCRIPTFILE;
  }
  `$TEMP_VBS_FILE $VOLUME \"$TEXT\"`;
  #unlink $TEMP_VBS_FILE;
  #rmdir $TEMPDIR;
  return 1;
}