#!/usr/local/bin/perl -w
# Tip of The Week editor, generator
use strict;
use CGI;
$| = 1;
my $query = CGI->new();
my $selfurl = $query->self_url;
open (TIP, "tip.txt") or die "$! Sorry, contact admin";
my @input = $query->param();
my $tipdata = $query->param('formdata');
my $publish = $tipdata;
$tipdata = <TIP> unless (defined $tipdata);
close (TIP);

&header;
&init_javascript;
unless (@input) {
&Display_page_for_enduser;
                          }
if ($publish) {
    open (TIP, ">tip.txt") or die;
    print TIP "$publish";
    close (TIP); }

print $query->h2($tipdata);
&showtiptext($tipdata);
&print_table;
&publish($tipdata);

sub header {
 print $query->header( "text/html" ),
              $query->start_html(-title   => "Tip Editor",
                        -style=>{'src'=>'smc_style.css'})
                        ,$query->h1("Tip Editor")
                        }
 sub showtiptext {
     my $myself = shift;
    print $query->start_form(-method=>"post",
                            -action=>"$selfurl"
                            );

   print $query->textarea(-name=>'formdata',
                          -default=>"$myself",
                          -rows=>5,
                          -columns=>50), $query->br;


   print $query->submit(-name=>'submit',
                        -value=>'submit');

   print $query->endform;
                              }



sub print_table {

print '

<table width="368" border="0" cellspacing="1" align="center" height="174"
                   cellpadding="4" background="/images/sunset3.jpg">
  <tr valign="top">
    <td width="372" height="119" class="text">
      <p><img aLIGN=left src="/pics/robinSmile.jpg" width="93" height="92">

      <b>Robin Says: ';
      print $query->p, $query->b("$tipdata"), $query->br;




   print '</b></td></tr></table>
<div align="center">
<a href="javascript:closeWindow()"
   onMouseOut="MM_swapImgRestore()"
   onMouseOver="MM_swapImage("closeWindow","","slices/closeWindow_o.gif",1);" >
  <img name="closeWindow"
       src="../slices/closeWindow.gif"
       width="109"
       height="15"
       border="0">

  </a>

</div>
                                      '; }

 sub publish {
     my $myself = shift;
    print $query->start_form(-method=>"post",
                            -action=>"$selfurl"
                            );
   print $query->hidden(
                       -name => "filebait" ,
                       -value => "$myself");
   print $query->submit(-name=>'publish',
                        -value=>'publish');
   print $query->endform;
                              }

sub Display_page_for_enduser {

&print_table;

die;
}