Changeset 2746

Show
Ignore:
Timestamp:
05/02/05 14:39:42 (3 years ago)
Author:
kim
Message:

cleanup

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • animanga/trunk/scripts/www/kalendarium.pl

    r2745 r2746  
    11#!/usr/bin/perl -w 
    2  
    3 # kore wa kimu ni yotte tsukurareta yatsu de gozaimasu 
    42 
    53use strict; 
    …… 
    97 
    108 
    11 ########################################################### 
    129sub main { 
     10        my $a                   = Animanga->new(); 
     11         
     12        $a->jump({ 
     13                default => \&default, 
     14                post    => \&post, 
     15        }); 
     16} 
    1317 
    14         ############### 
    15         # params, typ 
    1618 
    17         my $a                   = Animanga->new(); 
     19sub post { 
     20        my($a) = @_; 
     21         
    1822        my $year                = $a->param("y"); 
    1923        my $month               = $a->param("m"); 
    2024        my $day                 = $a->param("d"); 
    2125        my $text                = $a->param("t"); 
    22         my $do                  = $a->param("do"); 
    2326        my $logged_in   = 0; 
    2427         
    2528        $logged_in = 1 if $a->userInfo != -1; 
    26  
    27         if($do eq "post" && $logged_in) { 
    28                 post($a, $year, $month, $day, $text, $logged_in); 
    29         } 
    30         else { 
    31                 default($a, $year, $month, $logged_in); 
    32         } 
    33 } 
    34  
    35  
    36 ########################################################### 
    37 sub post { 
    38         my($a, $year, $month, $day, $text, $logged_in) = @_; 
    39  
    40  
    41         ############## 
    42         # Kolla om inloggad och har e-postadress inskriven 
    43  
    44         $a->error("Uh, hur gick det här till? Du är inte inloggad :O") 
     29         
     30        # login-in and email check 
     31        $a->error("Uh, hur gick det här till? Du är inte inloggad.") 
    4532                unless $logged_in; 
    46         $a->error("Du måste ha en e-postadress inskriven för att kunna skriva i kalendariet.") 
     33        $a->error("Du måte ha en e-postadress inskriven för att kunna skriva i kalendariet.") 
    4734                unless $a->userInfo("realmail"); 
    4835 
    49  
    50         ############## 
    51         # Skriv till databasen 
    52  
    53         #$text = $a->parseTags($text); 
    54  
     36        # save post 
    5537        $a->insert("calendar", { 
    5638                year            => $year, 
    …… 
    6042                uid                     => $a->userInfo("uid") 
    6143        }); 
    62  
    63  
    64         ############## 
    65     # display part 
    6644     
     45    # say thanks 
    6746    $a->display("header",  { 
    6847        title => "Kalendarium" 
    …… 
    7554 
    7655 
    77 ########################################################### 
    7856sub default { 
     57        # vars 
     58        my($a) = @_; 
    7959 
    80         ############### 
    81         # vars 
    82  
    83         my($a, $year, $month, $logged_in) = @_; 
     60        my $year                = $a->param("y"); 
     61        my $month               = $a->param("m"); 
     62        my $logged_in   = 0; 
     63         
     64        $logged_in = 1 if $a->userInfo != -1; 
    8465 
    8566        my($i, $j, $temp); # the ugly ducklings 
    86          
    8767        my($events, $row); # fetching from the db 
    88          
    8968        my($post, $post_day_select); # making the post form 
    9069 
    …… 
    9473        my @month_names = ("ser_vi_det_har_sa_ar_nagot_fel", "januari", "februari", "mars", "april", "maj", "juni", "juli", "augusti", "september", "oktober", "november", "december"); 
    9574         
    96         my(@day_name, @day_event, $days_in_month, $rows, $nclass, $dclass, $bgc); # these will be exported to t2t 
     75        # these will be exported to t2t 
     76        my(@day_name, @day_event, $days_in_month, $rows, $nclass, $dclass, $bgc); 
    9777         
    98          
    99         ############### 
    10078        # bounds-check 
    101          
    10279        if($month > 12 || $month < 1) { 
    103                 $a->error("Ogiltigt datum", "Den månaden finns ju inte. Sono tsuki ga nai deshou :p"); 
     80                $a->error("Ogiltigt datum", "Den måaden finns ju inte."); 
    10481        } 
    10582         
    10683        if($year > 2010 || $year < 2000) { 
    107                 $a->error("Ogiltigt datum", "Jag lovar, det finns inget inlagt i kalendariet för det året"); 
     84                $a->error("Ogiltigt datum", "Jag lovar, det finns inget inlagt i kalendariet för det året."); 
    10885        } 
    10986         
    …… 
    11491        ; 
    11592         
    116          
    117         ############### 
    118         # name the days, or the days will name you 
    119          
     93        # name the days 
    12094        $temp   = "$year"."-"."$month"."-01"; 
    12195        $j              = $a->select("weekday('$temp')"); 
    …… 
    126100        } 
    127101         
    128          
    129         ############### 
    130102        # the event dance 
    131          
    132103        $events = $a->selectAll("kid, text, day", "calendar", "month='$month' and year='$year' and writestatus='1'"); 
    133104         
    134105        foreach $row (@$events) { 
    135                 $day_event[$row->{"day"} -1] .= "<!-- $row->{\"kid\"} -->$row->{\"text\"}<br /><br />\n"; 
     106                $day_event[$row->{"day"} - 1] .= qq|<!-- $row->{"kid"} -->$row->{"text"}<br /><br />\n|; 
    136107        } 
    137108         
    …… 
    165136        } 
    166137 
    167  
    168         ############## 
    169         # post office 
    170  
     138        # make post form 
    171139        if($logged_in) { 
    172140                for($i = 0; $i < $days_in_month; $i++) { 
    …… 
    184152        } 
    185153 
    186          
    187         ############## 
    188         # display part 
    189          
     154        # display 
    190155        $a->display("header",  { 
    191156                title => "Kalendarium" 
    …… 
    207172 
    208173         
    209 ################ 
    210 # sub isLeapYear 
    211  
    212174sub isLeapYear { 
    213175        my($year) = @_;