+sub add_url_to_java_exceptions {
+ my $url = shift || die;
+ my $file = "$ENV{HOME}/.java/deployment/security/exception.sites";
+ return unless -f ${file};
+ open my $fh, '+<', $file || die;
+ unless (grep{m#${url}#} <$fh>){
+ close $fh;
+ if (open my $fh, '>>', $file) {
+ print $fh "${url}\n";
+ close $fh;
+ }
+ } else {
+ close $fh;
+ }
+}
+