root/lang/actionscript/todoshare/index.cgi @ 16016

#!/usr/bin/perl

BEGIN {
  push @INC,"perl";
}
use strict;
use CGI::Carp qw(fatalsToBrowser);
use Html;
use HtmlTag;
header;

&Html::p ([html,
   [head,
     [title,"MyS-monitor"]],
   [body, 
      [h1,"メニュー"],
       link("todo.cgi","Todo"),
       link("swkText.cgi","SWK(Text Mode)"),
       link("DBConsoleFlash.html","SWK(Flash Mode)"),
       link("jsonDB.html","JSON DB Console"),
       link("importObj.html","Import Objects(他のMySからHTTPで取得します)"),
      [h3,"File-related Menu"],
       link("backupDB.html","Backup DB"),
       link("restoreDB.html","Restore DB"),
   ]
]);


sub link {
  my ($href,$name)=@_;
  sub { 
    my $p=shift;
    $p->p([a,{href=>$href},$name])->brln;
  };
}