#!/usr/bin/perl

 # Vypíše /etc/fstab ve formě XML souboru.

 # 

 # Závislosti:

 #	aptitude install libxml-writer-perl

 use strict;

 use warnings;

 use IO::String;

 use XML::Writer;

 my $xml;

 my $output = new IO::String->new($xml);

 my $writer = new XML::Writer(	OUTPUT => $output,

 								DATA_MODE => 1,

 								DATA_INDENT => "	");

 $writer->xmlDecl("UTF-8");

 $writer->startTag("fstab");

 my $fstab;

 open($fstab, "<", "/etc/fstab");

 while (my $r = <$fstab>) {

 	if ($r !~ /^\x23/ && $r =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)$/) {

 		$writer->startTag("bod");

 		$writer->dataElement("zařízení", "$1");

 		$writer->dataElement("přípojnýBod", "$2");

 		$writer->dataElement("souborovýSystém", "$3");

 		$writer->startTag("volby");

 		my @volby = split(",", $4);

 		foreach my $volba (@volby) {

 			$writer->dataElement("volba", "$volba");

 		}

 		$writer->endTag();

 		$writer->dataElement("dump", "$5");

 		$writer->dataElement("pass", "$6");

 		$writer->endTag();

 	}

 }

 $writer->endTag();

 print $xml;

 print "\n";