blue-oceans/2001/.rc


package H2H::RC;

sub init {
  my $o = shift;
  $o->{title} = 'ブルーオーシャンズ';
  $o->{subtitle} = '';
  $o->{theme} = 'Default';
  $o->{theme09} = 'general';
  $o->{favicon} = '../../favicon';
  
  $o->{YYYY} = 2001;
  if ($o->{file} =~ /^([0-9]{2})/) {
    $o->{MM} = $1;
    $o->{M} = $o->{MM}+0;
    $o->{subtitle} = ', '.$o->{M}.'月';
    $o->{headerfile} = $o->{pathtofile}.'.header-month';
    $o->{footerfile} = $o->{pathtofile}.'.footer-month';
    if ($o->{M} == 1) {
      $o->{prev_month_M} = 12;
      $o->{prev_month_MM} = '12';
      $o->{prev_month_YYYY} = $o->{YYYY}-1;
      $o->{next_month_M} = 2;
      $o->{next_month_MM} = '02';
      $o->{next_month_YYYY} = $o->{YYYY};
    } elsif ($o->{M} == 12) {
      $o->{prev_month_M} = 11;
      $o->{prev_month_MM} = '11';
      $o->{prev_month_YYYY} = $o->{YYYY};
      $o->{next_month_M} = 1;
      $o->{next_month_MM} = '01';
      $o->{next_month_YYYY} = $o->{YYYY}+1;
    } else {
      $o->{prev_month_M} = $o->{M}-1;
      $o->{prev_month_MM} = sprintf('%02d', $o->{prev_month_M});
      $o->{prev_month_YYYY} = $o->{YYYY};
      $o->{next_month_M} = $o->{M}+1;
      $o->{next_month_MM} = sprintf('%02d', $o->{next_month_M});
      $o->{next_month_YYYY} = $o->{YYYY};
    }
  }
}

1;
1	wakaba	1.1
2			package H2H::RC;
3
4			sub init {
5			my $o = shift;
6			$o->{title} = 'ブルーオーシャンズ';
7			$o->{subtitle} = '';
8			$o->{theme} = 'Default';
9			$o->{theme09} = 'general';
10			$o->{favicon} = '../../favicon';
11
12			$o->{YYYY} = 2001;
13			if ($o->{file} =~ /^([0-9]{2})/) {
14			$o->{MM} = $1;
15			$o->{M} = $o->{MM}+0;
16			$o->{subtitle} = ', '.$o->{M}.'月';
17			$o->{headerfile} = $o->{pathtofile}.'.header-month';
18			$o->{footerfile} = $o->{pathtofile}.'.footer-month';
19			if ($o->{M} == 1) {
20			$o->{prev_month_M} = 12;
21			$o->{prev_month_MM} = '12';
22			$o->{prev_month_YYYY} = $o->{YYYY}-1;
23			$o->{next_month_M} = 2;
24			$o->{next_month_MM} = '02';
25			$o->{next_month_YYYY} = $o->{YYYY};
26			} elsif ($o->{M} == 12) {
27			$o->{prev_month_M} = 11;
28			$o->{prev_month_MM} = '11';
29			$o->{prev_month_YYYY} = $o->{YYYY};
30			$o->{next_month_M} = 1;
31			$o->{next_month_MM} = '01';
32			$o->{next_month_YYYY} = $o->{YYYY}+1;
33			} else {
34			$o->{prev_month_M} = $o->{M}-1;
35			$o->{prev_month_MM} = sprintf('%02d', $o->{prev_month_M});
36			$o->{prev_month_YYYY} = $o->{YYYY};
37			$o->{next_month_M} = $o->{M}+1;
38			$o->{next_month_MM} = sprintf('%02d', $o->{next_month_M});
39			$o->{next_month_YYYY} = $o->{YYYY};
40			}
41			}
42			}
43
44			1;