ĸÃÄ´Â ³ª¸ð¸¦ ½èÁö¸¸ ¼Ò½ºÀÇ ³»¿ëÀº °Çµå¸°°Ô ¾ø°Åµç¿ä?
ÀÛ¼ºµÎ Àü ÁÖ·Î ÅؽºÆ®¿¡µðÅ͸¦ ¾²±¸¿ä. Ãʺ¸°¡ ¿ì° ¼Ò½ºÀÇ
³»¿ëÀ» °Çµå¸®°Ú¾î¿ä. ±×·³ Á¦°¡ ½Ç¼ö·Î °Çµå·È´Ü ¾ê±â°¡ µÇ³ª¿ä?
¼ö°í½º·¯¿ì½Ã°ÚÁö¸¸ ¾Æ·¡¿¡ ±× ¼Ò½º¸¦ ±×´ë·Î ¿Ã¸®´Ï Çѹø ºÁÁÖ¼¼¿ä.
Àü µµÅë ¾îµð°¡ À߸øµÈ °ÇÁö ¸ð¸£°Ú³×¿ä. ¤Ð.¤Ð

===================================================
calendar.plÀÇ ¼Ò½º

#!/usr/bin/perl
#
# Calendar Script
#
# Matt Kruse
# http://www.mattkruse.com/
#

$|=1;
print "Content-type: text/html

";


# $base_dir = "";

#####################################################################
#
# Parse input
#
#####################################################################
sub ReadParse {
local (*in) = @_ if @_; local ($i, $loc, $key, $val);
if ($ENV{ REQUEST_METHOD } eq "GET") { $in = $ENV{ QUERY_STRING };}
elsif ($ENV{ REQUEST_METHOD } eq "POST")
{read(STDIN,$in,$ENV{ CONTENT_LENGTH });}
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
$in[$i] =~ s/+/ /g; ($key, $val) = split(/=/,$in[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} .= "" if (defined($in{$key}));
$in{$key} .= $val;
}
return 1;
}


#####################################################################
# Print out a small calendar
# Linked month name to view month s calendar
#####################################################################
sub small_calendar {
my $month = shift;
my $year = shift;

my $month_name = $months[$month-1];

&PerpetualCalendar($month,1,$year);
$start_day = $perp_dow;
$days_in_month = $perp_eom;

$curr_day = 0;
my $return = <<"END";


END
foreach $date (1-$start_day .. $days_in_month) {
if ($curr_day == 0) { $return .= ""; }
if ($date > 0) {
$return .= "";
}
else {
$return .= "";
}
$curr_day++;
if ($curr_day == 7) {
$return .= "
";
$curr_day=0;
}
}
$return .= "

${month_name} $year
$date

";
return $return;
} #end of small_calendar


#####################################################################
# Print out a small calendar
# Linked dates to view date s details
#####################################################################
sub small_calendar2 {
my $month = shift;
my $year = shift;
my $current_date = shift;
my $month_name = $months[$month-1];
my $bgcolor;

&PerpetualCalendar($month,1,$year);
$start_day = $perp_dow;
$days_in_month = $perp_eom;

$curr_day = 0;
my $return = <<"END";


END
foreach $date (1-$start_day .. $days_in_month) {
if ($curr_day == 0) { $return .= ""; }
if ($date == $current_date) { $bgcolor=" BGCOLOR=yellow "; }
else { $bgcolor = ""; }

if ($date > 0) {
$return .= "";
}
else {
$return .= "";
}
$curr_day++;
if ($curr_day == 7) {
$return .= "
";
$curr_day=0;
}
}
$return .= "

${month_name} $year
$date

";
return $return;
} #end of small_calendar2


#####################################################################
#
# Read in config file
#
#####################################################################
sub read_config {
my $config_file;
if ($in{config}) {
$vars{config} = $in{config};
unless ($vars{config} =~ m|^/|) {
$config_file = $vars{base_dir} . $vars{config};
}
else {
$config_file = $vars{config};
}
}
else {
$vars{config} = "calendar.cfg";
$config_file = $vars{base_dir} . $vars{config};
}
my $key,$val;
open(IN,$config_file) || &Error("Can t open config file $config_file.");
while() {
next if /^#/;
chomp;
($key,$val) = ( /([^=]+)=(.*)/ );
$key = lc($key);
$val =~ s|[(S+)]|$vars{$1}|g;
$val =~ s|s*$||;
$vars{$key} = $val;
}
close(IN);

@months = split( , ,$vars{months});
($vars{month1},$vars{month2},$vars{month3},$vars{month4},$vars{month5},$vars{month6},$vars{month7},$vars{month8},$vars{month9},$vars{month10},$vars{month11},$vars{month12} ) = @months;

@shortmonths = split( , ,$vars{shortmonths});
($vars{shortmonth1},$vars{shortmonth2},$vars{shortmonth3},$vars{shortmonth4},$vars{shortmonth5},$vars{shortmonth6},$vars{shortmonth7},$vars{shortmonth8},$vars{shortmonth9},$vars{shortmonth10},$vars{shortmonth11},$vars{shortmonth12} ) = @shortmonths;

@days = split( , ,$vars{days});
($vars{dayname1},$vars{dayname2},$vars{dayname3},$vars{dayname4},$vars{dayname5},$vars{dayname6},$vars{dayname7} ) = @days;

}


