#!/usr/bin/perl -w

###############################
# 'cutstest.pl' (description: pings uk arts organisations' websites and reports)
# Copyright (C) 2008 Wayne Clements
#
# This program (but not the Script listed below, which is copyright of http://www.web-source.net) is free software: 
# you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# See <http://www.gnu.org/licenses/>. #
#
#
#  Wayne Clements, www.in-vacua.com. email:  invacua_at__btinternet[Do T]com
#
###############################

use strict;
use warnings;
use Net::Ping;
use CGI::Carp qw(fatalsToBrowser); 
use CGI qw(:all);
 use HTTP::Date;

            srand;


my %host = (

"www.access-space.org" => "Access Space", 
"www.acme.org.uk" => "Acme Studios", 
"www.actionspace.org" => "Action Space",
"www.afterall.org" => "Afterall",
"www.alchemyanew.co.uk" => "Alchemy Anew",
"www.a-n.co.uk" => "a-n",
"www.architecturecentre.net" => "Architecture Centre",
"www.arnolfini.org.uk" => "Arnolfini",
"www.artgene.co.uk" => "Art Gene",
"www.artmonthly.co.uk" => "Art Monthly",
"www.artangel.org.uk" => "Artangel",
"www.artlandish.org" => "Artlandish",
"www.spacestudios.org.uk" => "Art Services Grants", 
"www.artpointtrust.org.uk" => "Artpoint", 
"www.artsadmin.co.uk" => "Artsadmin", 
"www.artsway.org.uk" => "Artsway Trust", 
"www.aspex.org.uk" => "Aspex", 
"www.avfestival.co.uk" => "Audio Visual Arts", 
"www.axisweb.org" => "Axis", 
"www.b3media.net" => "B3 Media", 
"www.balticmill.com" => "Baltic Centre", 
"www.beaconsfield.ltd.uk" => "Beaconsfield", 
"www.beam.uk.net" => "Beam", 
"www.bedfordcreativearts.org.uk" => "Bedford Creative Arts",
"www.bluecoatdisplaycentre.com" => "Bluecoat Display Centre", 
"www.bookworks.org.uk" => "Book Works",
 "www.chinese-arts-centre.org" => "Chinese Arts Centre", 
"www.caa.org.uk" => "Contemporary Applied Arts", 
"www.craftscouncil.org.uk" => "Crafts Council", 
"www.craftspace.co.uk" => "Craftspace", 
"www.crescentarts.co.uk" => "Crescent Arts", 
"www.cubittartists.org.uk" => "Cubitt", 
"www.dasharts.org" => "Dash", 
"www.derbyquad.co.uk" => "Derby Quad", 
"www.designedandmade.co.uk" => "Designed & Made", 
"www.designermakerwm.co.uk" => "Designer Maker", 
"www.electra-productions.com" => "Electra Productions", 
"www.fourcornersfilm.co.uk" => "Four Corners", 
"www.fvu.co.uk" => "Film and Video Umbrella",
"www.filmlondon.org.uk" => "Film London",
"www.folly.co.uk" => "Folly",
"www.forma.org.uk" => "Forma",
"www.grizedale.org" => "Grizedale Arts",
"www.heartnsoul.co.uk" => "Heart n Soul",
"www.hepworthwakefield.com" => "Hepworth Wakefield",
"www.photofest.org" => "Hereford Photography Festival",
"www.ikon-gallery.co.uk" => "Ikon Gallery",
"www.iniva.org" => "INIVA",
"www.isisarts.org.uk" => "Isis Arts",
"www.londondesignfestival.com" => "London Design Festival",	
"www.kettlesyard.co.uk" => "Kettle's Yard Gallery",
"www.pva.org.uk" => "Labculture",
"www.lakelandartstrust.org.uk" => "Labculture",
"www.lighthouse.org.uk" => "Lighthouse Arts",
"www.thisisliveart.co.uk" => "Live Art",
"www.londonprintstudio.org.uk" => "London Print Studio",
"www.lovebytes.org.uk" => "Lovebytes",
"www.lumen.org.uk" => "Lumen",
"www.lux.org.uk" => "Lux",
"www.modernartoxford.org.uk" => "Modern Art Oxford",
"www.metamute.org" => "Mute",
"www.thenewartexchange.org.uk" => "New Art Exchange",
"www.thenewartgallerywalsall.org.uk" => "New Art Gallery Walsall",
"www.newcontemporaries.org.uk" => "New Contemporaries",
"www.northernprint.org.uk" => "Northern Print",
"www.nottinghamcontemporary.org" => "Nottingham Contemporary",
"www.broadway.org.uk" => "Nottingham Media Centre",
"www.onedotzero.com" => "onedotzero",
"www.openeyegallery.co.uk" => "Open Eye Gallery",
"www.pallant.org.uk" => "Pallant House Gallery",
"www.photonet.org.uk" => "Photographers' Gallery",	
"www.plymouthartscentre.org" => "Plymouth Arts Centre",
"www.proboscis.org.uk"  => "Proboscis",
"www.projectartworks.org" => "Project Art Works",
"www.quayarts.org"  => "Quay Arts Centre",
"www.redeye.org.uk" => "Redeye",
"www.asiatriennialmanchester.com"  => "Shisha",
"www.theshowroom.org" => "Showroom Gallery",
"www.artshub.co.uk"=> "Spacex",	
"www.spike-island.org.uk" => "Spike Island",	
"www.storeygallery.org.uk" => "Storey Gallery",	
"www.stourvalleyarts.org.uk" => "Stour Valley Arts",
"www.sva.org.uk" => "Stroud Valleys Artspace",
"www.trianglearts.org" => "Triangle Arts",
"www.vane.org.uk" => "Vane Contemporary Art",
"www.vaga.co.uk" => "Visual Arts And Galleries",
"www.vivid.org.uk" => "Vivid",
"www.walfordmillcrafts.co.uk" => "Walford Mill",
"www.waygood.org" => "Waygood Gallery & Studios",
"www.watershed.co.uk" => "Watershed Arts Trust",
"www.the-ropewalk.co.uk" => "Waterside Artists Co-Operative",
"www.wypw.org" => "West Yorkshire Print Workshop",
"www.whitechapelgallery.org" => "Whitechapel Gallery",
"www.wolverhamptonart.org.uk" => "Wolverhampton Arts",
"www.wysingartscentre.org" => "Wysing Arts Centre",
"www.artspace.org.uk" => "Yorkshire Artspace",

);


