|
|
|
|
#!/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>
|
|
|
|
|
|
