#!/usr/bin/perl
##############################################
#   Title: Web Message Editor
# Program: iexp-wme.pl
#    Date: July 18, 1997
#  Author: Andrew Schwabe
#
# (c)1997 Internet Expressions, Inc.
##############################################
# Main Program
##############################################
&setenv;        #Set environment variables
&read_form;     #Get form + get query_string
&page_select;   #Choose Proper form
exit;

##############################################
# Subroutine Area
##############################################

sub setenv
{
  $home = "/home/a/accent1/public_html/profiles";
  $salt = "Pz";
  $version = "1.03";
  return;
}

sub read_form
{
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
  }

  @pairs = split(/;/, $ENV{'QUERY_STRING'});
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
  }
  return;
}

sub page_select
{
  if ($ENV{'QUERY_STRING'})
  {
     $Config = $ENV{'QUERY_STRING'};
     &Read_Config;
     &Draw_Form;
     exit;
  }
  else
  {
     &Check_Password;
     &Check_input;
     &Change_File;
     &Draw_Confirm;
     exit;
  }
  return;
} 

sub Read_Config
{
  open (CONFIG,"$home/$Config") || die &error;
  $username = <CONFIG>;
  chop $username;
  $password = <CONFIG>;
  chop $password;
  $page = <CONFIG>;  
  $page =~ s/\n//g;
  if (!($page =~ /,/))
  {
    &error6 unless (-e $page);
  }
  return;
}

sub Draw_Form
{
  $cr_usr = crypt($username,$salt);
  $cr_pwd = crypt($password,$salt);
  &header;
  print "<P><center><font face=Arial size=+2>Web Message Edit Form</font><P>\n";
  print "<form method=post action=\"iexp-wme.pl\">\n";
  print "<table border=0 width=500>\n";
  print "<input type=hidden name=USER value=\"$cr_usr\">";
  print "<input type=hidden name=PASSWD value=\"$cr_pwd\">";
  print "<tr><td><font face=Arial>Username:</td><td><input type=text name=USERNAME size=10></td></tr>";
  print "<tr><td><font face=Arial>Password:</td><td><input type=password name=PASSWORD size=10></td></tr>\n";
  if ($page =~ /\,/)
  {
     print "<tr><td><font face=Arial>Page to Update:</td>";
     print "<td><select name=PAGE>";
     @files = split(/\,/,$page);
     $fx = 0;
     while ($fx < @files)
     {
       print "<option>";
       print @files[$fx];
       $fx++;
     }
     print "</select></td></tr>\n";
  }
  else
  {
    print "<input type=hidden name=PAGE value=\"$page\">";
  }
  print "<tr><td><font face=Arial>Field Type:</td><td>
<select name=TYPE>
<option value=TABLE1>Text Wrap
<option value=TABLE3>Border 2
<option value=TABLE4>Border 4
</select>
</td></tr>\n";
  print "<tr><td colspan=2><font face=Arial>Message:<br><textarea cols=75 rows=20 wrap=physical name=MESSAGE>";
  print "</textarea></td></tr>\n";
  if (!($page =~ /\,/))
  {
    print "<tr><td colspan=2><table border=0 width=60%><td>";
    print "<P>Below is the information that was in this field previously.  If ";
    print "you would like to use any of this, you may copy and paste it into ";
    print "the above box.</td></table><!P>";
    print "<table border=1 cellpadding=4 cellspacing=0>";
    print "<td><font face=Arial size=-1 color=FFFFFF>";
    &CC_File;
    print "</td></table><P>";
    print "</td></tr>";
  }
  print "<tr><td colspan=2>";
  print "<input type=submit value=\"Change Page\"> <input type=reset value=\"Clear Form\"></form>\n";
  print "</td></tr></table></center>\n";
  print "<P><hr size=1><font face=Arial size=-1>";
  print "<a href=\"http://www.24u.com\">Accent Internet</a>\n</html>";
  exit;
  return;
}

sub Check_Password
{
  $user_pwd = crypt($FORM{'PASSWORD'},$salt);
  $user_name = crypt($FORM{'USERNAME'},$salt);
  if (($user_pwd eq $FORM{'PASSWD'})&&($user_name eq $FORM{'USER'}))
  {
     return;
  }
  else
  {
     &error2;
  }
  &error;
}

sub Check_input
{
   &error3 unless $FORM{'TYPE'};
   &error3 unless $FORM{'MESSAGE'};
   return;
}

