- Clean CA status JSON fields
- Browse files
-
Xdev Host Manager committed 2 days ago
Showing 1 changed files
with
2 additions
and
2 deletions
+2
-2
scripts/ca_manager.sh
@@ -38,14 +38,14 @@ need_openssl() {
|
||
| 38 | 38 |
|
| 39 | 39 |
json_escape() {
|
| 40 | 40 |
perl -Mstrict -Mwarnings -e ' |
| 41 |
- my $s = join("", <>);
|
|
| 41 |
+ my $s = $ARGV[0] // ""; |
|
| 42 | 42 |
$s =~ s/\\/\\\\/g; |
| 43 | 43 |
$s =~ s/"/\\"/g; |
| 44 | 44 |
$s =~ s/\n/\\n/g; |
| 45 | 45 |
$s =~ s/\r/\\r/g; |
| 46 | 46 |
$s =~ s/\t/\\t/g; |
| 47 | 47 |
print qq{"$s"};
|
| 48 |
- ' <<< "${1:-}"
|
|
| 48 |
+ ' "${1:-}"
|
|
| 49 | 49 |
} |
| 50 | 50 |
|
| 51 | 51 |
safe_name() {
|