Index: trunk/tools/intercam_stacks/import.external/import_ext.pl
===================================================================
--- trunk/tools/intercam_stacks/import.external/import_ext.pl	(revision 41301)
+++ trunk/tools/intercam_stacks/import.external/import_ext.pl	(revision 41301)
@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use warnings;
+use strict;
+
+my $top_level_dir = shift(@ARGV);
+my $new_filter = shift(@ARGV);
+
+unless(defined($top_level_dir)) { die; }
+unless(defined($new_filter)) { die; }
+
+my @subdirectories = <${top_level_dir}/*>;
+
+foreach my $sd (@subdirectories) {
+    my @files = <${sd}/*.md>;
+    
+    foreach my $f (@files) {
+	print "stacktool -dbname gpc2 -importexternal -ext_camera_id 1 -set_filter $new_filter -infile $f\n";
+    }
+}
Index: trunk/tools/intercam_stacks/import.external/insert.stackinputskyfile.sh
===================================================================
--- trunk/tools/intercam_stacks/import.external/insert.stackinputskyfile.sh	(revision 41301)
+++ trunk/tools/intercam_stacks/import.external/insert.stackinputskyfile.sh	(revision 41301)
@@ -0,0 +1,24 @@
+#!/bin/csh -f
+
+if ($#argv != 5) then
+  echo "USAGE: insert.stackinputskyfile.sh (filter) (min_id) (max_id) (warp_id)"
+  exit 2;
+endif
+
+set filter = $1
+set min_id = $2
+set max_id = $3
+set warp_id = $4
+set password = $5
+
+set query = "insert into stackInputSkyfile (warp_id, stack_id)"
+set query = "$query select $warp_id, stack_id from stackRun"
+set query = "$query join stackExternalStack using (stack_id)"
+set query = "$query join stackExternalCamera using (ext_camera_id)"
+set query = "$query where filter = '$filter'"
+set query = "$query and stack_id >= $min_id"
+set query = "$query and stack_id <= $max_id"
+
+echo $query
+
+mysql -h ippdb08 -u ipp -p$password gpc2 -e "$query";
Index: trunk/tools/intercam_stacks/import.external/run.insertstack.sh
===================================================================
--- trunk/tools/intercam_stacks/import.external/run.insertstack.sh	(revision 41301)
+++ trunk/tools/intercam_stacks/import.external/run.insertstack.sh	(revision 41301)
@@ -0,0 +1,39 @@
+#!/usr/bin/env mana
+
+macro go
+
+  local filter minID maxID warpID
+
+  $filter = $1
+  $minID = $2
+  $maxID = $3
+  $warpID = $4
+
+  $didLast = 0
+
+  $nID = 1000
+  for ID $minID $maxID $nID -incl
+    $lastID = $ID + $nID - 1
+    if ($lastID > $maxID)
+      $lastID = $maxID
+      $didLast = 1
+    end
+    if ($ID > $maxID) return
+#   echo ./insert.stackinputskyfile.sh $filter $ID $lastID $warpID $password
+    exec ./insert.stackinputskyfile.sh $filter $ID $lastID $warpID $password
+    if ($didLast) return
+  end
+end
+
+if ($SCRIPT)
+  if ($argv:n != 5)
+    echo "USAGE: run.insertstack.sh (filter) (minID) (maxID) (warpID) (password)"
+    exit 2
+  end
+
+  $password = $argv:4
+
+  go $argv:0 $argv:1 $argv:2 $argv:3
+  exit 0
+end
+
Index: trunk/tools/intercam_stacks/import.external/run_cmds.pl
===================================================================
--- trunk/tools/intercam_stacks/import.external/run_cmds.pl	(revision 41301)
+++ trunk/tools/intercam_stacks/import.external/run_cmds.pl	(revision 41301)
@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use warnings;
+use strict;
+
+while (<>) {
+    chomp;
+    if ($_ =~ /stack_id/) { next; }
+    my ($stack_id,$skycell_id,$filter) = split /\s+/;
+    unless(defined($filter)) { die; }
+    my $proj_id = '';
+    (undef, $proj_id, undef) = split /\./, $skycell_id; #'/;
+    
+    unless (-d "./${filter}") { mkdir("./${filter}"); }
+    unless (-d "./${filter}/proj_${proj_id}") { mkdir("./${filter}/proj_${proj_id}"); }
+
+#    print "stacktool -dbname gpc1 -exportrun -stack_id $stack_id -outfile ./${filter}/proj_${proj_id}/stack_${stack_id}.md\n";
+    system("stacktool -dbname gpc1 -exportrun -stack_id $stack_id -outfile ./${filter}/proj_${proj_id}/stack_${stack_id}.md");
+}
+