view release on metacpan or  search on metacpan

MapSpec.pm  view on Meta::CPAN

    $s->echo_msg("INFO: please remove the spaces in the file name!", 0);
    return; 
  }
  if (!-f $fn) {
    $s->echo_msg("ERR: ($prg) could not find XLS file - $fn.", 0);
    return; 
  }
  if (!-d $sqlout) {
      eval { mkpath($sqlout,0,0777) };
      croak "ERR: could not mkdir - $sqlout: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $sqlout") 		if ($^O !~ /^MSWin/i); 	# non window
  } 
  if (!-d $odr) {
      eval { mkpath($odr,0,0777) };
      # mkdir $odr; 
      croak "ERR: could not mkdir - $odr: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $odr") 		if ($^O !~ /^MSWin/i); 	# non window
  } 
  if (!-d $sdr) {
    my $y4	= strftime "%Y", localtime;
    my $mn	= strftime "%m", localtime;
    my $dy	= strftime "%d", localtime;
    my @a 	= ();
    push @a, (join $ds, $odr, $y4);
    push @a, (join $ds, $odr, $y4, $mn);
    push @a, (join $ds, $odr, $y4, $mn, $dy);
    for my $i (0..$#a) { 
      my $dd = $a[$i]; 
      if (!-d $dd) { 
        eval { mkpath($dd,0,0777) }; 
        croak "ERR: could not mkdir - $dd: $!: $@<br>\n" if ($@);
        system("chmod -R ugo+w $dd") 		if ($^O !~ /^MSWin/i); 	# non window
      } 
    }
  } 

  # 1. get list information
  $s->echo_msg(" 1. get list info for list id $lid...", 1); 
  my $whr = " WHERE  list_id = $lid ";
  my $cns = 'study_id,sponsor,project_code,project_name,study_name,sp_analyst';
    $cns .= ',sp_version,sp_source,standard'; 
  my $r1 = $s->run_sqlcmd($ar, $cns, 'sp_lists', $whr);

MapSpec.pm  view on Meta::CPAN

    $s->echo_msg("INFO: ($prg) please remove the spaces in the file name!", 0);
    return; 
  }
  if (!-f $fn) {
    $s->echo_msg("ERR: ($prg) could not find XLS file - $fn.", 0);
    return; 
  }
  if (!-d $sqlout) {
      eval { mkpath($sqlout,0,0777) };
      croak "ERR: ($prg) could not mkdir - $sqlout: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $sqlout") 		if ($^O !~ /^MSWin/i); 	# non window
  } 
  if (!-d $odr) {
      # eval { mkpath($odr,0,0777) };
      mkdir $odr; 
      croak "ERR: ($prg) could not mkdir - $odr: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $odr") 		if ($^O !~ /^MSWin/i); 	# non window
  } 
  if (!-d $sdr) {
      eval { mkpath($sdr,0,0777) }; 
      croak "ERR: ($prg) could not mkdir - $sdr: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $sdr") 		if ($^O !~ /^MSWin/i); 	# non window
  } 

  # 1. get list information
  $s->echo_msg(" 1. get list info for list id $lid...", 1); 
  my $whr = " WHERE  list_id = $lid ";
  my $cns = 'study_id,sponsor,project_code,project_name,study_name,sp_analyst';
    $cns .= ',sp_version,sp_source,standard'; 
  my $r1 = $s->run_sqlcmd($ar, $cns, $lst_tab, $whr);
  $s->echo_msg($r1, 5);
  $sid = $r1->[0]{study_id} 	if ($sid !~ /^\d+$/);