Cross-Platform Message Box

I needed a cross-platform message box for Windows and Mac. I tried wxperl because its native on the mac but their is a bug with their MessageBox code on the mac.

This is pretty simple code, but uses each O/S’s native message box API to display a dialog. If you have Yes/No buttons and click yes it will perform the item in action. Which for us opens a webpage. You only need a standard perl installation for this code.

<br /> #!perl</p> <p>$message = “My Popup Message”;</p> <p>#icons Types (stop, note, caution)<br /> $icon = ‘note’;</p> <p>#button types (ok, yesno)<br /> $buttons = ‘yesno’;</p> <p>#action<br /> $action = ‘http://www.google.com’;</p> <p>if ($^O eq “darwin”)<br /> {<br /> #mac<br /> &macPopup;<br /> }<br /> elsif($^O eq “MSWin32”)<br /> {<br /> #windows<br /> &winPopup;<br /> }<br /> else<br /> {<br /> print “Unknown OS”;<br /> exit;<br /> }</p> <p>sub winPopup<br /> {<br /> if($icon eq ‘stop’)<br /> {<br /> $ic = ’16’;<br /> }<br /> elsif($icon eq ‘note’)<br /> {<br /> $ic = ’32’;<br /> }<br /> elsif($icon eq ‘caution’)<br /> {<br /> $ic = ’48’;<br /> }</p> <p> if($buttons eq ‘ok’)<br /> {<br /> $bu = ‘0’;<br /> }<br /> elsif($buttons eq ‘yesno’)<br /> {<br /> $bu = ‘4’;<br /> }</p> <p> #work around because win32 is not on a mac, but the mac will throw an error<br /> eval{require Win32; };<br /> $result = Win32::MsgBox($message, $ic + $bu);</p> <p> if(($result == 6) && ($buttons eq ‘yesno’))<br /> { #do action<br /> system(‘start ‘ . $action);<br /> }<br /> }</p> <p>sub macPopup<br /> {</p> <p> if($icon eq ‘stop’)<br /> {<br /> $ic = ‘0’;<br /> }<br /> elsif($icon eq ‘note’)<br /> {<br /> $ic = ‘1’;<br /> }<br /> elsif($icon eq ‘caution’)<br /> {<br /> $ic = ‘2’;<br /> }</p> <p> if($buttons eq ‘ok’)<br /> {<br /> $bu = ‘{“OK”}’;<br /> }<br /> elsif($buttons eq ‘yesno’)<br /> {<br /> $bu = ‘{“YES”,”NO”}’;<br /> }</p> <p> #mac way<br /> $result = `/usr/bin/osascript <<-EOF tell application "System Events" activate display dialog "$message" buttons $bu with icon $ic end tell EOF`; chomp($result); if (($buttons eq 'yesno') && ($result eq 'button returned:YES')) { system('open ' . $action); } }