不要なスクリプトを削除。

diff --git a/update.pl b/update.pl
deleted file mode 100644 (file)
index 45f1436..0000000
--- a/update.pl
+++ /dev/null
@@ -1,106 +0,0 @@
-#####################################################################
-#
-# ????????????????????X????
-#
-#####################################################################
-use File::Path;
-use File::Copy;
-
-my $date = $ARGV[0];
-my $dir  = $ARGV[1];
-
-if($date eq "" || !($date =~ /^[1-2][0-9][0-9][0-9]-[0-1][0-9]-[0-3][0-9]$/)){
-       &print_help();
-       exit;
-}
-
-$date =~ s/-//g;
-$date = int($date);
-
-if($dir ne ""){
-       if(-e $dir){
-               print "$dir????????????B\n";
-               rmtree($dir);
-       }
-       if(-e "$dir.zip"){
-               print "$dir.zip??????B\n";
-               unlink "$dir.zip";
-       }
-}
-
-$find_flag = 0;
-&search_dir($date,".",$dir);
-
-if($dir ne ""){
-       if($find_flag == 1){
-               print "??t??????????\n";
-               system("zip $dir.zip -r $dir");
-       }
-
-}
-
-#====================================================================
-# ?????\8e¦
-#====================================================================
-sub print_help {
-       print "????????????????????A????????????\n";
-       print "\n";
-       print "perl update.pl YYYY-MM-DD [???f??????]\n";
-       print "  ?????????????Y???????????\8e¦???????B\n";
-}
-
-#====================================================================
-# ?????????
-#====================================================================
-sub search_dir {
-       my $date = shift;
-       my $dir  = shift;
-       my $to   = shift;
-       my @list = ();
-       
-       opendir(DIR,$dir);
-       while(my $entry = readdir(DIR)){
-               if(index($entry,".")!=0 && $entry ne "CVS"){
-                       if($dir eq "." && ($entry eq "log" || $entry eq "backup" || $entry eq "attach" || $entry eq "pdf")){
-                               
-                       } elsif($dir eq "./data" && $entry ne "FrontPage" && $entry ne "Help"){
-                               
-                               
-                       } else {
-                               push(@list,"$dir/$entry");
-                       }
-               }
-       }
-       closedir(DIR);
-       
-       foreach my $entry (@list){
-               if(-d $entry){
-                       &search_dir($date,$entry,$to);
-               } else {
-                       # ??????????????
-                       my @status = stat($entry);
-                       my ($sec,$min,$hour,$mday,$mon,$year)=localtime($status[9]);
-                       my $date_str = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);
-                       
-                       if(int($date_str) >= $date){
-                               print $entry."\n";
-                               # ?????????????????????????
-                               if($to ne ""){
-                                       # ???????????????
-                                       my $path = $dir;
-                                       $path =~ s/^\.//;
-                                       my $copydir = "$to$path";
-                                       unless(-e $copydir){
-                                               mkpath($copydir) or die "$copydir????\8e¸??????";
-                                       }
-                                       
-                                       my $name = $entry;
-                                       $name =~ s/^(.*?\/)*//g;
-                                       copy($entry,"$copydir/$name") or die "$copydir/$name?????\8e¸??????";
-                                       
-                                       $find_flag = 1;
-                               }
-                       }
-               }
-       }
-}