sub Change_File
{
  open (INFILE, "$FORM{'PAGE'}") || die &error4;
  $idlx = 0;
  while ($line = <INFILE>)
  {
    if ($line eq "<!--IEXP WME START -->\n")
    {
      $found++;
    }
    if ($line eq "<!--IEXP WME STOP -->\n")
    {
      $found++;
    }
    @INDATA[$idlx] = $line;
    $idlx++;
  }
  close (INFILE);
  
  &error7 unless ($found == 2);

  open (OUTFILE, ">$FORM{'PAGE'}") || die &error5;
  $zx = 0;
  while (@INDATA[$zx] ne "<!--IEXP WME START -->\n")
  {
     print OUTFILE @INDATA[$zx];          
     $zx++;
  }
  print OUTFILE "<!--IEXP WME START -->\n";

  if ($FORM{'TYPE'} eq "FORM1")
  {
     print OUTFILE "<form><textarea cols=20 rows=2 wrap=virtual>$FORM{'MESSAGE'}</textarea></form>\n";
  }
  if ($FORM{'TYPE'} eq "FORM2")
  {
     print OUTFILE "<form><textarea cols=20 rows=4 wrap=virtual>$FORM{'MESSAGE'}</textarea></form>\n";
  }
  if ($FORM{'TYPE'} eq "FORM3")
  {
     print OUTFILE "<form><textarea cols=40 rows=2 wrap=virtual>$FORM{'MESSAGE'}</textarea></form>\n";
  }
  if ($FORM{'TYPE'} eq "FORM4")
  {
     print OUTFILE "<form><textarea cols=40 rows=4 wrap=virtual>$FORM{'MESSAGE'}</textarea></form>\n";
  }
  if ($FORM{'TYPE'} eq "TABLE1")
  {
     print OUTFILE "$FORM{'MESSAGE'}\n";
  }
  if ($FORM{'TYPE'} eq "TABLE2")
  {
     print OUTFILE "<table border=1><td>$FORM{'MESSAGE'}</td></table>\n";
  }
  if ($FORM{'TYPE'} eq "TABLE3")
  {
     print OUTFILE "<table border=2><td>$FORM{'MESSAGE'}</td></table>\n";
  }
  if ($FORM{'TYPE'} eq "TABLE4")
  {
     print OUTFILE "<table border=4><td>$FORM{'MESSAGE'}</td></table>\n";
  }
  if ($FORM{'TYPE'} eq "BOX1")
  {
     print OUTFILE "<form><input type=text size=10 value=\"$FORM{'MESSAGE'}\"></form>\n";
  }
  if ($FORM{'TYPE'} eq "BOX2")
  {
     print OUTFILE "<form><input type=text size=20 value=\"$FORM{'MESSAGE'}\"></form>\n";
  }
  if ($FORM{'TYPE'} eq "BOX3")
  {
     print OUTFILE "<form><input type=text size=30 value=\"$FORM{'MESSAGE'}\"></form>\n";
  }

  print OUTFILE "<!--IEXP WME STOP -->\n";

  $zx++;
  while (@INDATA[$zx] ne "<!--IEXP WME STOP -->\n")
  {
     $zx++;
  }
  $zx++;
  while ($zx < @INDATA)
  {
     print OUTFILE @INDATA[$zx];
     $zx++;
  }
  close (OUTFILE);
  undef @INDATA;
  return;
}

sub CC_File
{
  open (INFILE, "$page") || die &error4;
  @INDATA = <INFILE>;
  close (INFILE);
  $zx = 0;
  while (@INDATA[$zx] ne "<!--IEXP WME START -->\n")
  {
     $zx++;
  }
  $zx++;
  while (@INDATA[$zx] ne "<!--IEXP WME STOP -->\n")
  {
     $cc_contents .= @INDATA[$zx];
     $zx++;
  }
  $cc_contents =~ s/\</\<\!/g;
  print $cc_contents;
  return;
}

sub Draw_Confirm
{
  &header;
  print "<html><h1>Your page has been updated</h1><P>";
# print "Click <a href=javascript:history.go(-2)>here to go to your page</a>.<P>\n";
  
  print "Use your back button and reload your page</font></center>\n";
  return;
}

sub error
{
  &header;
  print "<h1>WME Configuration Error</h1><P>\n";
  print "Please check that the profile: <tt>$home/$Config</tt> exists.\n";
  print "<P>";
  exit;
}

sub error2
{
  &header;
  print "<h1>Bad username/password Combination</h1><P>\n";
  print "Please click <a href=javascript:history.back()>here to go back</a>\n";
  print "<P>";
  exit;
}

sub error3
{
  &header;
  print "<h1>Form incomplete</h1><P>\n";
  print "Please complete the following information:<P>\n";
  print "<li> Field Type\n" unless $FORM{'TYPE'};
  print "<li> Message\n" unless $FORM{'MESSAGE'};
  print "<P>";
  print "Please click <a href=javascript:history.back()>here to go back</a>\n";
  print "<P>";
  exit;
}

sub error4
{
  &header;
  print "<h1>Specified file $FORM{'PAGE'} does not exists on server</h1><P>\n";
  print "Check with your system administrator. \n";
  print "<P>";
  exit;
}

sub error5
{
  &header;
  print "<h1>Specified file $FORM{'PAGE'} does not have write permissions</h1><P>\n";
  print "Check with your system administrator. \n";
  print "<P>";
  exit;
}

sub error6
{
  &header;
  print "<h1>Specified file $page does not exist.</h1><P>\n";
  print "Check to see that the path and filename is correct in your profile.\n";
  print "<P>";
  exit;
}

sub error7
{
  &header;
  print "<h1>Specified file $page does not contain proper marker tags.</h1><P>\n";
  print "Check your documentation to ensure that you have proper comment tags defined. \n";
  print "<P>";
  exit;
}

sub header
{
  print "Content-type: text/html\n\n";
  print <<EOM;
<HTML>
<TITLE>Page Editor</TITLE>
<body background=\"/iexp/images/black.jpg" bgcolor=#000000 TEXT=DCC687
LINK=35D3B0 VLINK=35D3B0 ALINK=FF0000>
<table border=1 width=100% cellpadding=2 cellspacing=0><td align=center
bgcolor=003031><font color=ffffff size=+0>
Page Editor $version</font></td></table>
EOM
  return;
}