25 lines
388 B
Perl
Executable file
25 lines
388 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
$first = 1;
|
|
|
|
print "{\n";
|
|
print "\t\"data\":[\n\n";
|
|
|
|
for (`cat /proc/mounts`)
|
|
{
|
|
($fsname, $fstype) = m/\S+ (\S+) (\S+)/;
|
|
$fsname =~ s!/!\\/!g;
|
|
|
|
print "\t,\n" if not $first;
|
|
$first = 0;
|
|
|
|
print "\t{\n";
|
|
print "\t\t\"{#FSNAME}\":\"$fsname\",\n";
|
|
print "\t\t\"{#FSTYPE}\":\"$fstype\"\n";
|
|
print "\t}\n";
|
|
}
|
|
|
|
print "\n\t]\n";
|
|
print "}\n";
|
|
|