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
67 lines
2.6 KiB
#!/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>
|
|
|
|
|