#!/usr/bin/perl -w
use strict;

if ($#ARGV+1 != 1) {
  die "rmtree needs <removablelang> as argument\n"; 
};

my $remme = $ARGV[0];
$remme =~ s+/$++;  # Remove the trailing / if present
print "ARG IS: $remme\n";

my @args = ("rm -rf $remme");
      print "@args\n";
      system(@args) == 0
        or die "system @args failed; $?";

  @args = ("rm -f Library/$remme"."curr.lbi");
      print "@args\n";
      system(@args) == 0
        or die "system @args failed; $?";

  @args = ("rm -f Library/$remme"."navbar.lbi");
      print "@args\n";
      system(@args) == 0
        or die "system @args failed; $?";

  @args = ("rm -f Templates/main$remme.dwt");
      print "@args\n";
      system(@args) == 0
        or die "system @args failed; $?";