mieki256's diary

◎ ホームページを about:blank に設定してると問題が起きるという話もみかけた :

◎ 拡張機能の入れ方を少し変えたり削ってみたり :

◎ Text Link は相変わらず :

◎ InfoLister の出力結果はこんな感じ :

Last updated: Wed, 03 Aug 2005 05:14:31 GMT

User Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja-JP; rv:1.7.10) Gecko/20050717 Firefox/1.0.6

*** Extensions (enabled: 27, disabled: 0)
All-in-One Gestures 0.16
All-In-One Search button 1.61
bbs2chreader 0.2.1
Configuration Mania 1.05.2005021901
Context Search 0.2
Download Statusbar 0.9.2
downTHEMall! 0.9.4
GrepSidebar 0.0.8
Irvine ContextMenu 0.2
Linky 2.6.0
LiveLines 0.4
Menu Editor 1.2
Popup ALT Attribute 1.3.2005042001
PrefBar 3.1.0
Sage 1.3.5
ScrapBook 0.15.5
Search Button 0.4.8
Show Image 0.3
Super DragAndGo 0.2.4d1
Tab Mix 0.2.2.3
Text Link 1.3.2005070402
Translation Panel 1.4.13.0.1
Web Developer 0.9.3
XUL/Migemo 0.2.8
JavaScript Actions 2.1.0
InfoLister 0.8.2
OpenBook 1.2.0

*** Themes (1)
Firefox (default) 2.0 [selected]

*** Plugins (11)
QuickTime Plug-in 6.5.1
Mozilla Default Plug-in
RealJukebox NS Plugin
RealPlayer(tm) G2 LiveConnect-Enabled Plug-In (32-bit) 
RealPlayer Version Plugin
Java(TM) 2 Platform Standard Edition 5.0 Update 2
Adobe Acrobat
MicrosoftR DRM
Windows Media Player Plug-in Dynamic Link Library
Shockwave for Director
Shockwave Flash

ミュージックストアを運営されている企業に連絡を取ろうとしたところ、受付の窓口で門前払い。

◎ 子供の頃釣りをやってた自分だけど :

◎ _タイムスタンプ変更ツール - ファイルのタイムスタンプ(作成日時、更新日時)を変更させるツール :

◎ _FileTimeChange - 直感的な操作で、ファイル・フォルダの日時・属性を一括変更 :

◎ _DateChanger - ファイルのタイムスタンプを日付・時刻別に変更、複数ファイルの一括変更も可能 :

◎ あちこち探してみたけど日付と時刻を別々に変更できるツールってほとんど無いのだな :

◎ それにしても、Mach Power SVX といい、KURO-SHOT といい :

#!/usr/bin/perl
# Last updated: <2005/08/03 22:21:13 +0900>
#
# tmstchg.pl - タイムスタンプ変更スクリプト。日付のみ変更する
#
# usage : perl tmstchg.pl YYYY MM DD

use strict;
use POSIX 'strftime';

my $ext = "bmp";

my ($now_sec,$now_min,$now_hour,
    $mday_new,$mon_new,$year_new,
    $now_wday,$now_yday,$now_isdst) = localtime(time);

$year_new += 1900;
$mon_new += 1;

my $listonly = 0;

if ( $#ARGV != 2 ) {
    usage();
    $listonly = 1;
} else {
    my $yy = shift @ARGV;
    my $mm = shift @ARGV;
    my $dd = shift @ARGV;

    if ( $yy < 2005 || $mm < 1 || $mm > 12 || $dd < 1 || $dd > 31 ) {
        usage();
        $listonly = 1;
    } else {
        $year_new = $yy;
        $mon_new = $mm;
        $mday_new = $dd;
    }
}

my @files = glob("*.$ext");

foreach my $file (@files) {
    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
        $atime, $mtime, $ctime, $blksize, $blocks) = stat $file;

    my $atimestr = strftime "%Y/%m/%d %H:%M:%S", localtime $atime;
    my $mtimestr = strftime "%Y/%m/%d %H:%M:%S", localtime $mtime;

    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $mtime;

    my $mmtime = get_time($year_new,$mon_new,$mday_new,$hour,$min,$sec);
    my $mmtimestr = strftime "%Y/%m/%d %H:%M:%S", localtime $mmtime;

    print "$file\t$atimestr\t$mtimestr";

    if ( $listonly == 0 ) {
        print "\t->\t$mmtimestr";
        utime($atime, $mmtime, $file);
    }

    print "\n";
}

print "\npush any key";
my $c = getc;

exit;


sub get_time {
    my($yy,$mm,$mday,$hour,$min,$sec) = @_;
    my($time, $year, $mon, $tz, $uruu, @mdays);

    $year = $yy - 1900;
    $mon = $mm - 1;

    $tz = -9;

    @mdays = ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
    $uruu = int(($year - 72) / 4);
    if (((($year + 1900) % 4) == 0) && ($mon < 2)) {
        $uruu--;
    }

    $time = $year - 70;
    $time = ($time * 365) + $mdays[$mon] + $mday + $uruu;
    $time = ($time * 24) + $hour + $tz;
    $time = ($time * 60) + $min;
    $time = ($time * 60) + $sec;

    return $time;
}

sub usage {
    print "usage : perl tmstchg.pl YYYY MM DD\n\n";
}

afx Perl Script MENU
"t タイムスタンプ(日付のみ)変更"     cmd.exe /c perl x:\xxxx\tmstchg.pl $I"Year (ex. 2005)" $I"Month (ex. 07)" $I"Day (ex. 03)"

&menu x:\xxxx\menu_perlscript.txt