@rem = '--*-Perl-*--
@echo off    
perl -x -S %0 %*
goto endofperl
@rem ';

#!/usr/local/bin/perl
# $Id: todaytdf.bat,v 1.4 2000/10/01 14:30:20 tom Exp $
################################################################

=head1 NAME

todaytdf - 今日の tdf ファイルを指定したエディタで開く

=head1 SYNOPSIS

 % todaytdf


=head1 INSTALL

 1. contrib/todaytdf.bat をパスの通ったディレクトリに todaytdf.bat としてコピーする
 2. chmod 755 todaytdf
 3. web_diary_dir, libdir を use lib 
 4. $TDS::System::DiaryDir を相対パスで指定していたら $diary_dir に絶対パスで上書きする

=cut


################################################################    
# web_diary_dir と libdir を use lib してね
use lib qw(d:/tom/www/tds-100/lib d:/tom/www/tds-100);

use DateTime::Time;

use TDS::System;
use TDS::Admin::TdfEditor;

require 'conf.ph';

my $diary_dir = $TDS::System::DiaryDir;   # 絶対パスね
my $editor = $ENV{'EDITOR'} || 'notepad';

################################################################

my $time = new DateTime::Time;
$time->SetTime($^T, $TDS::System::TZ);

if ($time->hour < $TDS::Admin::TdfEditor::DayChangeOffset){
    $time -= '1D';
}
my $tdf_file = sprintf("%s/%04d/%02d/%02d.tdf",
		       $diary_dir,
		       $time->year, $time->month, $time->day);

#print "$editor $tdf_file";
exec("$editor $tdf_file");
__END__
:endofperl


