#!/usr/bin/perl -wT

# vim: ft=xml ts=4 sw=4 et:
#----------------------------------------------------------------------
# heading     : Collaboration
# description : Logon Script
# navigation  : 3000 3100
#----------------------------------------------------------------------
#----------------------------------------------------------------------
# copyright (C) 2012 Firewall-Services
# daniel@firewall-services.com
#
# 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
# (at your option) 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
#
#----------------------------------------------------------------------

use strict;
use esmith::TestUtils;
use esmith::FormMagick::Panel::logonscript;

my $fm = esmith::FormMagick::Panel::logonscript->new();

use CGI;
my $q = new CGI;
$fm->display();

__DATA__
<form title="FORM_TITLE" header="/etc/e-smith/web/common/head.tmpl" footer="/etc/e-smith/web/common/foot.tmpl">
    <page name="First" pre-event="print_status_message()" post-event="save_change()" >
        <description>FIRSTPAGE_DESC</description>
        <field type="select"
            id="homedrive"
            options="'a' => 'A:', 'b' => 'B:', 'c' => 'C:', 'd' => 'D:',
                     'e' => 'E:', 'f' => 'F:', 'g' => 'G:', 'h' => 'H:',
                     'i' => 'I:', 'j' => 'J:', 'k' => 'K:', 'l' => 'L:',
                     'm' => 'M:', 'n' => 'N:', 'o' => 'O:', 'p' => 'P:',
                     'q' => 'Q:', 'r' => 'R:', 's' => 'S:', 't' => 'T:',
                     'u' => 'U:', 'v' => 'V:', 'w' => 'W:', 'x' => 'X:',
                     'y' => 'Y:', 'z' => 'Z:'"
            value="get_prop('smb', 'LogonDrive')">
            <label>LABEL_HOME_DRIVE</label>
            <description>DESC_HOME_DRIVE</description>
        </field>
        <field type="textarea"
            id="logonscript"
            rows="25"
            cols="70"
            value="read_logonscript()">
            <label>LABEL_LOGON_SCRIPT</label>
            <description>DESC_LOGON_SCRIPT</description>
        </field>
        <subroutine src="print_button('SAVE')" />
    </page>
</form>