You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

67 lines
2.6 KiB

#!/usr/bin/perl -wT
# vim: ft=xml ts=4 sw=4 et:
#----------------------------------------------------------------------
# heading : Collaboration
# description : Logon Script
# navigation : 2000 2100
#----------------------------------------------------------------------
#----------------------------------------------------------------------
# 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', 'HomeDrive')">
<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>