# HG changeset patch # User Shinji KONO # Date 1357635161 -32400 # Node ID 47e80dcfe3168b0f7efd2dd457a8208673524930 # Parent b7fb46ffac370706664e5057ed9b26053af8d159 fix diff -r b7fb46ffac37 -r 47e80dcfe316 presen/o2s5 --- a/presen/o2s5 Tue Jan 08 17:37:56 2013 +0900 +++ b/presen/o2s5 Tue Jan 08 17:52:41 2013 +0900 @@ -68,6 +68,10 @@ $theme = "i18n"; } elsif (grep(/-b/,@opt)) { $theme = "blue"; + } elsif (grep(/-g/,@opt)) { + $theme = "google"; + $closing = ""; + $opening = '
'; } elsif (grep(/-2/,@opt)) { $closing = ""; $opening = '
'; @@ -197,6 +201,10 @@ RogueRogue + if ($theme eq 'google') { + &init_google(); + return; + } if (grep(/-2/,@opt)) { $closing = "
"; $opening = '
'; @@ -205,6 +213,64 @@ &init(); } +sub init_google +{ + $init = <<"RogueRogue"; + + + + + + + $title + + + + + + + + + +
+ + + +
+

+ $title + +

+

$author +

+ 琉球大学 並列信頼研究室 +
+RogueRogue + + $closing = <<"RogueRogue"; +
+ + +RogueRogue +} + sub o2s5 { my ($arg, $current) = @_; my %content = ();