diff --git a/index.cgi b/index.cgi
index 01b2cb0..fad6ad8 100755
--- a/index.cgi
+++ b/index.cgi
@@ -17,8 +17,8 @@ TUWF::register(
qr{tuwf} => \&tuwf,
qr{tuwf/man(?:/(db|misc|request|response|xml))?}
=> \&tuwfmanual,
- qr{demo} => \&demo,
qr{dump} => \&dump,
+ qr{demo} => \&dumpdemo,
qr{dump/awshrink} => \&dumpawshrink,
qr{dump/grenamr} => \&dumpgrenamr,
);
@@ -260,50 +260,6 @@ sub tuwfmanual {
-# D E M O S
-
-sub demo {
- my $s = shift;
- $s->htmlHeader(title => 'Demos', page => 'demo');
- p;
- lit <<' E;';
- Yes, I realise that the title is plural, suggesting there's more than one demo. That is
- not quite true, unfortunately. The reason I chose to use plural form is simply in the
- hopes that I do, in fact, write more demos, and that this page will actually get more
- content in the future. I still happen to be a huge fan of the
- demoscene, and still wish to contribute to it... if only I could find the time and
- self-discipline to do so. In the meanwhile, here's one demo I did write some time ago:
- E;
- end;
-
- h2 'Blue Cubes';
- img src => '/img/bluecubes.png', style => 'float: right', alt => 'Blue Cubes';
- p;
- lit <<' E;';
- August 2006. My first demo - or more exact: intro. Blue Cubes is a 64kB intro written in
- OpenGL/SDL with Linux as target OS. I wrote this intro within 10 days without any prior
- experience in any of the fields of computer generated graphics or music. So needlessly to
- say, it sucks. I am ashamed even of the thought of releasing it at a respectable demoparty
- like Evoke. Still, it didn't feel I was unwelcome,
- I did actually receive three prices: 3rd price in the 64k competition (there were only 3
- actual entries, but oh well), best non-windows 64k intro (it was the only one in the
- competition), and the Digitale Kultur newcomer award, which actually is something to be
- proud of, I guess.
- E;
- br; br;
- a href => '/download/yorhel~bluecubes.zip', 'download';
- txt ' - ';
- a href => 'http://scene.org/file.php?file=/parties/2006/evoke06/in64/yorhel_bluecubes.zip&fileinfo', 'mirror';
- txt " (includes linux binaries, windows port, and sources)"; br;
- a href => 'http://pouet.net/prod.php?which=25866', 'pouet'; txt ' - ';
- a href => 'http://demoscene.tv/page.php?id=172&lang=uk&vsmaction=view_prod&id_prod=12653', 'demoscene.tv'; txt ' - ';
- a href => 'http://demozoo.org/productions/32253', 'demozoo';
- end;
- $s->htmlFooter;
-}
-
-
-
# C O D E D U M P
@@ -377,6 +333,47 @@ sub dump {
}
+sub dumpdemo {
+ my $s = shift;
+ $s->htmlHeader(title => 'Demos', page => 'dump', tab => 'demo');
+ p;
+ lit <<' E;';
+ Yes, I realise that the title is plural, suggesting there's more than one demo. That is
+ not quite true, unfortunately. The reason I chose to use plural form is simply in the
+ hopes that I do, in fact, write more demos, and that this page will actually get more
+ content in the future. I still happen to be a huge fan of the
+ demoscene, and still wish to contribute to it... if only I could find the time and
+ self-discipline to do so. In the meanwhile, here's one demo I did write some time ago:
+ E;
+ end;
+
+ h2 'Blue Cubes';
+ img src => '/img/bluecubes.png', style => 'float: right', alt => 'Blue Cubes';
+ p;
+ lit <<' E;';
+ August 2006. My first demo - or more exact: intro. Blue Cubes is a 64kB intro written in
+ OpenGL/SDL with Linux as target OS. I wrote this intro within 10 days without any prior
+ experience in any of the fields of computer generated graphics or music. So needlessly to
+ say, it sucks. I am ashamed even of the thought of releasing it at a respectable demoparty
+ like Evoke. Still, it didn't feel I was unwelcome,
+ I did actually receive three prices: 3rd price in the 64k competition (there were only 3
+ actual entries, but oh well), best non-windows 64k intro (it was the only one in the
+ competition), and the Digitale Kultur newcomer award, which actually is something to be
+ proud of, I guess.
+ E;
+ br; br;
+ a href => '/download/yorhel~bluecubes.zip', 'download';
+ txt ' - ';
+ a href => 'http://scene.org/file.php?file=/parties/2006/evoke06/in64/yorhel_bluecubes.zip&fileinfo', 'mirror';
+ txt " (includes linux binaries, windows port, and sources)"; br;
+ a href => 'http://pouet.net/prod.php?which=25866', 'pouet'; txt ' - ';
+ a href => 'http://demoscene.tv/page.php?id=172&lang=uk&vsmaction=view_prod&id_prod=12653', 'demoscene.tv'; txt ' - ';
+ a href => 'http://demozoo.org/productions/32253', 'demozoo';
+ end;
+ $s->htmlFooter;
+}
+
+
sub dumpawshrink {
my $s = shift;
$s->htmlHeader(title => 'AWStats data file shrinker', page => 'dump', tab => 'awshrink');
@@ -573,7 +570,6 @@ sub htmlHeader {
a href => '/', !$o{page} ? (class => 'sel') : (), 'home'; txt ' ';
a href => '/ncdu', $o{page} eq 'ncdu' ? (class => 'sel') : (), 'ncdu'; txt ' ';
a href => '/tuwf', $o{page} eq 'tuwf' ? (class => 'sel') : (), 'tuwf'; txt ' ';
- a href => '/demo', $o{page} eq 'demo' ? (class => 'sel') : (), 'demos'; txt ' ';
a href => '/dump', $o{page} eq 'dump' ? (class => 'sel') : (), 'code dump';
end;
if($o{page} eq 'ncdu') {
@@ -593,6 +589,7 @@ sub htmlHeader {
if($o{page} eq 'dump') {
div id => 'mtabs';
a href => '/dump', !$o{tab} ? (class => 'sel') : (), 'misc'; txt ' ';
+ a href => '/demo', $o{tab} eq 'demo' ? (class => 'sel') : (), 'demos'; txt ' ';
a href => '/dump/awshrink', $o{tab} eq 'awshrink' ? (class => 'sel') : (), 'awshrink'; txt ' ';
a href => '/dump/grenamr', $o{tab} eq 'grenamr' ? (class => 'sel') : (), 'grenamr';
end;