#!/usr/bin/perl
# Created by Patrick Webster 20050120 patrick@aushack.com
#
# Displays The Weather Co. corporate logo in a Cisco 7940 VoIP
# format, and redirects to getCiscoWeather.pl.

# Set the URL redirect here.
$url='http://intranet/cgi-bin/getCiscoWeather.pl';

print "Refresh: 1;url=" . $url . "\n";
print "Content-Type: text/xml\n";
print "
<CiscoIPPhoneImage>
  <LocationX>-1</LocationX>
  <LocationY>-1</LocationY>
  <Width>133</Width>
  <Height>30</Height>
  <Depth>2</Depth>
  <Data>AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFFFFFFF5B5555555555555565555595599999999A9A4599A5FEFFFFFFFFFFFFFFFFFFFFFF6F555555555555555555556555999AAAAA6A069596FAFFFFFFFFFFFFFFFFFFFFFFBF55555555555555555555569995A9AAA6A656A456EAFFFFFFFFFFFFFFFFFFFFFFFF56555555555555555555559595696AAA6A565469D9FFFFFFFFFFFFFFFFFFFFFFFF5B555555555555555555556696A96AAAA656919995FFFFFFFFFFFFFFFFFFFFFFFF6F55555555555555555565666599A9AAAA965599A5FEFFFFFFFFFFFFFFFFFFFFFFBF55555555555555555565556AAAA96A5655155595FDFFFFFFFFFFFFFFFFFFFFFFFF56555555555555555555A59ABE95A95655555455F9FFFFFFFFFFFFFFFFFFFFFFFF5B55555555555555555595AFF996996655555559E9FFFFFFFFFFFFFFFFFFFFFFFF6F55555555555555555555BEE65B555555554555D6FFFFFFFFFFFFFFFFFFFFFFFFBF556EA5566AF56F55FE5BFE9BAFBF55FA6BA5F696FF1555FF01FE5B0BFD6F80FFFF56F9D65FBEF9FF57FFBFFD7FFEFF5BFEFFD6FF9BFE0300BC00801F00C02F00F4FF5BD55BBFF9F5EB6FBEFAA7AFF9AB7FFDFA5FFF6FFDAF0AF080067C80023EA080FF6F557FFEF6E75BFDA9D55FBEE55BFDF956BEF956F9FF2FF082BFE0813FB4E00FFDBF55F9BDDFDBEFFE57EA7FF9966FF5E7FFFFE257F5FB3FE003FF830BFFD0412AF0FF56E5FB7D5FFFFF5FFFFFE55BBED59FFFFF8F5F95E93FE00FFC0F1DFC430700C0FF5B55EFF77EF95655BFF5976FF9567FBE56157F55D53FE07FF03F78F00F1EFCFFFF6F55FD9BBFE55BA9FDD55FBEE55BFDF956AAFC55953FE0FF827FE0C13FB4E0AFFEBF55E56FFE56BFFEF6EB7FF99B6FF5D7AFFEF15755BE40000F64C00BFFD0031AF8FF56557FF557F5FF97FFFFD57FBED55FFDFFC65F55FD0100F800C01FFC432F00F4FF5B55A9955A55FE56F9AA5ABAA5566A95BF156955F9ABAAFA6FE4BFFAAFFE0BF9FF6F55555555555555555555555555555555555455E5FFFFFFFFFFFFFFFFFFFFFFFFBF55555555555555555555555555555555555155D5FFFFFFFFFFFFFFFFFFFFFFFFFF5655555555555555555555555555555555515595FFFFFFFFFFFFFFFFFFFFFFFFFF5B55555555555555555555555555555555515155FFFFFFFFFFFFFFFFFFFFFFFFFF6F55555555555555555555555555555555514555FDFFFFFFFFFFFFFFFFFFFFFFFFBF55555555555555555555555555555555415555F9FFFFFFFFFFFFFFFFFFFFFFFFFF56555555555555555555555555555555055555F5FFFFFFFFFFFFFFFFFFFFFFFFFFAB9A9AAAAA6AAAAAAAAAAAAA6A6A9A95555555E6FFFFFFFFFFFFFFFFFFFFFFFFFF0F</Data>
  <Title>WeatherZone</Title>
  <Prompt>One moment..</Prompt>
</CiscoIPPhoneImage>
";

# EOF