#!/usr/local/bin/perl

use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
use Time::Local;
use DBI;

$q = new CGI;

require 'gasgasuk.cfg';

&open_db;

$id = $q->param('id');      
$action = $q->param('action');      

print $q->header();

if ($action =~ /show/i) {
  &load_js2();
  &do_item();
}
else {
  &load_js1();
  &do_news();
}

&close_db;

exit;

#=============================================================================
sub do_news {

  print $q->start_html(-BGCOLOR=>"#FFFFFF",
                       -LEFTMARGIN=>'0',
                       -TOPMARGIN=>'0',
                       -MARGINWIDTH=>'0',
                       -MARGINHEIGHT=>'0',
                       -SCRIPT=>"$JSCRIPT",
                       -TEXT=>'black',
                       -LINK=>'red',
                       -ALINK=>'red',
                       -VLINK=>'red',
                       -dtd=>'-//W3C//DTD HTML 4.01 Transitional//EN',
                       -STYLE=>{'src'=>"$ggcss"});

print <<HTML;
<table width="430" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <p><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="430" height="60">
          <param name=movie value="$pg/title_news.swf">
          <param name=quality value=high>
          <embed src="$pg/title_news.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="430" height="60">
          </embed> 
        </object><br>
      </p>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><p><font face="Arial, Helvetica, sans-serif" size="2"><b><img src="$pg/pic_intro.jpg" width="300" height="285" align="right">Welcome</b> 
              to the Gas Gas Motos UK website.<br>
              <br>
              We are the <b>Official Gas Gas Importers to the UK</b> since 1988 
              when Gas Gas was born.<br>
              <br>
              Gas Gas are manufacturers of a wide range of off-road motorcycles 
              including <b>Trials</b>, <b>Enduro, Supermoto</b> and <strong>QUAD</strong> 
              machines.<br>
              <br>
              </font><font face="Arial, Helvetica, sans-serif"><B><font size="2">GAS 
              GAS MOTOS LIMITED</font></B><FONT SIZE="2"><BR>
              Harpur Hill Business Park, Harpur Hill<br>
              Buxton, Derbyshire<br>
              SK17 9JL United Kingdom</FONT></font><br>
              <font size="2" face="Arial, Helvetica, sans-serif"><strong>Tel</strong>: 
              (44) 01298 766813 &#8226; </font><font size="2" face="Arial, Helvetica, sans-serif"><strong>Fax</strong>: 
              (44) 01298 766816</font><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#FF0000"><u><blink></blink><br>
              </u></font></strong></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>Email</strong>: 
              <strong><a href="mailto:mail\@gasgasuk.com">mail\@gasgasuk.com</a></strong></font><font color="#FF0000"><u><blink><br>
              </blink></u></font><font size="2" face="Arial, Helvetica, sans-serif"><strong>Finding 
              Us: <a href="$pg/body_locationmap.htm" target="mainbody">View Location 
              Map</a></strong></font></p>
            <p><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Opening 
              Hours<br>
              </font></strong><font color="#000000">Monday to Friday, 8.00am to 
              5.00pm<br>
              Saturday, 9.00am to 1.00pm<br>
              Sunday, Closed</font></font></p>
          </td>
        </tr>
        <tr>
          <td><br>
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="430" height="42">
              <param name="movie" value="$pg/news.swf">
              <param name="quality" value="high">
              <embed src="$pg/news.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="430" height="42"></embed></object>
            <br>
            <br>
          </td>
        </tr>
        <tr> 
          <td><font face="Arial, Helvetica, sans-serif" size="2"><b> NEWS TIMELINE:</b></font> 
            <table width="100%" border="0" cellspacing="8" cellpadding="0">
              <tr> 
                <td>&nbsp;</td>
                <td colspan="3"><font face="Arial, Helvetica, sans-serif" size="1" color="#FF0000">
                  CLICK TOPICS BELOW TO FIND OUT MORE</font>
                </td>
              </tr>
HTML

  $SQL = "SELECT id,title,date FROM news WHERE live=1 ORDER BY date DESC";
  $cursor = $dbh->prepare($SQL);
  $cursor->execute();
  while ($row = $cursor->fetchrow_hashref()) {
    ($y, $m, $d) = split '-', $row->{'date'};
    $m = $1 if ($m =~ /0(\d)/);
    $ddate = sprintf("%d %s %d", $d, $months{($m)}, $y);

print <<ITEM;
              <tr> 
                <td><img src="$pg/shim.gif" width="16" height="1"></td>
                <td width=85 ALIGN=RIGHT VALIGN=TOP><font size="2" face="Arial, Helvetica, sans-serif">$ddate</font></td>
                <td><img src="$pg/shim.gif" width="10" height="1"></td>
                <td><font size="2" face="Arial, Helvetica, sans-serif"><strong><a href="ggnews.pl?action=show&id=$row->{'id'}" target="mainbody">$row->{'title'}</a></strong></font></td>
              </tr>
ITEM
  }
  $cursor->finish();

print <<HTML;
            </table>
          </td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><font face="Arial, Helvetica, sans-serif" size="2"><b>NEWSLINKS</b></font></td>
        </tr>
        <tr> 
          <td> 
            <ul>
HTML

  foreach $n (@newslinks) {
    ($link, $win, $label) = split '##', $n;
print <<LINK;
              <li><font face="Arial, Helvetica, sans-serif" size="2"><b><a href="#" onClick="MM_openBrWindow($link,$win,'menubar=yes,scrollbars=yes,resizable=yes,width=640,height=480')">$label</a></b></font></li>
LINK
  }

print <<HTML;
            </ul>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align="center"><br>
  <script language="JavaScript">
<!-- 
Stamp = new Date();
var Sal
var Month
var Actmonth
var Actyear=Stamp.getYear();
Month=Stamp.getMonth() + 1;
if (Month==12) {Actmonth = " December";}
if (Month==11) {Actmonth = " November";}
if (Month==10) {Actmonth = " October";}
if (Month==9) {Actmonth = " September";}
if (Month==8) {Actmonth = " August";}
if (Month==7) {Actmonth = " July";}
if (Month==6) {Actmonth = " June";}
if (Month==5) {Actmonth = " May";}
if (Month==4) {Actmonth = " April";}
if (Month==3) {Actmonth = " March";}
if (Month==2) {Actmonth = " February";}
if (Month==1) {Actmonth = " January";}
if (Stamp.getYear() < 2000){Actyear = Stamp.getYear() + 1900;}
Day=Stamp.getDate();
Sal = "th";
if (Day==1 || Day==21 || Day==31) {Sal="st";}
if (Day==2 || Day==22) {Sal="nd";}
if (Day==3 || Day==23) {Sal="rd";}
document.write('<font size="1" face="arial, helvetica" color="#FF0000">'
+ "&copy "  +Actyear+" " + '<span class="cright"><a href="$pg/tandc.htm" target="mainbody">' + "Gas Gas UK" + '</a></span>'
+ '<BR>' + Stamp.getDate()+ Sal + Actmonth +", "  + Actyear
); // Shows date as xxth month, 2000 //-->
</script>
  <br>
  <br>
</div>
HTML

  print $q->end_html()

}

