Curses::Forms::Dialog::Logon - Curses Forms Logon Dialog

	use Curses::Forms::Dialog::Logon;

  ($rv, $user, $pass) = logon('User Logon', BTN_OK | BTN_CANCEL, 
    20, qw(white red yellow));

  ($rv, $user, $pass) = logon('User Logon', BTN_OK | BTN_CANCEL, 
    20, qw(white red yellow));

  BTN_OK
  BTN_CANCEL
  BTN_HELP

# Curses::Forms::Dialog::Logon.pm -- Curses Forms Logon Dialog
#
# (c) 2001, Arthur Corliss <corliss@digitalmages.com>
#
# $Id: Logon.pm,v 0.4 2002/11/04 01:06:56 corliss Exp corliss $
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
########################################################################

#####################################################################
#
# Environment definitions
#
#####################################################################

package Curses::Forms::Dialog::Logon;

use strict;
use vars qw($VERSION @ISA @EXPORT);
use Curses;
use Curses::Forms;
use Curses::Forms::Dialog;
use Exporter;
use Carp;

$VERSION = (q$Revision: 0.4 $ =~ /(\d+(?:\.(\d+))+)/)[0] || '0.1';
@ISA = qw(Curses::Forms Exporter);
@EXPORT = qw(logon);

########################################################################
#
# Module code follows. . .
#
########################################################################

sub logon {
  my $title = shift;
  my $buttons = shift;
  my $limit = shift || 20;
  my ($fg, $bg, $cfg) = @_;
  my ($form, @buttons, $rv, $max);
  my ($cols, $lines, $bx, $by, $fy, $fx);

  # Build array of buttons to display
  push(@buttons, 'OK') if $buttons & BTN_OK;
  push(@buttons, 'Cancel') if $buttons & BTN_CANCEL;
  push(@buttons, 'Help') if $buttons & BTN_HELP;

  unless (@buttons) {
    carp "dialog:  No buttons specified for dialog!";
    return 0;
  }

  # Calculate the necessary dimensions of the message box, based
  # on both the button(s) and the length of the TextField.
  $max = 10 * @buttons + 2 * $#buttons;
  $max = $max > 23 ? $max : 23;

  # Calculate cols and lines
  $cols = $max + 2;
  $lines = 9;

  # Exit if the geometry exceeds the display
  unless ($cols + 2 < $COLS && $lines + 2 < $LINES) {
    carp "dialog:  Calculated geometry exceeds display geometry!";
    return 0;
  }

  # Calculate upper-left corners
  $bx = 10 * @buttons + 2 * $#buttons;
  $bx = int(($cols - $bx) / 2);
  $by = $lines - 3;
  $fx  = int(($cols - 23) / 2);

  local *btnexit = sub {
    my $f = shift;
    my $key = shift;

    return unless $key eq "\n";
    $f->setField(EXIT => 1);
  };

  $form = Curses::Forms::Dialog::Logon->new({
    AUTOCENTER    => 1,
    DERIVED       => 0,
    COLUMNS       => $cols,
    LINES         => $lines,
    CAPTION       => $title,
    CAPTIONCOL    => $cfg,
    BORDER        => 1,
    FOREGROUND    => $fg,
    BACKGROUND    => $bg,
    FOCUSED       => 'Username',
    TABORDER      => [qw(Username Password Buttons)],
    WIDGETS       => {
      Username   => {
        TYPE      => 'TextField',
        CAPTION   => 'Username',
        CAPTIONCOL=> $cfg,
        Y         => 0,
        X         => $fx,
        FOREGROUND=> $fg,
        BACKGROUND=> $bg,
        COLUMNS   => 21,
        MAXLENGTH => $limit,
        },
      Password   => {
        TYPE      => 'TextField',
        CAPTION   => 'Password',
        CAPTIONCOL=> $cfg,
        Y         => 3,
        X         => $fx,
        FOREGROUND=> $fg,
        BACKGROUND=> $bg,
        COLUMNS   => 21,
        MAXLENGTH => $limit,
        PASSWORD  => 1,
        },
      Buttons     => {
        TYPE      => 'ButtonSet',
        LABELS    => [@buttons],
        Y         => $by,
        X         => $bx,
        BORDER    => 1,
        FOREGROUND=> $fg,
        BACKGROUND=> $bg,
        OnExit    => *btnexit,
        },
      },
    });
  $form->execute;

  return ($form->getWidget('Buttons')->getField('VALUE'),
    $form->getWidget('Username')->getField('VALUE'),
    $form->getWidget('Password')->getField('VALUE'));
}

1;