#!/usr/bin/perl -w

$DIR	= '/BiO/DBd/PDB/data';
$LOC	= 'structures/divided/pdb';

$SERVER	= 'rsync.rcsb.org';
$PORT	= 33444;

for (@ARGV){
  
  $_ = lc($_);
  
  next unless $_ =~ /^\w(\w\w)\w$/;
  
  my $bit = $1;

  my $cmd = "
    rsync		\\
    --perms		\\
    --times		\\
    --verbose		\\
    --partial		\\
    --progress		\\
    --port=$PORT 	\\
    $SERVER\::ftp_data/$LOC/$bit/pdb$_.ent.Z \\
    $DIR/$LOC/$bit
  ";
  
  print $cmd, "\n";
  
  system $cmd;
}