[Jifty-commit] r3094 - in jifty/trunk: .
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Wed Apr 4 01:59:51 EDT 2007
Author: jesse
Date: Wed Apr 4 01:59:46 2007
New Revision: 3094
Modified:
jifty/trunk/ (props changed)
jifty/trunk/doc/talks/present-slides
Log:
r54440 at pinglin-2: jesse | 2007-04-04 14:56:43 +0900
* Autoopen the presenter tools
Modified: jifty/trunk/doc/talks/present-slides
==============================================================================
--- jifty/trunk/doc/talks/present-slides (original)
+++ jifty/trunk/doc/talks/present-slides Wed Apr 4 01:59:46 2007
@@ -16,6 +16,9 @@
select($next_slide);
$| = 1;
select(STDOUT);
+
+my $cmd = q{ osascript -e ' tell application "Terminal"' -e ' do script "tail -f /tmp/next_slide"' -e 'end tell' };
+system($cmd);
while ( $counter <= $#SLIDES ) {
my $mode = 'text';
my ( $cols, $rows, undef, undef ) = GetTerminalSize();
@@ -23,7 +26,7 @@
print $next_slide Term::ANSIScreen::cls;
print $next_slide locate(1,1);
- print $next_slide colored("Time: ".scalar localtime ."\n", 'blue');
+ print $next_slide colored("Time: ".scalar localtime() ."\n", 'blue');
print $next_slide colored("Back 1\n", 'red');
print $next_slide $SLIDES[$counter-1] ."\n\n";
print $next_slide colored("This slide, $counter/".$#SLIDES."\n", 'blue');
More information about the Jifty-commit
mailing list