1 |
unnilennium |
1.1 |
--- smeserver-usbdisksmanager-1.2/root/etc/e-smith/web/functions/usbdisks.old 2017-03-24 18:06:42.000000000 -0400 |
2 |
|
|
+++ smeserver-usbdisksmanager-1.2/root/etc/e-smith/web/functions/usbdisks 2017-03-25 01:31:02.000000000 -0400 |
3 |
|
|
@@ -308,7 +308,7 @@ |
4 |
|
|
if ( ( "$disques{$clef}{DEVTYPE}" eq "USB" ) ||("$disques{$clef}{DEVTYPE}" eq "FireWire" ) ) |
5 |
|
|
{ |
6 |
|
|
my %disque = %{$disques{$clef}}; |
7 |
|
|
- my $options= OptionMenu(\%disque); |
8 |
|
|
+ my $options= OptionMenu(\%disque) || ""; |
9 |
|
|
print "<td><font color=black>$options</font></td>"; |
10 |
|
|
} |
11 |
|
|
else |
12 |
|
|
@@ -358,7 +358,7 @@ |
13 |
|
|
my $mounted=`mount`; |
14 |
|
|
my @fstab= `cat /etc/fstab`; |
15 |
|
|
my @blkid= `/sbin/blkid -c /dev/null `; |
16 |
|
|
- my @swap= `cat /proc/swaps|grep '/' |cut -f1`; warn $swap[0]; |
17 |
|
|
+ my @swap= `cat /proc/swaps|grep '/' |cut -f1`; |
18 |
|
|
my @lvscan = `/sbin/lvscan`; |
19 |
|
|
my %disques; |
20 |
|
|
my $i = 0; |
21 |
|
|
@@ -586,8 +586,8 @@ |
22 |
|
|
my $temp_status =db_get_prop(\%usbdisks, $UUID , "status"); |
23 |
|
|
my $temp_status_media = $_=db_get_prop(\%usbdisks, $UUID , "status_media") ? db_get_prop(\%usbdisks, $UUID , "status_media") : "disabled"; |
24 |
|
|
my $temp_mountto=db_get_prop(\%usbdisks, $UUID , "mountto"); |
25 |
|
|
- my $temp_options_mountto= $_=db_get_prop(\%usbdisks, $UUID , "options") ? db_get_prop(\%usbdisks, $UUID , "options") : "pamconsole,exec,noauto,managed"; |
26 |
|
|
- |
27 |
|
|
+ my $temp_options_mountto= $_=db_get_prop(\%usbdisks, $UUID , "options") ? db_get_prop(\%usbdisks, $UUID , "options") : "default,noauto"; |
28 |
|
|
+ # pamconsole managed should be removed if present |
29 |
|
|
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $tr_titre_modifier.' '.$UUID.'<br><br>'); |
30 |
|
|
GeneralMenu ($q); |
31 |
|
|
print $q->hr; |
32 |
|
|
@@ -602,7 +602,7 @@ |
33 |
|
|
esmith::cgi::genSmallCell ($q, "<input type=\"text\" size=\"45\" name=\"usbd_mountto\" value=\"$temp_mountto\">(".$temp_mountto.")")); |
34 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "$tr_options_mount_to :"), |
35 |
|
|
esmith::cgi::genSmallCell ($q, "<input type=\"text\" size=\"45\" name=\"usbd_options_mountto\" value=\"$temp_options_mountto\">(".$temp_options_mountto.") |
36 |
|
|
- <br>defaults / pamconsole,exec,noauto,managed")); |
37 |
|
|
+ <br>defaults : defaults,noauto")); |
38 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "$tr_status :"), |
39 |
|
|
esmith::cgi::genSmallCell ($q, "<SELECT name=\"usbd_status\"><option value =\"$temp_status\">$temp_status</option><option value =\"disabled\">disabled</option><option value =\"enabled\">enabled</option</SELECT>(".$temp_status.")")); |
40 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "$tr_status_media :"), |
41 |
|
|
@@ -668,7 +668,7 @@ |
42 |
|
|
if ($pud_status_media eq "enabled") {db_set_prop(\%usbdisks, $pud_UUID , "status_media", "enabled");} else{db_set_prop(\%usbdisks, $pud_UUID , "status_media", "disabled");}; |
43 |
|
|
|
44 |
|
|
#options |
45 |
|
|
- if ($pud_options_mountto eq "") {db_set_prop(\%usbdisks, $pud_UUID , "options", "pamconsole,exec,noauto,managed");} else{db_set_prop(\%usbdisks, $pud_UUID , "options",$pud_options_mountto );}; |
46 |
|
|
+ if ($pud_options_mountto eq "") {db_set_prop(\%usbdisks, $pud_UUID , "options", "default,noauto");} else{db_set_prop(\%usbdisks, $pud_UUID , "options",$pud_options_mountto );}; |
47 |
|
|
|
48 |
|
|
|
49 |
|
|
$pud_mountto =~ s/\\/\//g; # au cas ou un windowzien viens à taper le chemin de la ressource partagée à la mode Win$ |
50 |
|
|
@@ -717,8 +717,8 @@ |
51 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "mount to"), |
52 |
|
|
esmith::cgi::genSmallCell ($q, "<input type=\"text\" size=\"45\" name=\"usbd_mountto\">")); |
53 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "$tr_options_mount_to :"), |
54 |
|
|
- esmith::cgi::genSmallCell ($q, "<input type=\"text\" size=\"45\" name=\"usbd_options_mountto\" value=\"pamconsole,exec,noauto,managed\"> |
55 |
|
|
- <br>defaults / pamconsole,exec,noauto,managed")); |
56 |
|
|
+ esmith::cgi::genSmallCell ($q, "<input type=\"text\" size=\"45\" name=\"usbd_options_mountto\" value=\"default,noauto\"> |
57 |
|
|
+ <br>defaults : default,noauto")); |
58 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "Status"), |
59 |
|
|
esmith::cgi::genSmallCell ($q, "<SELECT name=\"usbd_status\"><option value =\"disabled\">disabled</option><option value =\"enabled\">enabled</option</SELECT>")); |
60 |
|
|
print $q->Tr (esmith::cgi::genSmallCell ($q, "$tr_status_media :"), |
61 |
|
|
@@ -780,7 +780,7 @@ |
62 |
|
|
if ($pud_status_media eq "enabled") {db_set_prop(\%usbdisks, $pud_UUID , "status_media", "enabled");} else{db_set_prop(\%usbdisks, $pud_UUID , "status_media", "disabled");}; |
63 |
|
|
|
64 |
|
|
#options |
65 |
|
|
- if ($pud_options_mountto eq "") {db_set_prop(\%usbdisks, $pud_UUID , "options", "pamconsole,exec,noauto,managed");} else{db_set_prop(\%usbdisks, $pud_UUID , "options",$pud_options_mountto );}; |
66 |
|
|
+ if ($pud_options_mountto eq "") {db_set_prop(\%usbdisks, $pud_UUID , "options", "default,noauto");} else{db_set_prop(\%usbdisks, $pud_UUID , "options",$pud_options_mountto );}; |
67 |
|
|
#mount to |
68 |
|
|
$pud_mountto =~ s/\\/\//g; # au cas ou un windowzien viens à taper le chemin de la ressource partagée à la mode Win$ |
69 |
|
|
if (-e $pud_mountto) { |
70 |
|
|
@@ -811,13 +811,14 @@ |
71 |
|
|
|
72 |
|
|
sub USBMountDisk($) |
73 |
|
|
{ |
74 |
|
|
- my ($q) = @_; |
75 |
|
|
- my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
76 |
|
|
+ my ($q) = @_; |
77 |
|
|
+ my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
78 |
|
|
+ ($UUID) = $UUID =~ m/^([A-Z0-9-]+)$/ig ; |
79 |
|
|
my $blkid= `/sbin/blkid -t UUID=$UUID`; |
80 |
|
|
- my $dev= $blkid =~ /^(\/dev\/[a-z\-]{2,3}[0-9]{1}):/ ? $1 : "unknown"; |
81 |
|
|
+ my $dev= $blkid =~ /^(\/dev\/[a-z0-9_\-\/]{2,}):/ ? $1 : "unknown"; |
82 |
|
|
# essaie de montage par UUID ne semble pas correcte pour vfat |
83 |
|
|
#my $mount=`/bin/mount -U $UUID`; |
84 |
|
|
- my $mount=`/bin/mount $dev `; |
85 |
|
|
+ my $mount=`/bin/mount $dev 2>&1`; |
86 |
|
|
my $mounted= `/bin/mount`=~ /$dev/ ? "$tr_success" : "$tr_failure"; |
87 |
|
|
print " $dev :mount $mounted <br>"; |
88 |
|
|
showInitial ($q, "<b><font size='+1'>$tr_rapport mount :</font></b><br>$mounted<BR> |
89 |
|
|
@@ -826,14 +827,15 @@ |
90 |
|
|
|
91 |
|
|
sub USBUnMountDisk($) |
92 |
|
|
{ |
93 |
|
|
- my ($q) = @_; |
94 |
|
|
- my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
95 |
|
|
+ my ($q) = @_; |
96 |
|
|
+ my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
97 |
|
|
+ ($UUID) = $UUID =~ m/^([A-Z0-9-]+)$/ig ; |
98 |
|
|
my $blkid= `/sbin/blkid -t UUID=$UUID`; |
99 |
|
|
- my $dev= $blkid =~ /^(\/dev\/[a-z\-]{2,3}[0-9]{1}):/ ? $1 : "unknown"; |
100 |
|
|
+ my $dev= $blkid =~ /^(\/dev\/[a-z0-9_\-\/]{2,}):/ ? $1 : "unknown"; |
101 |
|
|
my $mounted=`mount`; |
102 |
|
|
#destination |
103 |
|
|
my $dest= $mounted =~ /$dev on (\/media\/[a-zA-Z0-9_]+) / ? $1 : "unknown" ; |
104 |
|
|
- my $mount=`/bin/umount -f $dest`; |
105 |
|
|
+ my $mount=`/bin/umount -f $dest 2>&1`; |
106 |
|
|
$mounted= `/bin/mount`=~ /$dev on (\/media\/[a-zA-Z0-9_]+)/ ? "$tr_failure" : "$tr_success"; |
107 |
|
|
showInitial ($q, "<b><font size='+1'>$tr_rapport umount :</font></b><br>$mounted<BR> |
108 |
|
|
<B>$dev : $dest</B>: $mount<BR><BR>"); |
109 |
|
|
@@ -845,7 +847,7 @@ |
110 |
|
|
|
111 |
|
|
my $OUT= "<h1>".$tr_known_mounts."</h1>"; |
112 |
|
|
$OUT .= "<table border='1' cellpadding='3' cellspacing='3'>\n"; |
113 |
|
|
- $OUT .= "<tr><td>$tr_uuid</td><td>$tr_device_type</td><td>$tr_status_mountto</td><td>$tr_status_mountmedia</td><td>$tr_mount_to</td><td>$tr_connected</td><td>$tr_mounted_to</td><td>$tr_action</td></tr>\n"; |
114 |
|
|
+ $OUT .= "<tr><td>$tr_uuid</td><td>$tr_device_type</td><td>$tr_status_mountmedia</td><td>$tr_status_mountto</td><td>$tr_mount_to</td><td>$tr_connected</td><td>$tr_mounted_to</td><td>$tr_action</td></tr>\n"; |
115 |
|
|
my $clef; |
116 |
|
|
my $disque; |
117 |
|
|
|
118 |
|
|
@@ -860,8 +862,28 @@ |
119 |
|
|
$OUT .= "<tr>\n"; |
120 |
|
|
$OUT .= "<td><font color=black>$clef</font></td>"; |
121 |
|
|
$OUT .= "<td><font color=blue>".db_get_type(\%usbdisks, $clef )."</font></td>"; |
122 |
|
|
+ # status auto mount media |
123 |
|
|
+ $OUT .= "<td> "; |
124 |
|
|
+ if ( $usbd_status_mediaG eq "disabled") |
125 |
|
|
+ { |
126 |
|
|
+ $OUT.= "Globally disabled" |
127 |
|
|
+ } |
128 |
|
|
+ else |
129 |
|
|
+ { |
130 |
|
|
+ if ( (db_get_type(\%usbdisks, $clef ) eq "USB") || (db_get_type(\%usbdisks, $clef ) eq "FireWire") ) |
131 |
|
|
+ { |
132 |
|
|
+ if (db_get_prop(\%usbdisks, $clef , "status_media")eq "enabled") |
133 |
|
|
+ {$OUT .="<a href=usbdisks?state=disable_mediaentry&UUID=$clef>".db_get_prop(\%usbdisks, $clef , "status_media")." </a>"; } |
134 |
|
|
+ elsif (db_get_prop(\%usbdisks, $clef , "status_media")eq "disabled") |
135 |
|
|
+ {$OUT .="<a href=usbdisks?state=enable_mediaentry&UUID=$clef>".db_get_prop(\%usbdisks, $clef , "status_media")." </a>"; } |
136 |
|
|
+ else |
137 |
|
|
+ {$OUT .="<a href=usbdisks?state=enable_mediaentry&UUID=$clef>not set</a>"; } |
138 |
|
|
+ } |
139 |
|
|
+ else {$OUT.= db_get_prop(\%usbdisks, $clef , "status_media");}; |
140 |
|
|
+ } |
141 |
|
|
+ $OUT.= "</td>"; |
142 |
|
|
# status auto mount_to |
143 |
|
|
- $OUT .= "<td> "; |
144 |
|
|
+ $OUT .= "<td> "; |
145 |
|
|
if ( (db_get_type(\%usbdisks, $clef ) eq "USB") || (db_get_type(\%usbdisks, $clef ) eq "FireWire") ) |
146 |
|
|
{ |
147 |
|
|
if (db_get_prop(\%usbdisks, $clef , "status")eq "enabled") |
148 |
|
|
@@ -871,19 +893,6 @@ |
149 |
|
|
} |
150 |
|
|
else {$OUT.= db_get_prop(\%usbdisks, $clef , "status");}; |
151 |
|
|
$OUT.= "</td>"; |
152 |
|
|
- # status auto mount media |
153 |
|
|
- $OUT .= "<td> "; |
154 |
|
|
- if ( (db_get_type(\%usbdisks, $clef ) eq "USB") || (db_get_type(\%usbdisks, $clef ) eq "FireWire") ) |
155 |
|
|
- { |
156 |
|
|
- if (db_get_prop(\%usbdisks, $clef , "status_media")eq "enabled") |
157 |
|
|
- {$OUT .="<a href=usbdisks?state=disable_mediaentry&UUID=$clef>".db_get_prop(\%usbdisks, $clef , "status_media")." </a>"; } |
158 |
|
|
- elsif (db_get_prop(\%usbdisks, $clef , "status_media")eq "disabled") |
159 |
|
|
- {$OUT .="<a href=usbdisks?state=enable_mediaentry&UUID=$clef>".db_get_prop(\%usbdisks, $clef , "status_media")." </a>"; } |
160 |
|
|
- else |
161 |
|
|
- {$OUT .="<a href=usbdisks?state=enable_mediaentry&UUID=$clef>not set</a>"; } |
162 |
|
|
- } |
163 |
|
|
- else {$OUT.= db_get_prop(\%usbdisks, $clef , "status_media");}; |
164 |
|
|
- $OUT.= "</td>"; |
165 |
|
|
#mount to |
166 |
|
|
$OUT .= "<td><font color=black>".db_get_prop(\%usbdisks, $clef , "mountto")."</font></td>"; |
167 |
|
|
# connecté |
168 |
|
|
@@ -970,13 +979,16 @@ |
169 |
|
|
{ |
170 |
|
|
my ($q) = @_; |
171 |
|
|
my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
172 |
|
|
- my $blkid= `/sbin/blkid -t UUID=$UUID`; |
173 |
|
|
- my $dev= $blkid =~ /^(\/dev\/[a-z\-]{2,3}[0-9]{1}):/ ? $1 : "$tr_unknown"; |
174 |
|
|
- my $dest= db_get_prop(\%usbdisks, $UUID, "mountto"); |
175 |
|
|
- my $options= $_=db_get_prop(\%usbdisks, $UUID, "options")? db_get_prop(\%usbdisks, $UUID, "options") : "pamconsole,exec,noauto,managed"; |
176 |
|
|
+ ($UUID) = $UUID =~ m/^([A-Z0-9-]+)$/ig ; |
177 |
|
|
+ my $blkid= `/sbin/blkid -t UUID=$UUID -c /dev/null`; |
178 |
|
|
+ my $dev= $blkid =~ /^(\/dev\/[a-z0-9_\-\/]{2,}):/ ? $1 : "$tr_unknown"; |
179 |
|
|
+ #my $dev = `/bin/readlink -f /dev/disk/by-uuid/$UUID`;#with line return at the end |
180 |
|
|
+ my $dest= db_get_prop(\%usbdisks, $UUID, "mountto"); |
181 |
|
|
+ my $options= $_=db_get_prop(\%usbdisks, $UUID, "options")? db_get_prop(\%usbdisks, $UUID, "options") : "default,noauto"; |
182 |
|
|
# mount par le UUID pas supporté pour vfat |
183 |
|
|
- #my $mount=`/bin/mount -U $UUID $dest -o pamconsole,exec,noauto,managed`; |
184 |
|
|
- my $mount=`/bin/mount $dev -t auto $dest -o $options`; |
185 |
|
|
+ #my $mount=`/bin/mount -U $UUID $dest -o default,noauto`; |
186 |
|
|
+ # to get filesystem type : blkid -o value -s TYPE /dev/sdc1 |
187 |
|
|
+ my $mount=`/bin/mount $dev -t auto $dest -o $options 2>&1`; |
188 |
|
|
my $mounted= `/bin/mount`=~ /$dev/ ? "$tr_success" : "$tr_failure"; |
189 |
|
|
showInitial ($q, "<b><font size='+1'>$tr_rapport mount : </font></b><br>$mounted<BR> |
190 |
|
|
<B>$dev</B>: $mount<BR><BR>"); |
191 |
|
|
@@ -985,12 +997,13 @@ |
192 |
|
|
|
193 |
|
|
sub USBUnMounttoDisk($) |
194 |
|
|
{ |
195 |
|
|
- my ($q) = @_; |
196 |
|
|
- my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
197 |
|
|
+ my ($q) = @_; |
198 |
|
|
+ my $UUID = $q->param ('UUID') || return showInitial ($q,""); |
199 |
|
|
+ ($UUID) = $UUID =~ m/^([A-Z0-9-]+)$/ig ; |
200 |
|
|
my $blkid= `/sbin/blkid -t UUID=$UUID`; |
201 |
|
|
- my $dev= $blkid =~ /^(\/dev\/[a-z\-]{2,3}[0-9]{1}):/ ? $1 : "unknown"; |
202 |
|
|
+ my $dev= $blkid =~ /^(\/dev\/[a-z0-9_\-\/]{2,}):/ ? $1 : "unknown"; |
203 |
|
|
my $dest= db_get_prop(\%usbdisks, $UUID, "mountto"); |
204 |
|
|
- my $mount=`/bin/umount -f $dest`; |
205 |
|
|
+ my $mount=`/bin/umount -f $dest 2>&1`; |
206 |
|
|
my $mounted= `/bin/mount`=~ /$dev/ ? "$tr_failure" : "$tr_success"; |
207 |
|
|
showInitial ($q, "<b><font size='+1'>$tr_rapport umount :</font></b><br>$mounted<BR> |
208 |
|
|
<B>$dest</B>: $mount<BR><BR>"); |