#!/usr/local/bin/perl

# this is a sandbox of sorts for testing purposes.

# currently, the goal is to attempt to "encrypt" a string

# client-side.  i've yet to figure out if javascript can

# even do this!

binmode(STDIN, ":utf8");

binmode(STDOUT, ":utf8");

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header header);

use Bc_chef qw(cookie_get);

use Bc_misc qw(get_param referrer);

use Bc_sql qw(

              get_constant

              sql_execute

              user_exists

              $QUERY_PAGE

              $QUERY_UID

              $LOGGEDIN

              $DB

             );

use Security qw(banned);

use Redir qw(error_redir notice_redir);

my $DEBUG = 0;

my $output = pre_html_header();

my $password = get_param("password");

  ############################################################

  ### YOUR CONTENT HERE

  if (not $password) {

    $output .= "<form>Type password here: <input name=password type=password placeholder='a password field'><br><button>then click here</button>";

  } else {

    $output .= $password;

  }

  ############################################################

print $output;

exit 1;