brianr/SM2Gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Lex file creation

Browse Source
This commit is contained in:
Brian Read
2024-04-10 08:41:31 +01:00
parent 2ff5681988
commit 2d3fabcc5b
6 changed files with 128 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Targets/Nfsshare.pm
View File

@@ -87,12 +87,12 @@ sub do_update {
if ($trt eq 'PARAMS'){
#Validate for panel PARAMS
# set $ret = $c->l(''Error message') if invalid'
# set $ret = $c->l('Error message') if invalid'
}
if ($trt eq 'TABLE'){
#Validate for panel TABLE
# set $ret = $c->l(''Error message') if invalid'
# set $ret = $c->l('Error message') if invalid'
}
if ($ret ne "ok"){

26
Targets/_nfs_PARAMS.html.ep
View File

@@ -15,13 +15,13 @@
%# Inputs etc in here.
<h2>Manage NFS Ibay settings:</h2><p>These parameters will be effective only if the share is enabled. The share is in /home/e-smith/files/ibays/$(STASH:ibayname)/files</p>
<p><span class=label>
%=l('Information Bay name'), class => 'label'
%=l('nfs_Information Bay name'), class => 'label'
</span><span class=data>
%= stash("IbayName"), class => 'data'
</span></p>
<p><span class=label>
%=l('Share owner Group')
%=l('nfs_Share owner Group')
</span><span class=data>
% my @ShareOwnerGrp_options = ['Write = admin, Read = group', 'Write = group, Read = everyone', 'Write = group, Read = group'];
% param 'ShareOwnerGrp' => $nfs_data->{ShareOwnerGrp} unless param 'ShareOwnerGrp';
@@ -29,7 +29,7 @@
<br></span> </p>
<p><span class=label>
%=l('Enable the NFS Share')
%=l('nfs_Enable the NFS Share')
</span><span class=data>
% my @EnableNFSshare_options = ['Disabled', 'Enabled'];
% param 'EnableNFSshare' => $nfs_data->{EnableNFSshare} unless param 'EnableNFSshare';
@@ -37,7 +37,7 @@
<br></span> </p>
<p><span class=label>
%=l('EnableShare on local network')
%=l('nfs_EnableShare on local network')
</span><span class=data>
% my @ShareOnLocalNetwork_options = ['Disabled', 'Enabled'];
% param 'ShareOnLocalNetwork' => $nfs_data->{ShareOnLocalNetwork} unless param 'ShareOnLocalNetwork';
@@ -45,14 +45,14 @@
<br></span> </p>
<p>For writing permissions,allowing the root user and using insecure ports, you must configure a list of one IP per line, being part of the local network(s).</p>
<span class=label>
%=l('NFS Client(s) allowed')
%=l('nfs_NFS Client(s) allowed')
</span><span class=data>
% param 'NFSClientsAllowed' => $nfs_data->{NFSClientsAllowed} unless param 'NFSClientsAllowed';
%= text_area 'NFSClientsAllowed', cols=>40, rows=>5
</span><br>
<p><span class=label>
%=l('File system permissions')
%=l('nfs_File system permissions')
</span><span class=data>
% my @FileSystemPermissions_options = ['Read only', 'Read and Write'];
% param 'FileSystemPermissions' => $nfs_data->{FileSystemPermissions} unless param 'FileSystemPermissions';
@@ -60,7 +60,7 @@
<br></span> </p>
<p><span class=label>
%=l('Write (a)synchronously.')
%=l('nfs_Write (a)synchronously.')
</span><span class=data>
% my @WriteAsync_options = ['Synchronous', 'Asynchronous'];
% param 'WriteAsync' => $nfs_data->{WriteAsync} unless param 'WriteAsync';
@@ -68,7 +68,7 @@
<br></span> </p>
<p><span class=label>
%=l('Delays the disk writings.')
%=l('nfs_Delays the disk writings.')
</span><span class=data>
% my @DelayWrite_options = ['Write delay', 'No write delay'];
% param 'DelayWrite' => $nfs_data->{DelayWrite} unless param 'DelayWrite';
@@ -76,7 +76,7 @@
<br></span> </p>
<p><span class=label>
%=l('Squash the power of users.')
%=l('nfs_Squash the power of users.')
</span><span class=data>
% my @Squash_options = ['All users squash', 'No root squash', 'root squash'];
% param 'Squash' => $nfs_data->{Squash} unless param 'Squash';
@@ -84,7 +84,7 @@
<br></span> </p>
<p><span class=label>
%=l('Browse the parent folders')
%=l('nfs_Browse the parent folders')
</span><span class=data>
% my @BrowseParents_options = ['Hide folder', 'Show folder'];
% param 'BrowseParents' => $nfs_data->{BrowseParents} unless param 'BrowseParents';
@@ -92,7 +92,7 @@
<br></span> </p>
<p><span class=label>
%=l('Requests on secure ports.')
%=l('nfs_Requests on secure ports.')
</span><span class=data>
% my @SecurePorts_options = ['Secure', 'Insecure'];
% param 'SecurePorts' => $nfs_data->{SecurePorts} unless param 'SecurePorts';
@@ -100,14 +100,14 @@
<br></span> </p>
<p>Set the uid and gid if you want all requests appear to be from one user or one group, otherwise leave blank.</p>
<p><span class=label>
%=l('Set the UID.')
%=l('nfs_Set the UID.')
</span><span class=data>
% param 'SetUID' => $nfs_data->{SetUID} unless param 'SetUID';
%= text_field 'SetUID', size => '50', class => 'input' , pattern=>'.*' , placeholder=>'SetUID'
<br></span></p>
<p><span class=label>
%=l('Set the GID.')
%=l('nfs_Set the GID.')
</span><span class=data>
% param 'SetGID' => $nfs_data->{SetGID} unless param 'SetGID';
%= text_field 'SetGID', size => '50', class => 'input' , pattern=>'.*' , placeholder=>'SetGID'

20
Targets/nfsshare_en.lex Normal file
View File

@@ -0,0 +1,20 @@
'nfs_APPLY' => 'APPLY'
'nfs_Save' => 'Save'
'nfs_Squash the power of users.' => 'Squash the power of users.'
'nfs Hello PARAMS' => 'Hello PARAMS'
'nfs_Requests on secure ports.' => 'Requests on secure ports.'
'nfs_Error message' => 'Error message'
'nfs_Enable the NFS Share' => 'Enable the NFS Share'
'nfs_NFS data share' => 'NFS data share'
'nfs_Delays the disk writings.' => 'Delays the disk writings.'
'nfs_Browse the parent folders' => 'Browse the parent folders'
'nfs_Write (a)synchronously.' => 'Write (a)synchronously.'
'nfs_NFS Client(s) allowed' => 'NFS Client(s) allowed'
'nfs_EnableShare on local network' => 'EnableShare on local network'
'nfs_Information Bay name' => 'Information Bay name'
'nfs_ok message' => 'ok message'
'nfs_Set the GID.' => 'Set the GID.'
'nfs_Share owner Group' => 'Share owner Group'
'nfs Hello TABLE' => 'Hello TABLE'
'nfs_Set the UID.' => 'Set the UID.'
'nfs_File system permissions' => 'File system permissions'