From 60cb01f9a81c311f914aed4a23e8e5b35e965918 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Sat, 11 May 2013 13:27:07 +0200
Subject: soem more cleanup

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 reformat_fstab.pl | 70 -------------------------------------------------------
 1 file changed, 70 deletions(-)
 delete mode 100755 reformat_fstab.pl

(limited to 'reformat_fstab.pl')

diff --git a/reformat_fstab.pl b/reformat_fstab.pl
deleted file mode 100755
index 9c81d8d..0000000
--- a/reformat_fstab.pl
+++ /dev/null
@@ -1,70 +0,0 @@
-#! /usr/bin/perl
-use warnings;
-use strict;
-
-my $fstabFile = shift;
-my $fstabOld;
-my $fstab;
-my @fstabLines;
-push @fstabLines, ['# <file system>', '<dir>', '<type>', '<options>', '<dump>', '<pass>'];
-my @lengths = map {length($_)} @{$fstabLines[0]};
-my $longestLine;
-
-open(my $fh, '<'. $fstabFile) or die "Unable to open $fstabFile: $!\n";
-while(defined(my $line =<$fh>))
-{
-    $fstabOld .= $line;
-    $longestLine = (length($line) > $longestLine) ? length($line) : $longestLine;
-    if ($line =~ m/^#/ and $line !~ m/<file system>/)
-    {
-        $fstab .= $line;
-    }
-    elsif ($line =~ m/^#/ and $line =~ m/<file system>/)
-    {
-        next;
-    }
-    else
-    {
-        $line =~ s/ +/ /g;
-        my @fields = split ' ',$line;
-        push @fstabLines, \@fields;
-        for (my $i; $i < scalar @fields; $i += 1)
-        {
-            if (length($fields[$i]) > $lengths[$i])
-            {
-                $lengths[$i] = length($fields[$i]);
-            }
-        }
-    }
-
-}
-close $fh;
-
-my $printfStr = join '', map( {'%-'.($_+1).'s';} @lengths);
-
-foreach my $line (@fstabLines)
-{
-    my @line = @{$line};
-    $line = sprintf($printfStr, @line)."\n";
-    $fstab .= $line;
-    $longestLine = (length($line) > $longestLine) ? length($line) : $longestLine;
-}
-
-my $separator = ('-' x $longestLine)."\n";
-
-print "\n",$separator, "ORIGINAL FILE\n", $separator, $fstabOld, $separator, "REFORMATTED FILE\n", $separator, $fstab, $separator;
-
-print "Overwrite old file with new one? (y/n) ";
-my $ans = <>;
-chomp $ans;
-if ($ans eq 'y')
-{
-    open(my $fh, '>', $fstabFile) or die "Unable to open $fstabFile: $!\n";
-    print $fh $fstab;
-    close $fh;
-}
-else
-{
-    print "Exiting without saving...\n";
-    exit;
-}
-- 
cgit v1.2.3-24-g4f1b