filemorph

Check-in [82b813cad8]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Updated build
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:82b813cad8ce8ddf18ecf9252cf2057cad473e49
User & Date: kevin 2015-10-11 15:41:05
Context
2015-10-11
22:21
Tweak software registration process check-in: d3339908cc user: kevin tags: trunk
15:41
Updated build check-in: 82b813cad8 user: kevin tags: trunk
15:36
Fix cross-platform Windows call check-in: 138725ee06 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to filemorph.pl.

383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
...
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
....
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
my $case        = $notebook->new_ttk__frame;
my $attributes  = $notebook->new_ttk__frame;

#UI to modify file extensions
$notebook->add( $extension, -text => "Extension" );
my $exsrclabel = $extension->new_ttk__label( -text => "Extension:" );
my $exsrcentry = $extension->new_ttk__entry( -textvar => \$sourceext );
my $extargetlabel =
  $extension->new_ttk__label( -text => "New Extension Name:" );
my $extargetentry = $extension->new_ttk__entry( -textvar => \$targetext );
my $extchange = $extension->new_ttk__button(
    -text    => "Change",
    -command => \&changeExtension
);
my $extundo = $extension->new_ttk__button(
    -text    => "Undo",
................................................................................
    );
}

#UI to replace text in file name
$notebook->add( $replacement, -text => "Replace Text" );
my $repsrclabel = $replacement->new_ttk__label( -text => "Text:" );
my $repsrcentry = $replacement->new_ttk__entry( -textvar => \$srcstring );
my $reptargetlabel =
  $replacement->new_ttk__label( -text => "Replacement Text:" );
my $reptargetentry = $replacement->new_ttk__entry( -textvar => \$targetstring );
my $repbutton = $replacement->new_ttk__button(
    -text    => "Change",
    -command => \&replaceString
);
my $repundo = $replacement->new_ttk__button(
    -text    => "Undo",
................................................................................
    &addString;
}

sub scriptSetTime {
    my $time;
    $time = shift;
    my @datearray = split( /\//, $time );
    $modtime =
      timelocal( "00", "00", "00", $datearray[1], ( $datearray[0] - 1 ),
        $datearray[2] );
}

sub scriptFileTime {
    return if ( scalar(@filelist) == 0 );
    foreach (@filelist) {
        utime $modtime, $modtime, $_;
    }
}

#------end of subroutines---------







|
<







 







<
|







 







<
|











383
384
385
386
387
388
389
390

391
392
393
394
395
396
397
...
415
416
417
418
419
420
421

422
423
424
425
426
427
428
429
....
1346
1347
1348
1349
1350
1351
1352

1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
my $case        = $notebook->new_ttk__frame;
my $attributes  = $notebook->new_ttk__frame;

#UI to modify file extensions
$notebook->add($extension, -text => "Extension");
my $exsrclabel = $extension->new_ttk__label(-text => "Extension:");
my $exsrcentry = $extension->new_ttk__entry(-textvar => \$sourceext);
my $extargetlabel =$extension->new_ttk__label(-text => "New Extension Name:");

my $extargetentry = $extension->new_ttk__entry(-textvar => \$targetext);
my $extchange = $extension->new_ttk__button(
    -text    => "Change",
    -command => \&changeExtension
);
my $extundo = $extension->new_ttk__button(
    -text    => "Undo",
................................................................................
    );
}

#UI to replace text in file name
$notebook->add($replacement, -text => "Replace Text");
my $repsrclabel = $replacement->new_ttk__label(-text => "Text:");
my $repsrcentry = $replacement->new_ttk__entry(-textvar => \$srcstring);

my $reptargetlabel =$replacement->new_ttk__label(-text => "Replacement Text:");
my $reptargetentry = $replacement->new_ttk__entry(-textvar => \$targetstring);
my $repbutton = $replacement->new_ttk__button(
    -text    => "Change",
    -command => \&replaceString
);
my $repundo = $replacement->new_ttk__button(
    -text    => "Undo",
................................................................................
    &addString;
}

sub scriptSetTime {
    my $time;
    $time = shift;
    my @datearray = split(/\//, $time);

    $modtime =timelocal("00", "00", "00", $datearray[1], ($datearray[0] - 1),
        $datearray[2]);
}

sub scriptFileTime {
    return if (scalar(@filelist) == 0);
    foreach (@filelist) {
        utime $modtime, $modtime, $_;
    }
}

#------end of subroutines---------