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
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;