|| applet test-privilege.curl
|| maintained by sadman
|| A simple applet that performs a  test for privilege.
|| 
|| Distributed under the New BSD License:
|#
  Copyright (c) 2006, Steve Adams
  All rights reserved.

  Redistribution and use in source and binary forms, with or without modification, are permitted 
  provided that the following conditions are met:

    * Redistributions of source code must retain the above copyright notice, this list of conditions 
      and the following disclaimer.
    * Redistributions in binary form must reproduce the above copyright notice, this list of conditions 
      and the following disclaimer in the documentation and/or other materials provided with the distribution.
    * Neither the name of curlr nor the names of its contributors may be used to endorse or promote products 
      derived from this software without specific prior written permission.

  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED 
  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
  PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY 
  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 
  EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#|
{curl 4.0, 5.0 applet}
{curl-file-attributes character-encoding = "utf8"}
     
{try
    {if {process-privileged?} then
        {TextFlowBox width = 12cm, background = "#ccffcc", margin = 5pt,
            {title This applet has been granted privilege.},
            {paragraph Thank you for trusting my applications},
            {paragraph It looks like you have granted privilege to this site, 
                so you will probably be able to run other Curl applications from here.
            }
        }
     else
        {TextFlowBox width = 14cm, background = "#ffcccc", margin = 5pt,
            {title This applet has NOT been granted privilege.},
            {paragraph Sadly, you haven't granted privilege to this application so
                you cannot experience the joys of running it.
            },            
            {paragraph Worse than that, you probably can't
                run some other applications from this site either. On the plus side, the Curl RTE is
                now running, so
                you can use the control panel to change the situation for the better.
            },
            {Frame margin = 20pt,
                {TextFlowBox background = "#ccccff", margin = 5pt,
                    {paragraph To trust applications you get from this site please follow these instructions:
                        {enumerate
                            {item Open the Curl control panel; e.g. from Windows use the Start menu, find Curl RTE, the Surge Control Panel.}
                            {item Click on the {bold Security Options} tab}
                            {item Click on the button {bold Add Host ...}}
                            {item type {monospace {bold www.curlr.org}} in the form, and click {bold OK}}
                            {item {bold Close} the control panel.}
                            {item That's it.}
                        }
                        If you want to know more about security, click on the {bold Help} button in the control panel.
                    }
                }
            }
        }
    }

 catch e:Exception do
    {TextFlowBox width = 10cm, background = "pink",
        {title Disappointed!},
        {paragraph Something very unexpected just happened. Here's a little extra information
            that may help you understand what that might have been.
        },
        {value e.message}
    }
}