#!/usr/bin/perl

$pwd = `pwd`;
chomp $pwd;

foreach $file (@ARGV) {
  $abs = &rtoa($file, $pwd);
  print "$file => $abs\n";
  if($abs =~ m|/home/cms/###############/site/(.*)|) {
    print "scp -p $file #####\@###############:~/htdocs/$1\n";
    system "scp -p $file #####\@###############:~/htdocs/$1";
  } elsif($abs =~ m|/home/cms/###############/site/(.*)|) {
    print "scp -p $file #####\@###############:~/htdocs/$1\n";
    #system "scp -p $file #####\@###############:~/htdocs/$1";
    print "This is the old site. Upload it yourself!\n";
  } elsif($abs =~ m|/home/cms/####################/site/(.*)|) {
    print "scp -p $file #####\@####################:~/intranet/$1\n";
    system "scp -p $file #####\@####################:~/intranet/$1";
  } else {
    print "I don't know where to put that file.\n";
  }
}

sub rtoa {
  local($file, $pwd) = @_;
  return $file if $file =~ m|^/|;
  return "$pwd/$file" unless $file =~ m|^../|;
  local(@file) = split('/', $file);
  local(@pwd) = split('/', $pwd);
  pop @file unless -d $file;
  while($file[0] eq "..") {
    shift @file;
  }
}