my $chosen; my $key; 

 my $n = 0;
 my($k, $v);

while(($k, $v) = each %host) {
    rand(++$n) < 1 and $chosen = $v, $key = $k;  ## 1 x random hash pair choice
}

      print "Content-type: text/html\n\n";

my $html2 = "<html>
<head>
<meta content=\"text/html; charset=ISO-8859-1\"
http-equiv=\"content-type\">
<title>cutstest</title>

<meta http-equiv=\"Expires\" content=\"0\">
  <meta http-equiv=\"Pragma\" content=\"no-cache\">
  <meta http-equiv=\"Cache-Control\" content=\"no-cache\">

<!--[if gte IE 6]>
<p>This does not work on Internet Explorer. Suggest use Mozilla. Other browsers untested.</p>
<![endif]-->
<!--[if lt IE 6]>
<p>This does not work on Internet Explorer. Suggest use Mozilla. Other browsers untested.</p>
<![endif]-->
<![if !IE]>


<script type=\"text/javascript\">

var limit=\"0:6\"

if (document.images){
var parselimit=limit.split(\":\")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{ 
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+\" minutes and \"+cursec+\" seconds left until page refresh\"
else
curtime=cursec+\" seconds\"
window.status=curtime
setTimeout(\"beginrefresh()\",1000)
}
}

window.onload=beginrefresh
//-->
</script> 



<script language=\"JavaScript1.2\">
<!-- Script courtesy of http://www.web-source.net - Your Guide to Professional Web Site Design and Development
function makevisible(cur,which){
strength=(which==0)? 1 : 0.2
if (cur.style.MozOpacity)
cur.style.MozOpacity=strength
else if (cur.filters)
cur.filters.alpha.opacity=strength*100
}
// -->
</script>
</head>


<body>
<table align=\"center\" border=\"1\" cellpadding=\"1\" cellspacing=\"1\"
height=\"450\" width=\"500\">

<tbody>
<tr>
</td>


<td Access Space style=\"opacity: 0.1;\" 
background=\"http://www.access-space.org/UI/img/access_aspace_dropshadow20.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Acme Studios style=\"opacity: 0.1;\" 
background=\"http://www.acme.org.uk/images/acme-masthead.png\"  

height=\"40\" width=\"50\"><br>
</td>

<td Action Space style=\"opacity: 0.1;\" 
background=\"http://www.actionspace.org/sites/all/themes/actionspace2/images/header-image.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Afterall style=\"opacity: 0.1;\" 
background=\"http://www.afterall.org/img/afterall-foot-icon.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Alchemy Anew style=\"opacity: 0.1;\" 
background=\"http://www.alchemyanew.co.uk/image/Text117_Copy14488.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td a-n style=\"opacity: 0.1;\" 
background=\"http://www.a-n.co.uk/img/headers/an_home.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Architecture Centre style=\"opacity: 0.1;\" 
background=\"http://www.architecturecentre.net/img/content/advocaacycover.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Arnolfini style=\"opacity: 0.1;\" 
background=\"http://www.arnolfini.org.uk/img/homepage/arnolfini_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Artlandish style=\"opacity: 0.1;\" 
background=\"http://www.artlandish.org/images/newlogo.gif\" 
height=\"40\" width=\"50\"><br>
</td>

<td Art Gene style=\"opacity: 0.1;\" 
background=\"http://www.artgene.co.uk/site_media/headers/Gallery.png\"
height=\"40\" width=\"50\"><br>
</td>

</tr>
<tr>


<td Art Monthly style=\"opacity: 0.1;\" 
background=\"http://www.artmonthly.co.uk/images-style/art-monthly-logo-s.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Art Services Grants style=\"opacity: 0.1;\" 
background=\"http://www.spacestudios.org.uk/media/gfk/elements/150px_logo.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Artangel style=\"opacity: 0.1;\" 
background=\"http://www.artangel.org.uk/layout/img/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Artpoint style=\"opacity: 0.1;\" 
background=\"http://www.artpointtrust.org.uk/program_images/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Artsadmin style=\"opacity: 0.1;\" 
background=\"http://www.artsadmin.co.uk/program_files/page-titles/page-title-home.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Artsway Trust style=\"opacity: 0.1;\" 
background=\"http://www.artsway.org.uk/IMAGES/logo_artsway.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Aspex style=\"opacity: 0.1;\" 
background=\"http://www.aspex.org.uk/Images/logos/Aspex%20logo%20small.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Audio Visual Arts style=\"opacity: 0.1;\" 
background=\"http://www.avfestival.co.uk/images/site/av10/logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Axis style=\"opacity: 0.1;\" 
background=\"http://www.axisweb.org/newimages/axishomeNew.png\"
height=\"40\" width=\"50\"><br>
</td>

<td B3 Media style=\"opacity: 0.1;\" 
background=\"http://www.b3media.net/sites/default/files/ldf_logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>


</tr>
<tr>

<td Baltic Centre style=\"opacity: 0.1;\" 
background=\"http://www.balticmill.com/images/homepage/balticgeneric_yellow01.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Beaconsfield style=\"opacity: 0.1;\" 
background=\"http://www.beaconsfield.ltd.uk/images/logo-white-250.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Beam style=\"opacity: 0.1;\" 
background=\"http://www.beam.uk.net/images/logo.gif\" 
height=\"40\" width=\"50\"><br>
</td>


<td Bedford Creative Arts style=\"opacity: 0.1;\"
background=\"http://www.bedfordcreativearts.org.uk/images/construct/bcalogo-wback.gif\" 
height=\"40\" width=\"50\"><br>
</td>


<td Bluecoat Display Centre style=\"opacity: 0.1;\" 
background=\"http://www.bluecoatdisplaycentre.com/images/static_homelogo.jpg\"  

height=\"40\" width=\"50\"><br>
</td>

<td Book Works style=\"opacity: 0.1;\" 
background=\"http://www.bookworks.org.uk/images/general/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Chinese Arts Centre style=\"opacity: 0.1;\" 
background=\"http://chinese-arts-centre.org/wp-content/uploads/2008/06/caccmyk.png\" 

height=\"40\" width=\"50\"><br>
</td>

<td Contemporary Applied Arts style=\"opacity: 0.1;\" 
background=\"http://www.caa.org.uk/fileadmin/css/skins/autumn2008-2/header_bg_and_logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Contemporary Art Society style=\"opacity: 0.1;\" 
background=\"http://www.contemporaryartsociety.org/media/gfk/images/contemporary-art-society-centen.gif \"
height=\"40\" width=\"50\"><br>
</td>

<td Contemporary Glass Society style=\"opacity: 0.1;\" 
background=\"http://www.cgs.org.uk/nav_images/hp05_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>


</tr>
<tr>

<td Crafts Council style=\"opacity: 0.1;\" 
background=\"http://www.craftscouncil.org.uk/_images/logo-white.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Craftspace style=\"opacity: 0.1;\" 
background=\"http://www.craftspace.co.uk/_img/craftspace_logo_1x.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Crescent Arts style=\"opacity: 0.1;\" 
background=\"http://www.crescentarts.co.uk/pix/logo_arts_cover.jpg\"
height=\"40\" width=\"50\"><br>
</td>



<td Cubitt style=\"opacity: 0.1;\" 
background=\"http://cubittartists.org.uk/themes/cubitttheme/graphics/cubitt_mainc.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Dash style=\"opacity: 0.1;\" 
background=\"http://www.dasharts.org/images/dash_banner_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Derby Quad style=\"opacity: 0.1;\" 
background=\"http://www.derbyquad.co.uk/templatefiles/quad-logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Designed & Made style=\"opacity: 0.1;\" 
background=\"http://www.designedandmade.co.uk/images/DandMlogo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Designer Maker style=\"opacity: 0.1;\" 
background=\"http://www.designermakerwm.co.uk/design-maker.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Electra Productions style=\"opacity: 0.1;\" 
background=\"http://www.electra-productions.com/images/electra_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Exeter Phoenix style=\"opacity: 0.1;\" 
background=\"http://www.exeterphoenix.org.uk/images/logo-galleries.gif\"
height=\"40\" width=\"50\"><br>
</td>




</tr>
<tr>

<td Film and Video Umbrella style=\"opacity: 0.1;\" 
background=\"http://www.fvu.co.uk/images/fvu/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Film London style=\"opacity: 0.1;\" 
background=\"http://core.filmlondon.org.uk/css/site_1/images/logo.gif\"   
height=\"40\" width=\"50\"><br>
</td>

<td Folly style=\"opacity: 0.1;\" 
background=\"http://www.folly.co.uk/sites/default/files/clean_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Forma style=\"opacity: 0.1;\" 
background=\"http://www.forma.org.uk/i/bg_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Four Corners style=\"opacity: 0.1;\" 
background=\"http://www.fourcornersfilm.co.uk/images/logosm.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Grizedale Arts style=\"opacity: 0.1;\" 
background=\"http://www.grizedale.org/img/Grizedale_Arts.png\"
height=\"40\" width=\"50\"><br>
</td>


<td Heart n Soul style=\"opacity: 0.1;\" 
background=\"http://www.heartnsoul.co.uk/images/hnslogo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Hepworth Wakefield style=\"opacity: 0.1;\" 
background=\"http://www.hepworthwakefield.com/wakefieldcms/images/www_hepworthwakefield_com/HepworthHead.jpg\"
 height=\"40\" width=\"50\"><br>
</td>

<td Hereford Photography Festival style=\"opacity: 0.1;\" 
background=\"http://www.photofest.org/newpix/hpf_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Ikon Gallery style=\"opacity: 0.1;\" 
background=\"http://www.ikon-gallery.co.uk/App_Styles/Style/Images/ikon_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>
</tr>
<tr>


<td INIVA style=\"opacity: 0.1;\" 
background=\"http://www.iniva.org/layout/img/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>



<td Isis Arts style=\"opacity: 0.1;\"
background=\"http://www.isisarts.org.uk/images/isislogo.gif\" 
height=\"40\" width=\"50\"><br>
</td>


<td John Hansard Gallery style=\"opacity: 0.1;\" 
background=\"http://www.hansardgallery.org.uk/images/about_img/jhg-blk-content.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Kettle's Yard Gallery style=\"opacity: 0.1;\" 
background=\"http://www.kettlesyard.co.uk/furniture/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>


<td Labculture style=\"opacity: 0.1;\" 
background=\"http://www.pva.org.uk/front-page/logo2.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Lakeland Arts Trust style=\"opacity: 0.1;\" 
background=\"http://www.lakelandartstrust.org.uk/sites/all/themes/lakeland_arts_trust/logo.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Lighthouse Arts style=\"opacity: 0.1;\" 
background=\"http://a0.twimg.com/profile_images/517507824/logo_square_normal.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Live Art style=\"opacity: 0.1;\" 
background=\"http://www.thisisliveart.co.uk/images/live_art_dev_agency_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td London Design Festival style=\"opacity: 0.1;\" 
background=\"http://www.londondesignfestival.com/sites/default/files/ldf2_logo.png\"
 height=\"40\" width=\"50\"><br>
</td>

<td London Print Studio style=\"opacity: 0.1;\" 
background=\"http://www.londonprintstudio.org.uk/Images/lps_logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>



</tr>
<tr>

<td Lovebytes style=\"opacity: 0.1;\" 
background=\"http://2010.lovebytes.org.uk/gfx/header.gif\"
height=\"40\" width=\"50\"><br>
</td>


<td Lumen style=\"opacity: 0.1;\" 
background=\"http://lumen.org.uk/img/header_final.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Lux style=\"opacity: 0.1;\" 
background=\"http://lux.org.uk/images/lux_logo.gif\"
height=\"40\" width=\"50\"><br>
</td>


<td Modern Art Oxford style=\"opacity: 0.1;\" 
background=\"http://www.modernartoxford.org.uk/content/images/identity.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Mute style=\"opacity: 0.1;\" 
background=\"http://www.metamute.org/sites/www.metamute.org/files/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td New Art Exchange style=\"opacity: 0.1;\" 
background=\"http://www.thenewartexchange.org.uk/images/logo/logo_home.gif\" 
height=\"40\" width=\"50\"><br>
</td>

<td New Art Gallery Walsall style=\"opacity: 0.1;\" 
background=\"http://www.thenewartgallerywalsall.org.uk/img/newart.gif\"
height=\"40\" width=\"50\"><br>
</td>



<td New Contemporaries style=\"opacity: 0.1;\" 
background=\"http://www.newcontemporaries.org.uk/images/bloom2010.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Northern Print style=\"opacity: 0.1;\" 
background=\"http://www.northernprint.org.uk/templates/home_new/images/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Nottingham Contemporary style=\"opacity: 0.1;\" 
background=\"http://www.nottinghamcontemporary.org/sites/all/themes/defacto//images/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>



</tr>
<tr>

<td Nottingham Media Centre style=\"opacity: 0.1;\" 
background=\"http://www.broadway.org.uk/broadwayident.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td onedotzero style=\"opacity: 0.1;\" 
background=\"http://www.onedotzero.com/images/onedotzero-dark.png\"
height=\"40\" width=\"50\"><br>
</td>



<td Open Eye Gallery style=\"opacity: 0.1;\" 
background=\"http://www.openeyegallery.co.uk/img/background/open_eye.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Pallant House Gallery style=\"opacity: 0.1;\" 
background=\"http://www.pallant.org.uk/layout/img/header-logo.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Photographers' Gallery style=\"opacity: 0.1;\" 
background=\"http://www.photonet.org.uk/imgs/logo.gif\" height=\"40\" width=\"50\"><br>
</td>

<td Plymouth Arts Centre style=\"opacity: 0.1;\" 
background=\"http://www.plymouthartscentre.org/Resources/item2a1a.gif\"
 height=\"40\" width=\"50\"><br>
</td>

<td Project Art Works style=\"opacity: 0.1;\" 
background=\"http://www.projectartworks.org/images/logo.gif\"
 height=\"40\" width=\"50\"><br>
</td>

<td Proboscis style=\"opacity: 0.1;\" 
background=\"http://proboscis.org.uk/wp-content/themes/revolution-30/revolution-30/images/logo.gif\" 
height=\"40\" width=\"50\"><br>
</td>

<td Quay Arts Centre style=\"opacity: 0.1;\" 
background=\"http://www.quayarts.org/content/pageimages/5.jpg\"
 height=\"40\" width=\"50\"><br>
</td>

<td Redeye style=\"opacity: 0.1;\" 
background=\"http://www.redeye.org.uk/redeye/images/nwpn.gif\" 
height=\"40\" width=\"50\"><br>
</td>



</tr>
<tr>
<td Shisha style=\"opacity: 0.1;\" 
background=\"http://www.asiatriennialmanchester.com/pics/shisha_logo.gif\"
 height=\"40\" width=\"50\"><br>
</td>


<td Showroom Gallery style=\"opacity: 0.1;\" 
background=\"http://www.theshowroom.org/MEDIA/Arrow-48-flip.gif\" 
height=\"40\" width=\"50\"><br>
</td>

<td Spacex style=\"opacity: 0.1;\" 
background=\"http://www.artshub.co.uk/uk/displayContentImage.asp?contentId=180613&size=m\" 
height=\"40\" width=\"50\"><br>
</td>


<td Spike Island style=\"opacity: 0.1;\"
background=\"http://www.spike-island.org.uk/sites/all/themes/spiketheme2/images/logo.png\"
height=\"40\" width=\"50\"><br>
</td>


<td Storey Gallery style=\"opacity: 0.1;\"
background=\"http://www.storeygallery.org.uk/images/storey_gallery_logo.gif\" 
height=\"40\" width=\"50\"><br>
</td>


<td Stour Valley Arts style=\"opacity: 0.1;\"
background=\"http://www.stourvalleyarts.org.uk/images/SVAlogo.gif\"
 height=\"40\" width=\"50\"><br>
</td>

<td Stroud Valleys Artspace style=\"opacity: 0.1;\"
background=\"http://www.sva.org.uk/grafics/banner4.gif\"
 height=\"40\" width=\"50\"><br>
</td>



<td Triangle Arts style=\"opacity: 0.1;\" 
background=\"http://www.trianglearts.org/program_images/triangle-arts-logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Vane Contemporary Art style=\"opacity: 0.1;\" 
background=\"http://www.vane.org.uk/images/siteImages/Logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>

<td Visual Arts And Galleries style=\"opacity: 0.1;\" 
background=\"http://www.vaga.co.uk/templates/vaga/images/vagalogo.jpg\"
height=\"40\" width=\"50\"><br>
</td>
</tr>
<tr>


<td Vivid style=\"opacity: 0.1;\" 
background=\" http://www.vivid.org.uk/image_file/vivid_pioneers_header1.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Walford Mill style=\"opacity: 0.1;\" 
background=\"http://www.walfordmillcrafts.co.uk/images/FormHeadNew.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Watershed Arts Trust style=\"opacity: 0.1;\" 
background=\"http://www.watershed.co.uk/interface/images/page_container/page_header_bkg.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Waterside Artists Co-Operative style=\"opacity: 0.1;\" 
background=\" http://www.the-ropewalk.co.uk/logo.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Waygood Gallery & Studios style=\"opacity: 0.1;\" 
background=\"http://www.waygood.org/g/redev_logo.gif\" height=\"40\" width=\"50\"><br>
</td>



<td West Yorkshire Print Workshop style=\"opacity: 0.1;\" 
background=\" http://www.wypw.org/fwhtml/header_default_r1_c1.png\"
height=\"40\" width=\"50\"><br>
</td>

<td Whitechapel Gallery style=\"opacity: 0.1;\" 
background=\"http://www.whitechapelgallery.org/images/plinth_titles/1.jpg\"
height=\"40\" width=\"50\"><br>
</td>


<td Wolverhampton Arts style=\"opacity: 0.1;\" 
background=\"http://www.wolverhamptonart.org.uk/assets/shells/version9/images/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Wysing Arts Centre style=\"opacity: 0.1;\" 
background=\"http://www.wysingartscentre.org/img/elements/indexHead2.gif\"
height=\"40\" width=\"50\"><br>
</td>

<td Yorkshire Artspace style=\"opacity: 0.1;\" 
background=\"http://artspace.org.uk/images_site/logo.gif\"
height=\"40\" width=\"50\"><br>
</td>

</tr>
</tbody>
</table>";


my $time;

 my $string = time2str($time); ## gets time

my $p = Net::Ping->new("syn");
 $p->{port_num} = getservbyname("http", "tcp");
$p->tcp_service_check(1);



$html2 =~ s/$chosen style=\"opacity: 0.1;\"/onload=\"makevisible(this,0)\"/ if $p->ping($key );

print $html2;

print " <div align=\"center\"><font face=\"Courier New, Courier, monospace\"><b><br>
CUTS_TEST:<br>
<br>
$chosen...</b><br>
&nbsp;&nbsp;
...connection
is ";
 

$html2 =~ s/background=\".*?\"/background=\"blankimage.GIF\"/ unless $p->ping($key );

print " <big style=\"color: rgb(204, 0, 0);\"><big>NOT!</big></big></span> " unless $p->ping($key );

print "active<br>
<small>at $string\n</small></font><small><small><small>

<br><img alt=\"warning_icon.jpg\" src=\"http://in-vacua.com/warning_icon.jpg\" height=\"60\"
width=\"62\">
<br>
<br>
<font face=\"Helvetica, Arial, sans-serif\">*
JavaScript enabled and Mozilla/Firefox browser required.<br>
&nbsp;On smaller monitors this may not display correctly.<br>
Refreshes every 5 secs and checks a new organisation.<br>
<b>Info page</b> at project.arnolfini: <a href=\"http://project.arnolfini.org.uk/projects/incl_contents/test.php\">here</a>.
<br>Thanks to Geoff Cox at project.arnolfini for his help on the project<br>
</font></small></small></small>
</div>
</body>
</html>
";


##############

$p->close();

 __END__