#!/usr/bin/perl
# authtip2.pl - authenticate to change the tip of the week.
use CGI;
my $pwfile = "pw.dat";
my @begindate = split (/ /, scalar localtime);
my ($dow,$mon,$day,$hh_mm_ss,$tz,$yyyy) = @begindate;
my $query = CGI->new();
my $status = $query->param('status');
my $user = $query->param('user');
my $pass = $query->param('pass');
my $hidden = $query->param('hide');
my %auth = ($user => $pass);
$myself = $query->url;
if (defined $user) {
&TEST($user);                }

&HEADER;
 if (defined $status) {
         print $query->h3( "$status $hidden" );
                                                 }

&SIGN_IN_FORM;

sub HEADER {
my $status = shift;
print $query->header( "text/html" ),
        $query->start_html(-title   => "Tip Authenticator",
                   -style=>{'src'=>'../mystyle.css'}),
      $query->h1( "Tip Changer Sign-In $hidden" );

                          }


sub SIGN_IN_FORM {
 $myself = $query->url;
        print '
        <form method="get" action=', $myself, ' name="">
          <p> <font face="Elephant">
            <input type="text" name="user">
            user name</font></p>
          <p> <font face="Elephant">
            <input type="password" name="pass">
            password</font></p>
          <p> <font face="Elephant">
          <input type="hidden" name="hidden" value="logged_in">
            <input type="submit" name="Submit" value="Submit">
            </font>

        </form>
                  ';
                          }

sub TEST {
        open (PW, "pw.dat") or die "$! Couldn't open pw file";
        while (<PW>) {
        chomp;
        my @record = split /:/;
        next unless $record[0] eq $user;
        $auth{$user} eq $record[1] ?
        return (&validuser)  :
        return(print $query->redirect("$myself?status=Incorrect Passwo
+rd")) ;
                                        }
print $query->redirect("$myself?status=Bad User Name");
                }

sub validuser {
print $query->redirect("http://localhost/tip2.pl?status=$key");
                        }
[download]

#!/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="1
+74"
                   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.gi
+f",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;
}
[download]