#####################################################################
#
# Return an error screen
#
#####################################################################
sub Error {
$message = shift;
print <<"END";

ERROR

Error Message: $message Debugging Info File and Directory Locations: Base Directory ($base_dir): $base_dir Template Directory ($template_dir): $template_dir Calendar Events File ($calendar_file): $calendar_file Current Calendar Template ($calendar_html): $calendar_html Current View Day Template ($viewday_html): $viewday_html File Permissions Any potential problems caused by file permissions or locations will be listed here. END unless (-d $base_dir) { print " The base directory does not exist "; } unless (-e $calendar_file) { print " The calendar events file does not exist "; } unless (-w $calendar_file) { print " The calendar events file is not world-writeable (chmod 777) "; } unless (-d $template_dir) { print " The Template directory does not exist "; } unless (-e $calendar_html) { print " The calendar template file does not exist "; } unless (-w $calendar_html) { print " The calendar template file is not world-writeable (chmod 777) "; } unless (-e $viewday_html) { print " The view day template file does not exist "; } unless (-w $viewday_html) { print " The view day template file is not world-writeable (chmod 777) "; } print <<"END"; Online Documentation

END
exit(0);
}


#####################################################################
#
# Calendar logic
#
#####################################################################
sub PerpetualCalendar {
# This perpetual calendar routine provides accurate day/date
# correspondences for dates from 1601 to 2899 A.D. It is based on
# the Gregorian calendar, so be aware that early correspondences
# may not always be historically accurate. The Gregorian calendar
# was adopted by the Italian states, Portugal and Spain in 1582,
# and by the Catholic German states in 1583. However, it was not
# adopted by the Protestant German states until 1699, by England
# and its colonies until 1752, by Sweden until 1753, by Japan
# until 1873, by China until 1912, by the Soviet Union until 1918,
# and by Greece until 1923.
($perp_mon,$perp_day,$perp_year) = @_;
%day_counts =
(1,0,2,31,3,59,4,90,5,120,6,151,7,181,
8,212,9,243,10,273,11,304,12,334);
$perp_days = (($perp_year-1601)*365)+(int(($perp_year-1601)/4));
$perp_days += $day_counts{$perp_mon};
$perp_days += $perp_day;
$perp_sofar = $day_counts{$perp_mon};
$perp_sofar += $perp_day;
$perp_togo = 365-$perp_sofar;
if (int(($perp_year-1600)/4) eq (($perp_year-1600)/4)) {
$perp_togo++;
if ($perp_mon > 2) {
$perp_days++;
$perp_sofar++;
$perp_togo -= 1;
}
}
foreach $key (1700,1800,1900,2100,2200,2300,2500,2600,2700) {
if ((($perp_year == $key) && ($perp_mon > 2))
|| ($perp_year > $key)) {
$perp_days -= 1;
}
}
$perp_dow = $perp_days - (int($perp_days/7)*7);
if ($perp_dow == 7) { $perp_dow = 0; }
if ($vars{monsunweek} eq "Yes") {
$perp_dow -= 1;
if ($perp_dow == -1) { $perp_dow = 6; }
}
$perp_eom = 31;
if (($perp_mon == 4) || ($perp_mon == 6)
|| ($perp_mon == 9) || ($perp_mon == 11)) {
$perp_eom = 30;
}
if (($perp_mon == 2)) {
$perp_eom = 28;
}
if ((int(($perp_year-1600)/4) eq (($perp_year-1600)/4))
&& ($perp_mon == 2)) {
$perp_eom = 29;
}
foreach $key (1700,1800,1900,2100,2200,2300,2500,2600,2700) {
if ($perp_year == $key) {
if ($perp_mon == 1) {
$perp_togo -= 1;
}
elsif ($perp_mon == 2) {
$perp_togo -= 1;
$perp_eom = 28;
}
else {
$perp_sofar -= 1;
}
}
}
}


