|
|
|
| laziness, impatience, and hubris | |
| PerlMonks |
adamsj's scratchpadby adamsj (Hermit) |
| on Jun 02, 2004 at 04:49 UTC ( [id://359161]=scratchpad: print w/replies, xml ) | Need Help?? |
8d7 < use Win32::SAPI5; 22d20 < my $voice = Win32::SAPI5::SpVoice->new(); 96,98c94 < print "FOLDERS\n\t",join( "\n\t", $imap->folders ), "\n" if $debug; < voice("$user succesfully authenticated on $server port $port. ". < "Checking $imap_folder for incoming messages every $sleep seconds."); --- > print "FOLDERS\n\t",join( "\n\t", $imap->folders ), "\n"; 105,107d100 < # useful to print something in cmd.exe defaulting on codepage 850 < print "changing codepage..\n"; < system (1, 'chcp 1252'); 115d107 < voice("IMAP logout..\n"); 186d177 < voice("Larry wrote you!"); 202d192 < voice("New mail from perl.org"); 214,216c204,205 < else{ < voice( "Default rule. New message from: $from_name. Subject: $subj" ); < } --- > #else{ > #} 250,256d238 < < sub voice{ < my $txt = join ' ',@_; < $voice->Speak($txt); < print "VOICE: $txt\n"; < } < |
|