Added a simple flag in ccbs.pm to make the system suitable for public viewing (ie...
authorSteinar H. Gunderson <sesse@samfundet.no>
Sat, 5 Mar 2005 02:17:23 +0000 (02:17 +0000)
committerSteinar H. Gunderson <sesse@samfundet.no>
Sat, 5 Mar 2005 02:17:23 +0000 (02:17 +0000)
16 files changed:
html/ccbs.pm
html/do-add-player.pl
html/do-add-tournament.pl
html/do-edit-scores.pl
html/do-finish-tournament.pl
html/do-registration.pl
html/do-reset-randomsongs.pl
html/do-set-active-round.pl
html/do-set-active-tournament.pl
html/do-set-paid.pl
html/do-start-round.pl
html/do-unregister.pl
html/templates/index.tmpl
html/templates/main.tmpl
html/templates/show-tournament.tmpl
html/templates/tournaments.tmpl

index 21a19a8..8195543 100755 (executable)
@@ -7,6 +7,9 @@ use strict;
 use warnings;
 
 our $ccbs_dbdebug = 0;
 use warnings;
 
 our $ccbs_dbdebug = 0;
+
+# Set this flag to disable any admin tasks -- it's quite crude, but hey :-)
+our $ccbs_noadmin = 0;
        
 sub print_header {
        print CGI::header(-type=>'text/html; charset=utf-8');
        
 sub print_header {
        print CGI::header(-type=>'text/html; charset=utf-8');
@@ -60,6 +63,7 @@ sub process_template {
        my ($page, $title, $vars) = @_;
        $vars->{'page'} = $page;
        $vars->{'title'} = $title;
        my ($page, $title, $vars) = @_;
        $vars->{'page'} = $page;
        $vars->{'title'} = $title;
+       $vars->{'public'} = $ccbs_noadmin;
        
        my $config = {
                INCLUDE_PATH => 'templates/',
        
        my $config = {
                INCLUDE_PATH => 'templates/',
@@ -85,6 +89,9 @@ sub user_error {
 
        exit;
 }
 
        exit;
 }
+sub admin_only {
+       user_error("Beklager, databasen står i no-admin-mode.") if ($ccbs_noadmin);
+}
 
 $SIG{__DIE__} = sub {
        # Gosh! Net::Resolver::DNS is brain-damaged.
 
 $SIG{__DIE__} = sub {
        # Gosh! Net::Resolver::DNS is brain-damaged.
index 7817b14..2ed4b6c 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 0ef54ef..50efd38 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 95006e0..898d5db 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index b493968..a22da17 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 36c5e2f..6f7b9e3 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index e470b73..6c79994 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index db32ece..5b0376e 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index c27ebf5..3a15a93 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 7ac795d..5622bb7 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index f7a86ce..d843be2 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 3751e30..4a1101e 100755 (executable)
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;
 
index 4b872ad..28ec269 100644 (file)
@@ -9,11 +9,14 @@
 <div>
   <ul>
     <li><a href="tournaments.pl">Turneringer</a></li>
 <div>
   <ul>
     <li><a href="tournaments.pl">Turneringer</a></li>
+[% IF !public %]
     <li><a href="add-tournament.pl">Legg til turnering</a></li>
     <li><a href="randomsongs.pl">Sangvelger</a></li>
     <li><a href="add-tournament.pl">Legg til turnering</a></li>
     <li><a href="randomsongs.pl">Sangvelger</a></li>
+[% END %]
   </ul>
 </div>
 
   </ul>
 </div>
 
+[% IF !public %]
 <h2>Storskjerm</h2>
 
 <div>
 <h2>Storskjerm</h2>
 
 <div>
@@ -21,3 +24,4 @@
     <li><a href="set-active-tournament.pl">Sett aktiv turnering</a></li>
   </ul>
 </div>
     <li><a href="set-active-tournament.pl">Sett aktiv turnering</a></li>
   </ul>
 </div>
+[% END %]
index 286cac7..46b0e5d 100644 (file)
     <h1>[% title %]</h1>
 
     <p>
     <h1>[% title %]</h1>
 
     <p>
-      <a href="index.pl">Forside</a> | 
-      <a href="tournaments.pl">Turneringer</a> | 
-      <a href="randomsongs.pl">Sangvelger</a>
+      <a href="index.pl">Forside</a>
+      | <a href="tournaments.pl">Turneringer</a>
+[% IF !public %]
+      | <a href="randomsongs.pl">Sangvelger</a>
+[% END %]
     </p>
 
     <div class="main">
     </p>
 
     <div class="main">
index 3a6c34f..8619ca9 100644 (file)
@@ -12,7 +12,7 @@
     </ul>
   </div>
 
     </ul>
   </div>
 
-[% IF closing_valid %]
+[% IF closing_valid && !public %]
   <h2>Start ny runde</h2>
 
   <div>
   <h2>Start ny runde</h2>
 
   <div>
@@ -54,7 +54,7 @@
   </div>
 [% END %]
   
   </div>
 [% END %]
   
-[% IF finishing_valid %]
+[% IF finishing_valid && !public %]
   <h2>Avslutt turnering</h2>
 
   <div>
   <h2>Avslutt turnering</h2>
 
   <div>
@@ -89,6 +89,7 @@
 [% END %]
 
 [% FOR r = rounds %]
 [% END %]
 
 [% FOR r = rounds %]
+[% IF r.locked || !public %]
   <h2><a name="round[% r.round %]">Runde [% r.round %]</a></h2>
 
   <div>
   <h2><a name="round[% r.round %]">Runde [% r.round %]</a></h2>
 
   <div>
 
   </div>
 [% END %]
 
   </div>
 [% END %]
+[% END %]
index 7d0d6bf..0665786 100644 (file)
@@ -1,8 +1,10 @@
 [%# vim:set filetype=html: %]
 
 [%# vim:set filetype=html: %]
 
+[% IF !public %]
   <div>
     <p><a href="add-tournament.pl">Legg til turnering</a></p>
   </div>
   <div>
     <p><a href="add-tournament.pl">Legg til turnering</a></p>
   </div>
+[% END %]
   
 [% SET last_season = 0 %]
 [% FOR t = tournaments %]
   
 [% SET last_season = 0 %]
 [% FOR t = tournaments %]
@@ -21,7 +23,9 @@
 [% END %]
       <li>
         <a href="show-tournament.pl?id=[% t.tournament %]">[% t.tournamentname %]</a>
 [% END %]
       <li>
         <a href="show-tournament.pl?id=[% t.tournament %]">[% t.tournamentname %]</a>
+[% IF !public %]
        (<a href="registration.pl?id=[% t.tournament %]">registrering</a>)
        (<a href="registration.pl?id=[% t.tournament %]">registrering</a>)
+[% END %]
       </li>
 [% END %]
     </ul>
       </li>
 [% END %]
     </ul>