#####################################################################
# load_template
#
# load_template( "filename" )
#
# load a file and return it
#
#####################################################################
sub load_template {
my($filename) = shift;
undef $/;
open(IN,"$filename") || &Error("Couldn t open file $filename in load_template: $!
");
my($template) = ;
close(IN);
$/="
";
return $template;
}

#####################################################################
# parse_template
#
# parse_template( $template_string , \%value_array )
#
# Replace <%=TAGS%> in template with values
#
#####################################################################
sub parse_template {
my ($template) = shift;
my ($data) = shift;

# Bring in #include files
$template =~ s|

|
package temp;
my $tmp;
my $file = $1;
if (!open(IN,$file)) {
$tmp = "[ INCLUDE ERROR: Couldn t find file $file to include ]";
}
else {
undef $/;
$tmp = ;
$/ = "
";
close(IN);
$tmp;
}
|sgeix;

# Replace <%TAG%> <%/TAG%>
foreach (keys %$data) {
if (defined ${$data}{$_}) {
$template =~ s|<%$_%>(.+?)<%/$_%>|
my($tmp2) = $1;
$tmp2 =~ s!<%=VALUE%>!${$data}{$_}!s;
"$tmp2";
|esgx;
}
else {
$template =~ s|<%$_%>(.*?)<%/$_%>||sg;
}
}

# Replace <%=TAG%>
foreach (keys %$data) {
$template =~ s|<%=$_%>|${$data}{$_}|sg;
}

# Replace <%=ENCODE TAG%>
foreach (keys %$data) {
$temp = ${$data}{$_};
$temp =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
$template =~ s|<%=ENCODE $_%>|$temp|sg;
}

# Replace <% code %> with output from code
$template =~ s|
<%(.*?)%>
|
package temp;
my $tmp;
my $code = $1;
$code =~ s/print/$tmp .= /sg;
eval($code);
$tmp;
|sgex;


# Pass back parsed template
return $template;

}

#####################################################################
# parse_output
#
# parse_output( $tag , $template_string , \%value_array )
#
# Loop through values array and replace <%OUTPUT $tag%>
#
#####################################################################
sub parse_output {
my ($tag) = shift;
my ($template) = shift;
my ($data) = shift;

# Parse the <%OUTPUT%> <%/OUTPUT%> tags for record format
my ($format) = ($template =~ m|<%OUTPUT $tag%>(.+?)<%/OUTPUT%>|si);
my($output) = "";
my($key,$tmp,$tmp2);
# Loop through data and create output data
foreach $key ( sort keys %$data ) {
$tmp = $format;
foreach (keys %{$$data{$key}}) {
if ($$data{$key}{$_} =~ /S/) {
$tmp =~ s|<%$_%>(.+?)<%/$_%>|
$tmp2 = $1;
$tmp2 =~ s!<%=VALUE%>!$$data{$key}{$_}!s;
"$tmp2";
|esgx;
}
else {
$tmp =~ s|<%$_%>(.+?)<%/$_%>||sg;
}
}
foreach (keys %{$$data{$key}}) {
$tmp =~ s|<%=($_)%>|$$data{$key}{$1}|sg;
}
$output .= $tmp;
}

# Replace OUTPUT in template with generated output
$template =~ s|<%OUTPUT $tag%>.+?<%/OUTPUT%>|$output|s;

return $template;
}

#####################################################################
# html_escape
#
# html_escape ( $string )
#
# Escape a string for display in HTML forms, etc.
#
#####################################################################
sub html_escape {
my ($string) = shift;
$string =~ s|"|"|sg;
$string =~ s|<|<|sg;
$string =~ s|>|>|sg;

return $string;
}


#####################################################################
#
# DISPLAY()
#
# Display the calendar
#
#####################################################################
sub DISPLAY {
&read_cal_data;

# Get next and last months
# ------------------------
$vars{lastyear} = $vars{year};
$vars{nextyear} = $vars{year};
$vars{lastmonth} = $vars{month}-1;
$vars{nextmonth} = $vars{month}+1;
if ($vars{lastmonth} < 1) { $vars{lastmonth}=12; $vars{lastyear}--; }
if ($vars{nextmonth} > 12){ $vars{nextmonth}=1; $vars{nextyear}++; }

$vars{lastmonth_calendar} = &small_calendar( $vars{lastmonth} , $vars{lastyear} );
$vars{nextmonth_calendar} = &small_calendar( $vars{nextmonth} , $vars{nextyear} );

$vars{nextmonth_name} = $months[$vars{nextmonth} - 1];
$vars{lastmonth_name} = $months[$vars{lastmonth} - 1];

$vars{nextmonth_link} = "$vars{cgi}?config=$vars{config}&Year=$vars{nextyear}&Month=$vars{nextmonth}";
$vars{lastmonth_link} = "$vars{cgi}?config=$vars{config}&Year=$vars{lastyear}&Month=$vars{lastmonth}";

&PerpetualCalendar(int($vars{ month }),1,int($vars{ year }));

# Generate select box of months
# -----------------------------
$month_selected{$vars{month}} = " SELECTED ";
$year_selected{$vars{year}} = " SELECTED ";
$vars{ select_month_form } = "

";
foreach $i (1 .. 12) {
$temp = "month" . $i;
$vars{ select_month_form } .= "$vars{$temp}";
}
$vars{ select_month_form } .= "";
foreach ($vars{current_year}-1 .. $vars{year}+2) {
$vars{ select_month_form } .= "$_
";
}
$vars{select_month_form} .=

;

# Load the template and do the replace
# ------------------------------------
$template = &load_template("$vars{calendar_html}");

# Insert data for each day
# ------------------------
# $day_format = template for each separate day
# $output = full text of all days to insert into calendar template
# $tmp_day = temp variable to hold day s template each time thru
#

my ($day_format) = ($template =~ m|<%OUTPUT DAY%>(.+)<%/OUTPUT%>|si);
my ($output) = "