#!/usr/bin/perl

# luci-signup.pl - a script for taking luci-announce signups 
# 
# Copyright (c) 1999 Jeff Licquia.  All rights reserved.  
# 
# This software is licensed under the GNU General Public License
# version 2, and may be used freely under its terms.  In particular,
# this software contains no warranty or guarantee; use it at your own
# risk.  A copy of the GNU General Public License can be found at:
# http://www.gnu.org/copyleft/gpl.html or on any Debian GNU/Linux
# system as /usr/doc/copyright/GPL.

use Tk;

sub clearinfo
  {
    $emailEntry->delete(0, end);
    $nameEntry->delete(0, end);
    $nameEntry->focus();
  }

sub recordinfo
  {
    print $nameEntry->get(), ",", $emailEntry->get(), "\n";
    &clearinfo;
  }

$main = MainWindow->new(-title => "Sign Up For LUCI E-Mail List!");

$nameFrame = $main->Frame();
$nameFrame->pack();
$nameFrame->Label(-text => "Name:", -width => 15)->pack(-side => "left");
$nameEntry = $nameFrame->Entry(-width => 30);
$nameEntry->pack();

$emailFrame = $main->Frame();
$emailFrame->pack();
$emailFrame->Label(-text => "E-mail address:", -width => 15)->
  pack(-side => "left");
$emailEntry = $emailFrame->Entry(-width => 30);
$emailEntry->pack();

$buttonFrame = $main->Frame();
$buttonFrame->pack();
$buttonFrame->Button(-text => "Sign Up", -command => \&recordinfo)->
  pack(-side => "left");
$buttonFrame->Button(-text => "Clear", -command => \&clearinfo)->pack();

MainLoop;