#=============================================================================
sub do_item {

  $SQL = "SELECT * FROM news WHERE id = $id";
# $SQL = "SELECT id,title,date,text FROM news WHERE id = $id";
  $cursor = $dbh->prepare($SQL);
  $cursor->execute();
  $row = $cursor->fetchrow_hashref();
  $cursor->finish();

  $photos = 0;
  %ph = ();
  for $i (1 .. 9) {
    $var = "pic$i";
    if ($row->{"$var"}) {
      $ph{$i} = 1;
      $photos = 1; 
    }
  }

 ($y, $m, $d) = split '-', $row->{'date'};
  $m = $1 if ($m =~ /0(\d)/);
  $ddate = sprintf("%d %s %d", $d, $months{($m)}, $y);

  print $q->start_html(-BGCOLOR=>"#FFFFFF",
                       -LEFTMARGIN=>'0',
                       -TOPMARGIN=>'0',
                       -MARGINWIDTH=>'0',
                       -MARGINHEIGHT=>'0',
                       -SCRIPT=>"$JSCRIPT",
                       -TEXT=>'black',
                       -LINK=>'red',
                       -ALINK=>'red',
                       -VLINK=>'red',
                       -STYLE=>{'src'=>"$ggcss"});

print <<HTML;
<table width="430" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <p> 
        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="430" height="60">
          <param name=movie value="$pg/title_news.swf">
          <param name=quality value=high>
          <embed src="$pg/title_news.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="430" height="60"> 
          </embed> 
        </object>
      </p>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr valign="top">
          <td width="82%">
            <font face="Arial, Helvetica, sans-serif" size="4">
            $row->{'title'}
            </font></td>
          <td width="18%" align="right"><font face="Arial, Helvetica, sans-serif" size="2">$ddate</font>
          </td>
        </tr>
      </table>
      <p align="left"><font size="2" face="Arial, Helvetica, sans-serif">
HTML
if ($photos) {
print <<HTML;
      <table width="250" border="0" align="right" cellpadding="5">
HTML
    for $i (1 .. 9) {
      if ($ph{$i}) {
        $pic = "$images/np_".$id."_".$i.".jpg";
  print <<PIC;
        <tr> 
          <td><img src="$pic" width="250" hspace="5" border="1"></td>
        </tr>
        <tr> 
          <td align="center"><font size="1" face="Arial, Helvetica, sans-serif">$row->{"cap$i"}</font></td>
        </tr>
PIC
      }
    }
print <<HTML;
      </table>
HTML
}
print <<HTML;
      <font face="Arial, Helvetica, sans-serif" size="2">
      $row->{'text'}
      <p align="center"><font face="Arial, Helvetica, sans-serif" size="2"><br>
        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="197" height="30">
          <param name=movie value="$pg/back.swf">
          <param name=quality value=high>
          <embed src="$pg/back.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="197" height="30"> 
          </embed> 
        </object>
        </font>
      </p>
    </td>
  </tr>
</table>
<div align="center"><br>
  <script language="JavaScript">
<!-- 
Stamp = new Date();
var Sal
var Month
var Actmonth
var Actyear=Stamp.getYear();
Month=Stamp.getMonth() + 1;
if (Month==12) {Actmonth = " December";}
if (Month==11) {Actmonth = " November";}
if (Month==10) {Actmonth = " October";}
if (Month==9) {Actmonth = " September";}
if (Month==8) {Actmonth = " August";}
if (Month==7) {Actmonth = " July";}
if (Month==6) {Actmonth = " June";}
if (Month==5) {Actmonth = " May";}
if (Month==4) {Actmonth = " April";}
if (Month==3) {Actmonth = " March";}
if (Month==2) {Actmonth = " February";}
if (Month==1) {Actmonth = " January";}
if (Stamp.getYear() < 2000){Actyear = Stamp.getYear() + 1900;}
Day=Stamp.getDate();
Sal = "th";
if (Day==1 || Day==21 || Day==31) {Sal="st";}
if (Day==2 || Day==22) {Sal="nd";}
if (Day==3 || Day==23) {Sal="rd";}
document.write('<font size="1" face="arial, helvetica" color="#FF0000">'
+ "&copy "  +Actyear+" " + '<span class="cright"><a href="$pg/tandc.htm" target="mainbody">' + "Gas Gas UK" + '</a></span>'
+ '<BR>' + Stamp.getDate()+ Sal + Actmonth +", "  + Actyear
); // Shows date as xxth month, 2000 //-->
</script>
  <br>
  <br>
</div>
HTML

  print $q->end_html()

}



