Changed tabs to spaces

bin/mkexec.pl

@@ -13,12 +13,12 @@ my $name = shift or usage;
 my $type = ($ARGV[0] ? shift : guesstype $name);
 
 my $bang = {
-	pl   => `which perl`,
-	sh   => `which sh`,
-	py   => `which python`,
-	bash => `which bash`,
-	sed  => `which sed`,
-	bc   => `which bc`
+    pl   => `which perl`,
+    sh   => `which sh`,
+    py   => `which python`,
+    bash => `which bash`,
+    sed  => `which sed`,
+    bc   => `which bc`
 };
 
 my $editors = [ qw/ vim editor / ];
@@ -30,30 +30,30 @@ $cmds->{editor}->{run}  = "editor '%s'";
 
 
 if (exists $bang->{$type}) {
-	-e $name || mkexec $name, $bang->{$type};
-	chmod $DEFAULT_MODE, $name;
+    -e $name || mkexec $name, $bang->{$type};
+    chmod $DEFAULT_MODE, $name;
     launch_editor $name;
 } else {
-	die "unknown type: $type\n";
+    die "unknown type: $type\n";
 }
 
 sub usage {
-	print STDERR "usage: $0 filename [type]\n";
-	exit 0;
+    print STDERR "usage: $0 filename [type]\n";
+    exit 0;
 }
 
 sub guesstype {
-	my $name = shift;
-	my ($ext) = $name =~ m|\.(\w+)$|;
-	return ( $ext ? $ext : $DEFAULT_TYPE);
+    my $name = shift;
+    my ($ext) = $name =~ m|\.(\w+)$|;
+    return ( $ext ? $ext : $DEFAULT_TYPE);
 }
 
 sub mkexec {
-	my ($name, $bang) = @_;
-	open EXE, ">", $name	|| die "cannot open $name for writing: $!\n";
-	-W EXE			|| die "file $name is not writable\n";
-	print EXE "#!$bang\n";
-	close EXE		|| die "cannot close $name: $!\n";
+    my ($name, $bang) = @_;
+    open EXE, ">", $name    || die "cannot open $name for writing: $!\n";
+    -W EXE                  || die "file $name is not writable\n";
+    print EXE "#!$bang\n";
+    close EXE               || die "cannot close $name: $!\n";
 }
 
 sub get_cmd {

cgi-bin/hello_host.cgi

@@ -6,9 +6,9 @@ use warnings;
 use Sys::Hostname;
 
 sub mygetstrtime {
-	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
-	$year += 1900; $mon += 1;
-	return sprintf "%02d/%02d/%04d %02d:%02d:%02d", $mon, $mday, $year, $hour, $min, $sec;
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
+    $year += 1900; $mon += 1;
+    return sprintf "%02d/%02d/%04d %02d:%02d:%02d", $mon, $mday, $year, $hour, $min, $sec;
 }
 
 print "Content-type: text/plain; charset=utf-8\n";

cgi-bin/rndfile.cgi

@@ -60,7 +60,7 @@ sub minmax_valid {          ## low, high, min, max ## Validate boundaries
     }
 }
 
-sub http_die {				## $status ## Http-die with $status
+sub http_die {              ## $status ## Http-die with $status
   my $status = shift || 400;
   print $q->header ( -type => 'text/plain' , -status => $status );
   exit 1;