#=============================================================================
sub load_js1 {

$JSCRIPT=<<EOJS;

  function MM_openBrWindow(theURL,winName,features) { //v2.0
    window.open(theURL,winName,features);
  }

EOJS

}

#=============================================================================
sub load_js2 {

$JSCRIPT=<<EOJS;

  var message="Permission is required to use photos from our website. Please contact mail\@gasgasuk.com";

  function clickIE4(){
    if (event.button==2){
    alert(message);
    return false;
    }
  }

  function clickNS4(e){
    if (document.layers||document.getElementById&&!document.all){
     if (e.which==2||e.which==3){
       alert(message);
       return false;
     }
    }
  }

  if (document.layers){
    document.captureEvents(Event.MOUSEDOWN);
    document.onmousedown=clickNS4;
  }
  else if (document.all&&!document.getElementById){
    document.onmousedown=clickIE4;
  }

  document.oncontextmenu=new Function("alert(message);return false")


EOJS

}

#=============================================================================
sub open_db {

  my $dsn = "DBI:mysql:host=localhost:database=$ggdb";
  $dbh = DBI->connect($dsn, $ggs_user, $ggs_pw,{PrintError => 0,RaiseError => 1});

}

#=============================================================================
sub close_db {

  $dbh->disconnect();

}

#=============================================================================