use vars qw($SCRIPT_DIR);
if ( $0 =~ m!^(.*?)/[\w\d\-\.]+\.pl! ) { $SCRIPT_DIR=$1 }
if ($SCRIPT_DIR eq '' && open(F, '/etc/openwebmail/openwebmail_path.conf')) {
$_=<F>; close(F); if ( $_=~/^([^\s]*)/) { $SCRIPT_DIR=$1 }
}
if ($SCRIPT_DIR eq '') { print "Content-type: text/html\n\nSCRIPT_DIR not set in /etc/openwebmail/openwebmail_path.conf !\n"; exit 0; }
push (@INC, $SCRIPT_DIR);
foreach (qw(ENV BASH_ENV CDPATH IFS TERM)) {delete $ENV{$_}}; $ENV{PATH}='/bin:/usr/bin';
umask(0002);
use strict;
use Fcntl qw(:DEFAULT :flock);
use CGI qw(-private_tempfiles :standard);
use CGI::Carp qw(fatalsToBrowser carpout);
require "modules/dbm.pl";
require "modules/suid.pl";
require "modules/filelock.pl";
require "modules/tool.pl";
require "modules/datetime.pl";
require "modules/lang.pl";
require "auth/auth.pl";
require "quota/quota.pl";
require "shares/ow-shared.pl";
require "shares/lunar.pl";
require "shares/iconv-chinese.pl";
require "shares/calbook.pl";
use vars qw(%config %config_raw);
use vars qw($thissession);
use vars qw($domain $user $userrealname $uuid $ugid $homedir);
use vars qw(%prefs %style %icontext);
use vars qw(%lang_folders %lang_text %lang_err);
use vars qw(%lang_calendar %lang_month %lang_wday_abbrev %lang_wday %lang_order);
use vars qw($folder $messageid);
use vars qw($escapedfolder $escapedmessageid);
use vars qw($miscbuttonsstr);
use vars qw(@slottime);
openwebmail_requestbegin();
$SIG{PIPE}=\&openwebmail_exit;
$SIG{TERM}=\&openwebmail_exit;
userenv_init();
if (!$config{'enable_calendar'}) {
openwebmailerror(__FILE__, __LINE__, "$lang_text{'calendar'} $lang_err{'access_denied'}");
}
$folder = param('folder') || 'INBOX';
$messageid = param('message_id') ||'';
$escapedfolder = ow::tool::escapeURL($folder);
$escapedmessageid = ow::tool::escapeURL($messageid);
@slottime=();
for my $h (0..23) {
for (my $m=0; $m<60 ; $m=$m+$prefs{'calendar_interval'}) {
push(@slottime, sprintf("%02d%02d", $h, $m));
}
}
push(@slottime, "2400");
$miscbuttonsstr='';
if ($config{'enable_webmail'}) {
if ($messageid eq "") {
$miscbuttonsstr .= iconlink("owm.gif", "$lang_text{'backto'} ".($lang_folders{$folder}||$folder),
qq|accesskey="M" href="$config{'ow_cgiurl'}/openwebmail-main.pl?action=listmessages&sessionid=$thissession&folder=$escapedfolder"|);
} else {
$miscbuttonsstr .= iconlink("owm.gif", "$lang_text{'backto'} ".($lang_folders{$folder}||$folder),
qq|accesskey="M" href="$config{'ow_cgiurl'}/openwebmail-read.pl?action=readmessage&sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid"|);
}
}
if ($config{'enable_webdisk'}) {
$miscbuttonsstr .= iconlink("webdisk.gif", $lang_text{'webdisk'}, qq|accesskey="E" href="$config{'ow_cgiurl'}/openwebmail-webdisk.pl?action=showdir&sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid"|);
}
if ( $config{'enable_sshterm'}) {
if ( -r "$config{'ow_htmldir'}/applet/mindterm2/mindterm.jar" ) {
$miscbuttonsstr .= iconlink("sshterm.gif" ,"$lang_text{'sshterm'} ", qq|accesskey="T" href="#" onClick="window.open('$config{ow_htmlurl}/applet/mindterm2/ssh2.html', '_applet', 'width=400,height=100,top=2000,left=2000,resizable=no,menubar=no,scrollbars=no');"|);
} elsif ( -r "$config{'ow_htmldir'}/applet/mindterm/mindtermfull.jar" ) {
$miscbuttonsstr .= iconlink("sshterm.gif" ,"$lang_text{'sshterm'} ", qq|accesskey="T" href="#" onClick="window.open('$config{ow_htmlurl}/applet/mindterm/ssh.html', '_applet', 'width=400,height=100,top=2000,left=2000,resizable=no,menubar=no,scrollbars=no');"|);
}
}
if ( $config{'enable_preference'}) {
$miscbuttonsstr .= iconlink("prefs.gif", $lang_text{'userprefs'}, qq|accesskey="O" href="$config{'ow_cgiurl'}/openwebmail-prefs.pl?action=editprefs&sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid&prefs_caller=cal"|);
}
$miscbuttonsstr .= iconlink("logout.gif", "$lang_text{'logout'} $prefs{'email'}", qq|accesskey="X" href="$config{'ow_cgiurl'}/openwebmail-main.pl?sessionid=$thissession&action=logout"|);
my $action = param('action')||'';
my %eventcolors=( '1a'=>'b0b0e0', '1b'=>'b0e0b0', '1c'=>'b0e0e0',
'1d'=>'e0b0b0', '1e'=>'e0b0e0', '1f'=>'e0e0b0',
'2a'=>'9090f8', '2b'=>'90f890', '2c'=>'90f8f8',
'2d'=>'f89090', '2e'=>'f890f8', '2f'=>'f8f890');
my $year=param('year')||'';
my $month=param('month')||'';
my $day=param('day')||'';
if (defined(param('daybutton'))) {
$day=param('daybutton'); $day=~s/\s//g;
}
my $index=param('index')||'';
my $string=param('string')||'';
my $starthour=param('starthour')||0;
my $startmin=param('startmin')||0;
my $startampm=param('startampm')||'am';
my $endhour=param('endhour')||0;
my $endmin=param('endmin')||0;
my $endampm=param('endampm')||'am';
my $link=param('link')||'';
my $email=param('email')||'';
my $eventcolor=param('eventcolor')||'none';
my $dayfreq=param('dayfreq')||'thisdayonly';
my $thisandnextndays=param('thisandnextndays')||0;
my $ndays=param('ndays')||0;
my $monthfreq=param('monthfreq')||0;
my $everyyear=param('everyyear')||0;
if ($action eq "calyear") {
yearview($year);
} elsif ($action eq "calmonth") {
monthview($year, $month);
} elsif ($action eq "calweek") {
weekview($year, $month, $day);
} elsif ($action eq "calday") {
dayview($year, $month, $day);
} elsif ($action eq "callist") {
listview($year);
} elsif ($action eq "caledit") {
edit_item($year, $month, $day, $index);
} elsif ($action eq "caladd") {
add_item($year, $month, $day,
$string,
$starthour, $startmin, $startampm,
$endhour, $endmin, $endampm,
$dayfreq,
$thisandnextndays, $ndays, $monthfreq, $everyyear,
$link, $email, $eventcolor);
dayview($year, $month, $day);
} elsif ($action eq "caldel") {
del_item($index);
if (defined(param('callist'))) {
listview($year);
} else {
dayview($year, $month, $day);
}
} elsif ($action eq "calupdate") {
update_item($index,
$year, $month, $day,
$string,
$starthour, $startmin, $startampm,
$endhour, $endmin, $endampm,
$dayfreq,
$thisandnextndays, $ndays, $monthfreq, $everyyear,
$link, $email, $eventcolor);
if (defined(param('callist'))) {
listview($year);
} else {
dayview($year, $month, $day);
}
} else {
openwebmailerror(__FILE__, __LINE__, "Action $lang_err{'has_illegal_chars'}");
}
openwebmail_requestend();
sub yearview {
my $year=$_[0];
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
my $localtime=ow::datetime::time_gm2local(time(), $prefs{'timeoffset'}, $prefs{'daylightsaving'});
my ($current_year, $current_month, $current_day)=(ow::datetime::seconds2array($localtime))[5,4,3];
$current_year+=1900; $current_month++;
$year = $current_year if (!$year);
$year=2037 if ($year>2037); $year=1970 if ($year<1970);
my ($html, $temphtml);
$html = applystyle(readtemplate("yearview.template"));
$temphtml = startform(-name=>'dateselform',
-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(action=>'calyear',
sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid);
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/g;
$html =~ s/\@\@\@DATESELMENU\@\@\@/$lang_text{'calfmt_year'}/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-default=>$year,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/ $temphtml /;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
$temphtml = formatted_date($year);
$html =~ s/\@\@\@CALTITLE\@\@\@/$temphtml/g;
my $cal_url=qq|$config{'ow_cgiurl'}/openwebmail-cal.pl?sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid|;
$temphtml = calbuttonsstr($cal_url, $year, $current_month, $current_day);
if ($year != $current_year) {
$temphtml .= iconlink("refresh.gif", "$lang_text{'backto'} ".formatted_date($current_year), qq|accesskey="R" href="$cal_url&action=calyear&year=$current_year"|);
}
$temphtml .= " \n$miscbuttonsstr";
$html =~ s/\@\@\@MENUBARLINKS\@\@\@/$temphtml/g;
my $prev_year = $year - 1;
my $gif="left.gif"; $gif="right.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($prev_year), qq|accesskey="U" href="$cal_url&action=calyear&year=$prev_year"|). qq| \n|;
$html =~ s/\@\@\@PREV_LINK\@\@\@/$temphtml/g;
my $next_year = $year + 1;
$gif="right.gif"; $gif="left.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($next_year), qq|accesskey="D" href="$cal_url&action=calyear&year=$next_year"|). qq| \n|;
$html =~ s/\@\@\@NEXT_LINK\@\@\@/$temphtml/g;
my (%items, %indexes);
my $calbookfile=dotpath('calendar.book');
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if ($prefs{'calendar_reminderforglobal'}) {
readcalbook("$config{'global_calendarbook'}", \%items, \%indexes, 1E6);
if ($prefs{'calendar_holidaydef'} eq 'auto') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'language'}", \%items, \%indexes, 1E7);
} elsif ($prefs{'calendar_holidaydef'} ne 'none') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'calendar_holidaydef'}", \%items, \%indexes, 1E7);
}
}
my @accesskey=qw(0 1 2 3 4 5 6 7 8 9 0 J Q);
my $week=1;
for my $month (1..12) {
my @days = set_days_in_month($year, $month, $days_in_month[$month]);
my $bgcolor=$style{tablerow_light};
$bgcolor=$style{tablerow_dark} if ($month==$current_month && $year == $current_year);
my $td_bgcolorstr=qq|bgcolor=$bgcolor |;
if ($prefs{'uselightbar'}) {
$td_bgcolorstr.=qq|onMouseOver='this.style.backgroundColor=$style{tablerow_hicolor};' |.
qq|onMouseOut='this.style.backgroundColor=$bgcolor;' |.
qq|onClick="window.location.href='$cal_url&action=calmonth&year=$year&month=$month';"|;
}
$temphtml = qq|<td valign=top align=center $td_bgcolorstr>\n|;
$temphtml .= qq|<table border="0" width="100%"><tr><td align="center">|.
qq|<a accesskey="$accesskey[$month]" href="$cal_url&action=calmonth&year=$year&month=$month">|.
qq|<B>$lang_month{$month}</B></a>|.
qq|</td></tr></table>\n|;
$temphtml .= qq|<table border="0" cellpadding="1" cellspacing="0" width="100%">\n|;
$temphtml .= qq|<tr align=center><td>$lang_wday_abbrev{'week'}</td>|;
for (my $i=0; $i<7; $i++) {
$temphtml.=qq|<td align=center>|.
$lang_wday_abbrev{($prefs{'calendar_weekstart'}+$i)%7}.
qq|</td>|;
}
$temphtml .= qq|</tr>\n|;
for my $x (0..5) {
$temphtml .= qq|<tr align=center>|;
if (($days[$x][0]) || ($days[$x][6])) {
$day = $days[$x][0]||$days[$x][6];
$temphtml .= qq|<td><a href="$cal_url&action=calweek&year=$year&month=$month&day=$day">|.
qq|<font color=
}
for my $y (0..6) {
if ($days[$x][$y]) {
$day = $days[$x][$y];
my $wdaynum=($prefs{'calendar_weekstart'}+$y)%7;
my $dow=$ow::datetime::wday_en[$wdaynum%7];
my $date=sprintf("%04d%02d%02d", $year,$month,$day);
my $date2=sprintf("%04d,%02d,%02d,%s", $year,$month,$day,$dow);
my @indexlist=();
foreach ($date, '*') {
next if (!defined($indexes{$_}));
foreach my $index (@{$indexes{$_}}) {
if ($date =~/$items{$index}{'idate'}/ ||
$date2=~/$items{$index}{'idate'}/ ||
ow::datetime::easter_match($year,$month,$day,$items{$index}{'idate'}) ) {
push(@indexlist, $index);
}
}
}
@indexlist=sort { $items{$a}{'starthourmin'}<=>$items{$b}{'starthourmin'} ||
$items{$a}{'endhourmin'}<=>$items{$b}{'endhourmin'} ||
$b<=>$a } @indexlist;
my $eventstr='';
for my $index (@indexlist) {
$eventstr.="$items{$index}{'string'} ";
}
if ($eventstr ne '') {
if ($eventstr!~/"/) {
$eventstr=qq|title="$eventstr"|;
} else {
$eventstr=qq|title='$eventstr'|;
}
}
if ($day==$current_day && $month==$current_month && $year==$current_year) {
$temphtml .= qq|<td bgcolor=$style{'tablerow_hicolor'}>|;
} else {
$temphtml .= qq|<td>|;
}
$temphtml .= qq|<a href="$cal_url&action=calday&year=$year&month=$month&day=$day" $eventstr>|;
if ($eventstr ne '') {
$temphtml .= qq|<b>$days[$x][$y]</b>|;
} else {
$temphtml .= qq|$days[$x][$y]|;
}
$temphtml .= qq|</a></td>\n|;
$week++ if ($y==6 && $week<53);
} else {
$temphtml .= qq|<td> </td>|;
}
}
$temphtml .= qq|</tr>\n|;
}
$temphtml .= qq|</table></td>\n|;
$html =~ s/\@\@\@MONTH$month\@\@\@/$temphtml/;
}
httpprint([],
[htmlheader(), htmlplugin($config{'header_pluginfile'}),
$html,
htmlplugin($config{'footer_pluginfile'}), htmlfooter(2)] );
}
sub monthview {
my ($year, $month)=@_;
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
my $localtime=ow::datetime::time_gm2local(time(), $prefs{'timeoffset'}, $prefs{'daylightsaving'});
my ($current_year, $current_month, $current_day)=(ow::datetime::seconds2array($localtime))[5,4,3];
$current_year+=1900; $current_month++;
$year = $current_year if (!$year);
$month = $current_month if (!$month);
$year=2037 if ($year>2037); $year=1970 if ($year<1970);
$month=12 if ($month>12); $month=1 if ($month<1);
my ($html, $temphtml);
$html = applystyle(readtemplate("monthview.template"));
$temphtml = startform(-name=>'dateselform',
-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(action=>'calmonth',
sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid);
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/g;
$html =~ s/\@\@\@DATESELMENU\@\@\@/$lang_text{'calfmt_yearmonth'}/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-default=>$year,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/ $temphtml /;
$temphtml = popup_menu(-name=>'month',
-values=>[1..12],
-labels=>\%lang_month,
-default=>$month,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@MONTH_STR\@\@\@/ $temphtml /;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
$temphtml = formatted_date($year, $month);
$html =~ s/\@\@\@CALTITLE\@\@\@/$temphtml/g;
my $cal_url=qq|$config{'ow_cgiurl'}/openwebmail-cal.pl?sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid|;
$temphtml = calbuttonsstr($cal_url, $year, $month, $current_day);
if ($year!=$current_year || $month!=$current_month) {
$temphtml .= iconlink("refresh.gif", "$lang_text{'backto'} ".formatted_date($current_year,$current_month), qq|accesskey="R" href="$cal_url&action=calmonth&year=$current_year&month=$current_month"|);
}
$temphtml .= " \n$miscbuttonsstr";
$html =~ s/\@\@\@MENUBARLINKS\@\@\@/$temphtml/g;
my ($prev_year, $prev_month)= ($year, $month-1);
if ($month == 1) {
($prev_year, $prev_month) = ($year-1, 12);
}
my $gif="left.gif"; $gif="right.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($prev_year,$prev_month), qq|accesskey="U" href="$cal_url&action=calmonth&year=$prev_year&month=$prev_month"|). qq| \n|;
$html =~ s/\@\@\@PREV_LINK\@\@\@/$temphtml/g;
my ($next_year, $next_month)= ($year, $month+1);
if ($month == 12) {
($next_year, $next_month) = ($year+1, 1);
}
$gif="right.gif"; $gif="left.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($next_year,$next_month), qq|accesskey="D" href="$cal_url&action=calmonth&year=$next_year&month=$next_month"|). qq| \n|;
$html =~ s/\@\@\@NEXT_LINK\@\@\@/$temphtml/g;
for (my $i=0; $i<7; $i++) {
my $n=($prefs{'calendar_weekstart'}+$i)%7;
if ($n==0) {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!<font color=#cc0000>$lang_wday{$n}</font>!;
} elsif ($n==6) {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!<font color=#00aa00>$lang_wday{$n}</font>!;
} else {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!$lang_wday{$n}!;
}
}
my (%items, %indexes);
my $calbookfile=dotpath('calendar.book');
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if ($prefs{'calendar_reminderforglobal'}) {
readcalbook("$config{'global_calendarbook'}", \%items, \%indexes, 1E6);
if ($prefs{'calendar_holidaydef'} eq 'auto') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'language'}", \%items, \%indexes, 1E7);
} elsif ($prefs{'calendar_holidaydef'} ne 'none') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'calendar_holidaydef'}", \%items, \%indexes, 1E7);
}
}
$temphtml = start_form(-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid,
action=>'calday',
year=>$year,
month=>$month);
$html =~ s/\@\@\@STARTDAYFORM\@\@\@/$temphtml/;
my @days = set_days_in_month($year, $month, $days_in_month[$month]);
for my $x ( 0..5 ) {
for my $y ( 0..6 ) {
my $day = $days[$x][$y];
my ($td_bgcolorstr, $bgcolor);
if ($year==$current_year && $month==$current_month && $day==$current_day) {
$bgcolor=$style{tablerow_dark};
} elsif ($days[$x][$y]) {
$bgcolor=$style{tablerow_light};
}
if ($bgcolor ne '') {
$td_bgcolorstr=qq|bgcolor=$bgcolor |;
if ($prefs{'uselightbar'}) {
$td_bgcolorstr.=qq|onMouseOver='this.style.backgroundColor=$style{tablerow_hicolor};' |.
qq|onMouseOut='this.style.backgroundColor=$bgcolor;' |.
qq|onClick="window.location.href='$cal_url&action=calday&year=$year&month=$month&day=$day';"|;
}
}
$temphtml = qq|<td $td_bgcolorstr valign=top>|.
qq|<table width="100%" cellpadding="0" cellspacing="0">\n|;
if ($days[$x][$y] =~ /\d+/) {
my $t=ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $dow=$ow::datetime::wday_en[(ow::datetime::seconds2array($t))[6]];
my $date=sprintf("%04d%02d%02d", $year, $month, $day);
my $date2=sprintf("%04d,%02d,%02d,%s", $year,$month,$day,$dow);
my $i=0;
$temphtml .= qq|<tr><td align="right">|;
if ($prefs{'charset'} eq "big5" || $prefs{'charset'} eq "gb2312") {
$temphtml.=lunar_str($year, $month, $day, $prefs{'charset'});
}
my $daystr=$days[$x][$y]; $daystr=" ".$daystr if (length($daystr)<2);
$temphtml .= submit(-name=>'daybutton',
-value=>$daystr,
-override=>'1').
qq|</td></tr>|;
my @indexlist=();
foreach ($date, '*') {
next if (!defined($indexes{$_}));
foreach my $index (@{$indexes{$_}}) {
if ($date =~/$items{$index}{'idate'}/ ||
$date2=~/$items{$index}{'idate'}/ ||
ow::datetime::easter_match($year,$month,$day,$items{$index}{'idate'}) ) {
push(@indexlist, $index);
}
}
}
@indexlist=sort { $items{$a}{'starthourmin'}<=>$items{$b}{'starthourmin'} ||
$items{$a}{'endhourmin'}<=>$items{$b}{'endhourmin'} ||
$b<=>$a } @indexlist;
$temphtml .= qq|<tr><td>|;
for my $index (@indexlist) {
if ($i<$prefs{'calendar_monthviewnumitems'}) {
$temphtml .= month_week_item($items{$index}, qq|$cal_url&action=calday&year=$year&month=$month&day=$day|, ($index>=1E6))
}
$i++;
}
if ($i>$prefs{'calendar_monthviewnumitems'}) {
$temphtml .= qq|<br><br><a href="$cal_url&|.
qq|action=calday&year=$year&month=$month&day=$day">|.
qq|$lang_text{'moreitems'}</a>\n|;
}
$temphtml .= qq| <br>\n| if ($i==0);
$temphtml .= qq|</td></tr></table></td>\n|;
} else {
$temphtml .= qq|<tr><td>$days[$x][$y]</td></tr>|.
qq|<tr><td></td></tr></table></td>\n|;
}
$html =~ s/\@\@\@DAY$x$y\@\@\@/$temphtml/;
}
}
httpprint([],
[htmlheader(), htmlplugin($config{'header_pluginfile'}),
$html,
htmlplugin($config{'footer_pluginfile'}), htmlfooter(2)] );
}
sub weekview {
my ($year, $month, $day)=@_;
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
my $localtime=ow::datetime::time_gm2local(time(), $prefs{'timeoffset'}, $prefs{'daylightsaving'});
my ($current_year, $current_month, $current_day)=(ow::datetime::seconds2array($localtime))[5,4,3];
$current_year+=1900; $current_month++;
$year = $current_year if (!$year);
$month = $current_month if (!$month);
$day = $current_day if (!$day);
$year=2037 if ($year>2037); $year=1970 if ($year<1970);
$month=12 if ($month>12); $month=1 if ($month<1);
$day=$days_in_month[$month] if ($day>$days_in_month[$month]); $day=1 if ($day<1);
my ($html, $temphtml);
$html = applystyle(readtemplate("weekview.template").
readtemplate("calpopup.js") );
$temphtml = startform(-name=>'dateselform',
-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(action=>'calweek',
sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid);
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/g;
$temphtml = iconlink("cal-popup.gif", $lang_text{'calendar'}, qq|href="#" onClick="calPopup(this,'mypopupCal',-175,15,'dateselform','submit_changed_dateselform');"|);
$temphtml .= qq| $lang_text{'calfmt_yearmonthday'}|;
$html =~ s/\@\@\@DATESELMENU\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-default=>$year,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/ $temphtml /;
$temphtml = popup_menu(-name=>'month',
-values=>[1..12],
-labels=>\%lang_month,
-default=>$month,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@MONTH_STR\@\@\@/ $temphtml /;
$temphtml = popup_menu(-name=>'day',
-values=>[1..$days_in_month[$month]],
-default=>$day,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@DAY\@\@\@/ $temphtml /;
$temphtml=qq|'$lang_wday{0}','$lang_wday{1}','$lang_wday{2}','$lang_wday{3}','$lang_wday{4}','$lang_wday{5}','$lang_wday{6}'|;
$html =~ s/\@\@\@WDAY_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_order{1}','$lang_order{2}','$lang_order{3}','$lang_order{4}','$lang_order{5}'|;
$html =~ s/\@\@\@WORDER_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_wday_abbrev{0}','$lang_wday_abbrev{1}','$lang_wday_abbrev{2}','$lang_wday_abbrev{3}','$lang_wday_abbrev{4}','$lang_wday_abbrev{5}','$lang_wday_abbrev{6}'|;
$html =~ s/\@\@\@WDAYABBREV_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_month{1}','$lang_month{2}','$lang_month{3}','$lang_month{4}','$lang_month{5}','$lang_month{6}','$lang_month{7}','$lang_month{8}','$lang_month{9}','$lang_month{10}','$lang_month{11}','$lang_month{12}'|;
$html =~ s/\@\@\@WMONTH_ARRAY\@\@\@/$temphtml/;
$html =~ s/\@\@\@WSTART\@\@\@/$prefs{'calendar_weekstart'}/g;
$html =~ s/\@\@\@TODAY\@\@\@/$lang_text{'today'}/g;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
$temphtml = formatted_date($year, $month, $day);
$html =~ s/\@\@\@CALTITLE\@\@\@/$temphtml/g;
my $cal_url=qq|$config{'ow_cgiurl'}/openwebmail-cal.pl?sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid|;
$temphtml = calbuttonsstr($cal_url, $year, $month, $day);
if ($year!=$current_year || $month!=$current_month || $day!=$current_day) {
$temphtml .= iconlink("refresh.gif", "$lang_text{'backto'} $lang_calendar{'weekview'} ".formatted_date($current_year,$current_month,$current_day), qq|href="$cal_url&action=calweek&year=$current_year&month=$current_month&day=$current_day"|). qq| \n|;
}
$temphtml .= " \n$miscbuttonsstr";
$html =~ s/\@\@\@MENUBARLINKS\@\@\@/$temphtml/g;
my $time = ow::datetime::array2seconds(0,0,12, $day,$month-1,$year-1900);
my ($prev_year, $prev_month, $prev_day)=(ow::datetime::seconds2array($time-86400*7))[5,4,3];
$prev_year+=1900; $prev_month++;
my $gif="left.gif"; $gif="right.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, "$lang_calendar{'weekview'} ".formatted_date($prev_year,$prev_month,$prev_day), qq|href="$cal_url&action=calweek&year=$prev_year&month=$prev_month&day=$prev_day"|). qq| \n|;
$html =~ s/\@\@\@PREV_LINK\@\@\@/$temphtml/g;
my ($next_year, $next_month, $next_day)=(ow::datetime::seconds2array($time+86400*7))[5,4,3];
$next_year+=1900; $next_month++;
$gif="right.gif"; $gif="left.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, "$lang_calendar{'weekview'} ".formatted_date($next_year,$next_month,$next_day), qq|href="$cal_url&action=calweek&year=$next_year&month=$next_month&day=$next_day"|). qq| \n|;
$html =~ s/\@\@\@NEXT_LINK\@\@\@/$temphtml/g;
my $wdaynum = (ow::datetime::seconds2array($time))[6];
my $start_time = $time - 86400 * (($wdaynum+7-$prefs{'calendar_weekstart'})%7);
for (my $i=0; $i<7; $i++) {
my $n=($prefs{'calendar_weekstart'}+$i)%7;
if ($n==0) {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!<font color=#cc0000>$lang_wday{$n}</font>!;
} elsif ($n==6) {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!<font color=#00aa00>$lang_wday{$n}</font>!;
} else {
$html =~ s!\@\@\@WEEKDAY$i\@\@\@!$lang_wday{$n}!;
}
}
my $wdaynum = (ow::datetime::seconds2array($time))[6];
my $start_time = $time - 86400 * (($wdaynum+7-$prefs{'calendar_weekstart'})%7);
my (%items, %indexes);
my $calbookfile=dotpath('calendar.book');
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if ($prefs{'calendar_reminderforglobal'}) {
readcalbook("$config{'global_calendarbook'}", \%items, \%indexes, 1E6);
if ($prefs{'calendar_holidaydef'} eq 'auto') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'language'}", \%items, \%indexes, 1E7);
} elsif ($prefs{'calendar_holidaydef'} ne 'none') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'calendar_holidaydef'}", \%items, \%indexes, 1E7);
}
}
for my $x (0..6) {
($year, $month, $day)=(ow::datetime::seconds2array($start_time+$x*86400))[5,4,3];
$year+=1900; $month++;
my $bgcolor=$style{tablerow_light};
$bgcolor=$style{tablerow_dark} if ($month==$current_month && $year == $current_year);
my $td_bgcolorstr=qq|bgcolor=$bgcolor |;
if ($prefs{'uselightbar'}) {
$td_bgcolorstr.=qq|onMouseOver='this.style.backgroundColor=$style{tablerow_hicolor};' |.
qq|onMouseOut='this.style.backgroundColor=$bgcolor;' |.
qq|onClick="window.location.href='$cal_url&action=calday&year=$year&month=$month&day=$day';"|;
}
$temphtml = qq|<td $td_bgcolorstr valign=top>|.
qq|<table width="100%" cellpadding="0" cellspacing="0">\n|;
my $daystr=$day; $daystr=" ".$daystr if (length($daystr)<2);
$temphtml .= start_form(-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl",
-name=> "day$day").
ow::tool::hiddens(sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid,
action=>'calday',
year=>$year,
month=>$month,
day=>$day).
qq|<tr><td align="right">|.
lunar_str($year, $month, $day, $prefs{'charset'}).
submit("$daystr").
qq|</td></tr>|.
end_form();
my $t=ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $dow=$ow::datetime::wday_en[(ow::datetime::seconds2array($t))[6]];
my $date=sprintf("%04d%02d%02d", $year, $month, $day);
my $date2=sprintf("%04d,%02d,%02d,%s", $year,$month,$day,$dow);
my $i=0;
my @indexlist=();
foreach ($date, '*') {
next if (!defined($indexes{$_}));
foreach my $index (@{$indexes{$_}}) {
if ($date =~/$items{$index}{'idate'}/ ||
$date2=~/$items{$index}{'idate'}/ ||
ow::datetime::easter_match($year,$month,$day,$items{$index}{'idate'}) ) {
push(@indexlist, $index);
}
}
}
@indexlist=sort { $items{$a}{'starthourmin'}<=>$items{$b}{'starthourmin'} ||
$items{$a}{'endhourmin'}<=>$items{$b}{'endhourmin'} ||
$b<=>$a } @indexlist;
$temphtml .= qq|<tr><td valign=bottom>|;
for my $index (@indexlist) {
$temphtml .= month_week_item($items{$index}, qq|$cal_url&action=calday&year=$year&month=$month&day=$day|, ($index>=1E6));
$i++;
}
$temphtml .= qq| <br>\n| if ($i==0);
$temphtml .= qq|</td></tr></table></td>\n|;
$html =~ s/\@\@\@DAY$x\@\@\@/$temphtml/;
}
httpprint([],
[htmlheader(), htmlplugin($config{'header_pluginfile'}),
$html,
htmlplugin($config{'footer_pluginfile'}), htmlfooter(2)] );
}
sub month_week_item {
my ($r_item, $daylink, $is_global) = @_;
my ($eventtime, $eventlink, $eventemail);
if (${$r_item}{'starthourmin'} ne "0") {
$eventtime = hourmin2str(${$r_item}{'starthourmin'}, $prefs{'hourformat'});
if (${$r_item}{'endhourmin'} ne "0") {
$eventtime .= qq|-| . hourmin2str(${$r_item}{'endhourmin'}, $prefs{'hourformat'});
}
} else {
$eventtime="#";
}
$eventtime=qq|<font color="#c00000">$eventtime</font> |;
if (${$r_item}{'link'}) {
my $link=${$r_item}{'link'}; $link=~s/\%THISSESSION\%/$thissession/;
$eventlink = qq| |. iconlink("cal-link.gif", "${$r_item}{'link'}", qq|href="$link" target="_blank"|);
}
if (${$r_item}{'email'}) {
$eventemail = qq| |. iconlink("email.gif", "${$r_item}{'email'}", "");
}
my $s=${$r_item}{'string'};
my $nohtml=$s; $nohtml=~ s/<.*?>//g;
$s=substr($nohtml, 0, 76)."..." if (length($nohtml)>80);
$s="$s *" if ($is_global);
my $colorstr='';
if (defined($eventcolors{${$r_item}{'eventcolor'}})) {
$colorstr=qq|bgcolor="#$eventcolors{${$r_item}{'eventcolor'}}"|;
}
my $temphtml=qq|<table $colorstr cellspacing=1 cellpadding=0 width="100%"><tr><td>|.
"$eventtime$s$eventlink$eventemail".
qq|</td></tr></table>|;
return($temphtml);
}
sub dayview {
my ($year, $month, $day)=@_;
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
my $localtime=ow::datetime::time_gm2local(time(), $prefs{'timeoffset'}, $prefs{'daylightsaving'});
my ($current_year, $current_month, $current_day)=(ow::datetime::seconds2array($localtime))[5,4,3];
$current_year+=1900; $current_month++;
$year = $current_year if (!$year);
$month = $current_month if (!$month);
$day = $current_day if (!$day);
$year=2037 if ($year>2037); $year=1970 if ($year<1970);
$month=12 if ($month>12); $month=1 if ($month<1);
$day=$days_in_month[$month] if ($day>$days_in_month[$month]); $day=1 if ($day<1);
my ($html, $temphtml);
$html = applystyle(readtemplate("dayview.template").
readtemplate("calpopup.js").
readtemplate("validate.js") );
$temphtml = startform(-name=>'dateselform',
-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(action=>'calday',
sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid);
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/g;
$temphtml = iconlink("cal-popup.gif", $lang_text{'calendar'}, qq|href="#" onClick="calPopup(this,'mypopupCal',-175,15,'dateselform','submit_changed_dateselform');"|);
$temphtml .= qq| $lang_text{'calfmt_yearmonthday'}|;
$html =~ s/\@\@\@DATESELMENU\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-default=>$year,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/ $temphtml /;
$temphtml = popup_menu(-name=>'month',
-values=>[1..12],
-labels=>\%lang_month,
-default=>$month,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@MONTH_STR\@\@\@/ $temphtml /;
$temphtml = popup_menu(-name=>'day',
-values=>[1..$days_in_month[$month]],
-default=>$day,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@DAY\@\@\@/ $temphtml /;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
my $cal_url=qq|$config{'ow_cgiurl'}/openwebmail-cal.pl?sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid|;
$temphtml = calbuttonsstr($cal_url, $year, $month, $day);
if ($year!=$current_year || $month!=$current_month || $day!=$current_day) {
$temphtml .= iconlink("refresh.gif", "$lang_text{'backto'} ".formatted_date($current_year,$current_month,$current_day), qq|accesskey="R" href="$cal_url&action=calday&year=$current_year&month=$current_month&day=$current_day"|);
}
$temphtml .= " \n$miscbuttonsstr";
$html =~ s/\@\@\@MENUBARLINKS\@\@\@/$temphtml/g;
my $time = ow::datetime::array2seconds(0,0,12, $day,$month-1,$year-1900);
my $today = ow::datetime::array2seconds(0,0,12, $current_day,$current_month-1,$current_year-1900);
$temphtml=int(($time-$today)/86400);
$temphtml="+$temphtml" if ($temphtml>=0);
$html =~ s/\@\@\@DAYDIFF\@\@\@/$temphtml/g;
my ($prev_year, $prev_month, $prev_day)=(ow::datetime::seconds2array($time-86400))[5,4,3];
$prev_year+=1900; $prev_month++;
my $gif="left.gif"; $gif="right.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($prev_year,$prev_month,$prev_day), qq|accesskey="U" href="$cal_url&action=calday&year=$prev_year&month=$prev_month&day=$prev_day"|). qq| \n|;
$html =~ s/\@\@\@PREV_LINK\@\@\@/$temphtml/g;
my ($next_year, $next_month, $next_day)=(ow::datetime::seconds2array($time+86400))[5,4,3];
$next_year+=1900; $next_month++;
$gif="right.gif"; $gif="left.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($next_year,$next_month,$next_day), qq|accesskey="D" href="$cal_url&action=calday&year=$next_year&month=$next_month&day=$next_day"|). qq| \n|;
$html =~ s/\@\@\@NEXT_LINK\@\@\@/$temphtml/g;
my (%items, %indexes);
my $calbookfile=dotpath('calendar.book');
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if ($prefs{'calendar_reminderforglobal'}) {
readcalbook("$config{'global_calendarbook'}", \%items, \%indexes, 1E6);
if ($prefs{'calendar_holidaydef'} eq 'auto') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'language'}", \%items, \%indexes, 1E7);
} elsif ($prefs{'calendar_holidaydef'} ne 'none') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'calendar_holidaydef'}", \%items, \%indexes, 1E7);
}
}
my $t=ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $wdaynum=(ow::datetime::seconds2array($t))[6];
$temphtml = formatted_date($year, $month, $day, $wdaynum);
if ($prefs{'charset'} eq "big5" || $prefs{'charset'} eq "gb2312") {
$temphtml .= qq| |.lunar_str($year, $month, $day, $prefs{'charset'});
}
$html =~ s/\@\@\@CALTITLE\@\@\@/$temphtml/g;
my $dow = $ow::datetime::wday_en[$wdaynum];
my $date = sprintf("%04d%02d%02d", $year, $month, $day);
my $date2 = sprintf("%04d,%02d,%02d,%s", $year,$month,$day,$dow);
my @indexlist = ();
foreach ($date, '*') {
next if (!defined($indexes{$_}));
foreach my $index (@{$indexes{$_}}) {
if ($date =~/$items{$index}{'idate'}/ ||
$date2=~/$items{$index}{'idate'}/ ||
ow::datetime::easter_match($year,$month,$day,$items{$index}{'idate'}) ) {
push(@indexlist, $index);
}
}
}
@indexlist=sort { $items{$a}{'starthourmin'}<=>$items{$b}{'starthourmin'} ||
$items{$a}{'endhourmin'}<=>$items{$b}{'endhourmin'} ||
$b<=>$a } @indexlist;
my @bgcolor=($style{"tablerow_light"}, $style{"tablerow_dark"});
my $colornum=0;
$temphtml='';
my (@allday_indexies, @matrix, %layout, $slotmin, $slotmax, $colmax, );
build_event_matrix(\%items, \@indexlist,
\@allday_indexies, \@matrix, \%layout, \$slotmin, \$slotmax, \$colmax);
$colornum=($colornum+1)%2;
$temphtml .= qq|<tr>|.
qq|<td colspan="2">|.
qq|<!-- THE OUTSIDE-MOST TABLE DECLARATION FOR OUR CALENDAR DATA -->|.
qq|<table width="100%" cellpadding="0" cellspacing="1" border="0">\n|.
qq|<!-- BEGIN LISTING ALL DAY EVENTS -->|.
qq|<tr>|.
qq|<td width="10%" bgcolor=$style{'columnheader'} align="center" nowrap>$lang_text{'allday'}</td>|.
qq|<td width="90%" bgcolor=$style{'columnheader'} colspan="|.($colmax+1).qq|">|.
qq|<table width="100%" cellpadding="0" cellspacing="0">\n|;
my ($bgcolorstr, $bdstylestr, $eventlink, $eventemail, $eventtime);
for my $index (@allday_indexies) {
my $r_event=$items{$index};
($eventtime, $eventlink, $eventemail) = ('', '', '');
if (${$r_event}{'eventcolor'} eq "none") {
$bgcolorstr = qq|bgcolor=$style{'columnheader'}|;
} else {
$bgcolorstr = qq|bgcolor="#|. $eventcolors{${$r_event}{'eventcolor'}}. qq|"|;
}
if (${$r_event}{'starthourmin'} ne "0") {
$eventtime = hourmin2str(${$r_event}{'starthourmin'}, $prefs{'hourformat'});
if (${$r_event}{'endhourmin'} ne "0") {
$eventtime .= qq|-| . hourmin2str(${$r_event}{'endhourmin'}, $prefs{'hourformat'});
}
} else {
$eventtime = "#";
}
$eventtime=qq|<font color="#c00000">$eventtime</font> |;
if (${$r_event}{'link'}) {
my $link=${$r_event}{'link'}; $link=~s/\%THISSESSION\%/$thissession/;
$eventlink = qq| |. iconlink("cal-link.gif", "${$r_event}{'link'}", qq|href="$link" target="_blank"|);
}
if (${$r_event}{'email'}) {
$eventemail = qq| |. iconlink("email.gif", "${$r_event}{'email'}", "");
}
my ($jsedit, $jsdel)=('','');
if (${$r_event}{'idate'}=~/[\*|,|\|]/) {
$jsedit = qq|onclick="return confirm('$lang_text{multieditconf}')"|;
$jsdel = qq|onclick="return confirm('$lang_text{multidelconf}')"|;
} else {
$jsdel = qq|onclick="return confirm('$lang_text{caldelconf}')"|;
}
$temphtml .= qq|<tr>|.
qq|<td bgcolor=$bgcolor[$colornum] valign="top" colspan="|.($colmax+1).qq|">\n|.
qq|<table width="100%" cellpadding="2" cellspacing="0"><tr><td $bgcolorstr valign="top" align="left">|;
if ($index>=1E6) {
$temphtml .= qq|$eventtime${$r_event}{'string'} *|.
$eventlink.$eventemail;
} else {
$temphtml .= qq|<a accesskey="E" title="$lang_text{'edit'}" href="$cal_url&|.
qq|action=caledit&year=$year&month=$month&day=$day&index=$index" $jsedit>|.
qq|$eventtime${$r_event}{'string'}</a>|.
$eventlink.$eventemail.
qq| |. iconlink("cal-delete.gif", "$lang_text{'delete'}", qq|href="$cal_url&action=caldel&year=$year&month=$month&day=$day&index=$index" $jsdel|);
}
$temphtml .= qq|</td></tr></table>|.
qq|</td>|.
qq|</tr>|;
}
if ($#indexlist < 0) {
$temphtml .= qq|<tr>|.
qq|<td bgcolor=$style{'columnheader'} align=center colspan="|.($colmax+1).qq|">$lang_text{'noitemforthisday'}</td>|.
qq|</tr>\n|;
} elsif ($#allday_indexies < 0) {
$temphtml .= qq|<tr>|.
qq|<td bgcolor=$style{'columnheader'} align=center colspan="|.($colmax+1).qq|"> </td>|.
qq|</tr>\n|;
}
$temphtml .= qq|</table>|.
qq|</td>|.
qq|</tr>|.
qq|<!--END OF ALL DAY LISTINGS-->|;
$temphtml .= qq|<!--START EVENT MATRIX-->|;
my $slots_in_hour=int(60/($prefs{'calendar_interval'}||30)+0.999999);
for (my $slot = 0; $slot < $#slottime; $slot++) {
if ($slot % $slots_in_hour==0) {
my $is_earily=1;
for my $i (0..$slots_in_hour-1) {
if ($slot+$i >= $slotmin ||
$slottime[$slot+$i] ge $prefs{'calendar_starthour'}) {
$is_earily=0; last;
}
}
if ($is_earily) {
$slot=$slot+$slots_in_hour-1; next;
}
if (!$prefs{'calendar_showemptyhours'}) {
my $is_empty=1;
for my $col (0..$colmax) {
for my $i (0..$slots_in_hour-1) {
if ( defined($matrix[$slot+$i][$col]) && $matrix[$slot+$i][$col] ) {
$is_empty=0; last;
}
last if (!$is_empty);
}
last if (!$is_empty);
}
if ($is_empty) {
$slot=$slot+$slots_in_hour-1; next;
}
}
last if ($slot > $slotmax && $slottime[$slot] gt $prefs{'calendar_endhour'});
$colornum = ($colornum+1)%2;
$temphtml .= qq|<tr>|.
qq|<td width="10%" bgcolor=$bgcolor[$colornum] align="right" valign=top nowrap>|.
hourmin2str($slottime[$slot], $prefs{'hourformat'}).
qq|</td>|;
} else {
my $s=" ";
if ($slots_in_hour>3 && ($slot%$slots_in_hour)%2==0) {
$s=qq|<font color=
(($slot%$slots_in_hour)*$prefs{'calendar_interval'}).
qq|</font>|;
}
$temphtml .= qq|<tr>|.
qq|<td width="10%" bgcolor=$bgcolor[$colornum] valign="top" align="right">|.
$s.
qq|</td>|;
}
for my $col (0..$colmax) {
if (defined($matrix[$slot][$col])) {
my $index=$matrix[$slot][$col];
my $r_event=$items{$index};
if ($slot==$layout{$index}{'startslot'} &&
$col==$layout{$index}{'startcol'} ) {
($eventtime, $eventlink, $eventemail) = ('', '', '');
if (${$r_event}{'eventcolor'} ne "none") {
$bgcolorstr = qq|bgcolor="#|. $eventcolors{${$r_event}{'eventcolor'}}. qq|"|;
if (${$r_event}{'endhourmin'} ne '0') {
$bdstylestr = qq|style="border-width: 1px; border-style: solid; border-color: #|.
bordercolor($eventcolors{${$r_event}{'eventcolor'}}).
qq|;"|;
} else {
$bdstylestr = '';
}
} else {
$bgcolorstr = qq|bgcolor=$bgcolor[$colornum]|;
if (${$r_event}{'endhourmin'} ne '0') {
$bdstylestr = qq|style="border-width: 1px; border-style: solid; border-color: #666666;"|;
} else {
$bdstylestr = '';
}
}
$eventtime = hourmin2str(${$r_event}{'starthourmin'}, $prefs{'hourformat'});
if (${$r_event}{'endhourmin'} ne "0") {
$eventtime .= qq|-| . hourmin2str(${$r_event}{'endhourmin'}, $prefs{'hourformat'});
}
$eventtime=qq|<font color="#c00000">$eventtime</font> |;
if (${$r_event}{'link'}) {
my $link=${$r_event}{'link'}; $link=~s/\%THISSESSION\%/$thissession/;
$eventlink = qq| |. iconlink("cal-link.gif", "${$r_event}{'link'}", qq|href="$link" target="_blank"|);
}
if (${$r_event}{'email'}) {
$eventemail = qq| |. iconlink("email.gif", "${$r_event}{'email'}", "");
}
my ($jsedit, $jsdel)=('','');
if (${$r_event}{'idate'}=~/[\*|,|\|]/) {
$jsedit = qq|onclick="return confirm('$lang_text{multieditconf}')"|;
$jsdel = qq|onclick="return confirm('$lang_text{multidelconf}')"|;
} else {
$jsdel = qq|onclick="return confirm('$lang_text{caldelconf}')"|;
}
$temphtml .= qq|<td $bgcolorstr $bdstylestr valign="top" width="|.
int(100 * $layout{$index}{'colspan'}/($colmax+1)).
qq|%" rowspan="$layout{$index}{'rowspan'}" colspan="$layout{$index}{'colspan'}">|;
if ($index > 1E6) {
$temphtml .=qq|$eventtime ${$r_event}{'string'} *|.
$eventlink.$eventemail;
} else {
$temphtml .= qq|<a accesskey="E" title="$lang_text{'edit'}" href="$cal_url&|.
qq|action=caledit&year=$year&month=$month&day=$day&index=$index" $jsedit>|.
qq|$eventtime ${$r_event}{'string'}</a>|.
$eventlink.$eventemail.
qq| |. iconlink("cal-delete.gif", "$lang_text{'delete'}", qq|href="$cal_url&action=caldel&year=$year&month=$month&day=$day&index=$index" $jsdel|);
}
$temphtml .= qq|</td>|;
} else {
}
} else {
$temphtml .= qq|<td bgcolor=$bgcolor[$colornum]> </td>|;
}
}
$temphtml .= qq|</tr>|;
}
$temphtml .= qq|</table></td></tr>\n|;
$html =~ s/\@\@\@CALENDARITEMS\@\@\@/$temphtml/;
$temphtml=qq|'$lang_wday{0}','$lang_wday{1}','$lang_wday{2}','$lang_wday{3}','$lang_wday{4}','$lang_wday{5}','$lang_wday{6}'|;
$html =~ s/\@\@\@WDAY_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_order{1}','$lang_order{2}','$lang_order{3}','$lang_order{4}','$lang_order{5}'|;
$html =~ s/\@\@\@WORDER_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_wday_abbrev{0}','$lang_wday_abbrev{1}','$lang_wday_abbrev{2}','$lang_wday_abbrev{3}','$lang_wday_abbrev{4}','$lang_wday_abbrev{5}','$lang_wday_abbrev{6}'|;
$html =~ s/\@\@\@WDAYABBREV_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_month{1}','$lang_month{2}','$lang_month{3}','$lang_month{4}','$lang_month{5}','$lang_month{6}','$lang_month{7}','$lang_month{8}','$lang_month{9}','$lang_month{10}','$lang_month{11}','$lang_month{12}'|;
$html =~ s/\@\@\@WMONTH_ARRAY\@\@\@/$temphtml/;
$html =~ s/\@\@\@WSTART\@\@\@/$prefs{'calendar_weekstart'}/g;
$html =~ s/\@\@\@TODAY\@\@\@/$lang_text{'today'}/g;
$html =~ s/\@\@\@THISDAY_ONLY\@\@\@/$lang_text{'thisday_only'}/g;
$html =~ s/\@\@\@THE_WDAY_OF_THISMONTH\@\@\@/$lang_text{'the_wday_of_thismonth'}/g;
$html =~ s/\@\@\@EVERY_WDAY_THISMONTH\@\@\@/$lang_text{'every_wday_thismonth'}/g;
$html =~ s/\@\@\@EVERY_ODDMONTH_THISYEAR\@\@\@/$lang_text{'every_oddmonth_thisyear'}/g;
$html =~ s/\@\@\@EVERY_EVENMONTH_THISYEAR\@\@\@/$lang_text{'every_evenmonth_thisyear'}/g;
$html =~ s/\@\@\@ORDER\@\@\@/"+wOrder[(weekOrder-1)]+"/g;
$html =~ s/\@\@\@WDAY\@\@\@/"+wDay[(checkDate.getDay())]+"/g;
$temphtml = startform(-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl",
-name=>'additemform',
-override=>'1').
ow::tool::hiddens(sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid,
action=>'caladd');
$html =~ s/\@\@\@STARTADDITEMFORM\@\@\@/$temphtml/;
$temphtml = iconlink("cal-popup.gif", $lang_text{'calendar'}, qq|href="#" onClick="calPopup(this,'mypopupCal',-175,15,'additemform','valiDate');"|);
$temphtml .= qq| $lang_text{'calfmt_yearmonthday'}|;
$html =~ s/\@\@\@ITEMDATEMENU\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-onChange=>"valiDate('additemform')",
-default=>$year,
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'month',
-values=>[1..12],
-default=>$month,
-onChange=>"valiDate('additemform')",
-labels=>\%lang_month,
-override=>1);
$html =~ s/\@\@\@MONTH_STR\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'day',
-values=>[1..31],
-default=>$day,
-onChange=>"valiDate('additemform')",
-override=>'1');
$html =~ s/\@\@\@DAY\@\@\@/$temphtml/g;
$temphtml = textfield(-name=>'string',
-default=>'',
-size=>'32',
-accesskey=>'I',
-override=>'1');
$html =~ s/\@\@\@STRINGFIELD\@\@\@/$temphtml/;
my @hourlist;
if ($prefs{'hourformat'}==12) {
@hourlist=qw(none 12 1 2 3 4 5 6 7 8 9 10 11);
} else {
@hourlist=qw(none 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23);
}
my %numlabels=( none=>$lang_text{'none'},
0=>'00', 1=>'01', 2=>'02', 3=>'03', 4=>'04',
5=>'05', 6=>'06', 7=>'07', 8=>'08', 9=>'09');
my $temphtml2;
$temphtml = $lang_text{'calfmt_hourminampm'};
$temphtml2 = popup_menu(-name=>'starthour',
-values=>\@hourlist,
-default=>'none',
-labels=>\%numlabels,
-override=>'1');
$temphtml2 .= " <B>:</B> ";
$temphtml2 .= popup_menu(-name=>'startmin',
-values=>[0,5,10,15,20,25,30,35,40,45,50,55],
-default=>0,
-labels=>\%numlabels,
-override=>'1');
$temphtml =~ s/\@\@\@HOURMIN\@\@\@/$temphtml2/;
if ($prefs{'hourformat'}==12) {
$temphtml2 = popup_menu(-name=>'startampm',
-values=>['am','pm'],
-default=>'am',
-labels=>{ am=>$lang_text{'am'}, pm=>$lang_text{'pm'} },
-override=>'1' );
} else {
$temphtml2 ="";
}
$temphtml =~ s/\@\@\@AMPM\@\@\@/$temphtml2/;
$html =~ s/\@\@\@STARTHOURMINMENU\@\@\@/$temphtml/;
$temphtml = $lang_text{'calfmt_hourminampm'};
$temphtml2 = popup_menu(-name=>'endhour',
-values=>\@hourlist,
-default=>'none',
-labels=>\%numlabels,
-override=>'1');
$temphtml2 .= " <B>:</B> ";
$temphtml2 .= popup_menu(-name=>'endmin',
-values=>[0,5,10,15,20,25,30,35,40,45,50,55],
-default=>0,
-labels=>\%numlabels,
-override=>'1');
$temphtml =~ s/\@\@\@HOURMIN\@\@\@/$temphtml2/;
if ($prefs{'hourformat'}==12) {
$temphtml2 = popup_menu(-name=>'endampm',
-values=>['am','pm'],
-default=>'am',
-labels=>{ am=>$lang_text{'am'}, pm=>$lang_text{'pm'} },
-override=>'1' );
} else {
$temphtml2 ="";
}
$temphtml =~ s/\@\@\@AMPM\@\@\@/$temphtml2/;
$html =~ s/\@\@\@ENDHOURMINMENU\@\@\@/$temphtml/;
my $weekorder=int(($day+6)/7);
my %wdaynum = qw (Sun 0 Mon 1 Tue 2 Wed 3 Thu 4 Fri 5 Sat 6);
my %dayfreqlabels = ('thisdayonly' =>$lang_text{'thisday_only'},
'thewdayofthismonth'=>$lang_text{'the_wday_of_thismonth'},
'everywdaythismonth'=>$lang_text{'every_wday_thismonth'});
$dayfreqlabels{'thewdayofthismonth'}=~s/\@\@\@ORDER\@\@\@/$lang_order{$weekorder}/;
$dayfreqlabels{'thewdayofthismonth'}=~s/\@\@\@WDAY\@\@\@/$lang_wday{$wdaynum{$dow}}/;
$dayfreqlabels{'everywdaythismonth'}=~s/\@\@\@WDAY\@\@\@/$lang_wday{$wdaynum{$dow}}/;
if ($weekorder<=4) {
$temphtml = popup_menu(-name=>'dayfreq',
-values=>['thisdayonly', 'thewdayofthismonth', 'everywdaythismonth'],
-default=>'thisdayonly',
-labels=>\%dayfreqlabels,
-override=>'1');
} else {
$temphtml = popup_menu(-name=>'dayfreq',
-values=>['thisdayonly', 'everywdaythismonth'],
-default=>'thisdayonly',
-labels=>\%dayfreqlabels,
-override=>'1');
}
$html =~ s/\@\@\@FREQMENU\@\@\@/$temphtml/;
$temphtml = checkbox(-name=>'thisandnextndays',
-value=>'1',
-checked=>0,
-label=>'',
-override=>'1');
$html =~ s/\@\@\@THISANDNEXTNDAYSCHECKBOX\@\@\@/$temphtml/g;
$temphtml = textfield(-name=>'ndays',
-default=>'',
-size=>'2',
-override=>'1');
$html =~ s/\@\@\@NDAYSFIELD\@\@\@/$temphtml/;
my %monthfreqlabels = ('thismonthonly' =>$lang_text{'thismonth_only'},
'everyoddmonththisyear' =>$lang_text{'every_oddmonth_thisyear'},
'everyevenmonththisyear'=>$lang_text{'every_evenmonth_thisyear'},
'everymonththisyear' =>$lang_text{'every_month_thisyear'});
my @monthfreq =('thismonthonly');
if ($month%2==1) {
push(@monthfreq, 'everyoddmonththisyear');
} else {
push(@monthfreq, 'everyevenmonththisyear');
}
push(@monthfreq, 'everymonththisyear');
$temphtml = popup_menu(-name=>'monthfreq',
-values=>\@monthfreq,
-default=>'thismonthonly',
-labels=>\%monthfreqlabels,
-override=>'1');
$html =~ s/\@\@\@MONTHFREQMENU\@\@\@/$temphtml/g;
$temphtml = checkbox(-name=>'everyyear',
-value=>'1',
-checked=>0,
-label=>'',
-override=>'1');
$html =~ s/\@\@\@EVERYYEARCHECKBOX\@\@\@/$temphtml/g;
$temphtml = textfield(-name=>'link',
-default=>'http://',
-size=>'32',
-override=>'1');
$html =~ s/\@\@\@LINKFIELD\@\@\@/$temphtml/;
if ($config{'calendar_email_notifyinterval'} > 0 ) {
templateblock_enable($html, 'EMAIL');
$temphtml = textfield(-name=>'email',
-default=>'',
-size=>'32',
-override=>'1');
$html =~ s/\@\@\@EMAILFIELD\@\@\@/$temphtml/;
} else {
templateblock_disable($html, 'EMAIL');
}
$temphtml = popup_menu(-name=>'eventcolor',
-values=>['none', sort keys %eventcolors],
-default=>'none',
-labels=>{ none => $lang_text{'none'} },
-override=>'1');
$html =~ s/\@\@\@EVENTCOLORMENU\@\@\@/$temphtml/;
$temphtml = qq|<table align="center" height="25">|;
my $eventcolornum = 1;
foreach (sort keys %eventcolors) {
$temphtml .= qq|<td width=14 align=center bgcolor="#$eventcolors{$_}">|.
qq|<a href="#" onClick='javascript:document.additemform.eventcolor.selectedIndex="$eventcolornum"'>$_</a></td>\n|;
$eventcolornum++;
}
$temphtml .= qq|<td width=14 align=center">|.
qq|<a href="
$temphtml .= qq|</tr></table>|;
$html =~ s/\@\@\@COLORTABLE\@\@\@/$temphtml/;
$temphtml = submit(-name=>'savebutton',
-accesskey=>'I',
-value=>$lang_text{'save'});
$html =~ s/\@\@\@SUBMITBUTTON\@\@\@/$temphtml/;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
httpprint([],
[htmlheader(), htmlplugin($config{'header_pluginfile'}),
$html,
htmlplugin($config{'footer_pluginfile'}), htmlfooter(2)] );
}
sub build_event_matrix {
my ($r_items, $r_indexlist,
$r_allday_indexies, $r_matrix, $r_layout, $r_slotmin, $r_slotmax, $r_colmax)=@_;
my @matrix_indexies;
my %slots;
(${$r_slotmin}, ${$r_slotmax}, ${$r_colmax})=(999999, 0, 0);
foreach my $index (@{$r_indexlist}) {
my $r_event=${$r_items}{$index};
if ( (${$r_event}{'starthourmin'} gt ${$r_event}{'endhourmin'} && ${$r_event}{'endhourmin'} ne '0') ||
(${$r_event}{'starthourmin'} eq '0' && ${$r_event}{'endhourmin'} eq '0') ) {
push(@{$r_allday_indexies}, $index);
} else {
push(@matrix_indexies, $index);
}
}
foreach my $index (@matrix_indexies) {
my $r_event=${$r_items}{$index};
next if (${$r_event}{'endhourmin'} ne '0' &&
${$r_event}{'starthourmin'} gt ${$r_event}{'endhourmin'});
for (my $slot = 0; $slot < $#slottime; $slot++) {
if ((${$r_event}{'endhourmin'} gt $slottime[$slot] &&
${$r_event}{'starthourmin'} lt $slottime[$slot+1]) ||
((${$r_event}{'endhourmin'} eq '0' ||
${$r_event}{'endhourmin'} eq ${$r_event}{'starthourmin'}) &&
${$r_event}{'starthourmin'} ge $slottime[$slot] &&
${$r_event}{'starthourmin'} lt $slottime[$slot+1]) ) {
push(@{$slots{$index}}, $slot);
${$r_layout}{$index}{'rowspan'}++;
${$r_slotmin}=$slot if ($slot<${$r_slotmin});
${$r_slotmax}=$slot if ($slot>${$r_slotmax});
}
}
my $col=0;
for ($col=0; ; $col++) {
my $col_available=1;
foreach my $slot (@{$slots{$index}}) {
if (defined(${$r_matrix}[$slot][$col]) && ${$r_matrix}[$slot][$col]) {
$col_available=0; last;
}
}
last if ($col_available);
}
${$r_layout}{$index}{'colspan'}=1;
foreach my $slot (@{$slots{$index}}) {
${$r_matrix}[$slot][$col]=$index;
}
${$r_layout}{$index}{'startslot'}=${$slots{$index}}[0];
${$r_layout}{$index}{'startcol'}=$col;
${$r_colmax}=$col if ($col>${$r_colmax});
}
foreach my $index (@matrix_indexies) {
my $extensible=1;
foreach my $slot (@{$slots{$index}}) {
for my $col (${$r_layout}{$index}{'startcol'}+1..${$r_colmax}) {
if (defined(${$r_matrix}[$slot][$col]) && ${$r_matrix}[$slot][$col]) {
$extensible=0; last;
}
}
last if ($extensible==0);
}
if ($extensible) {
for my $col (${$r_layout}{$index}{'startcol'}+1..${$r_colmax}) {
foreach my $slot (@{$slots{$index}}) {
${$r_matrix}[$slot][$col]=$index;
}
${$r_layout}{$index}{'colspan'}++;
}
}
}
return;
}
sub bordercolor {
my ($redhex, $greenhex, $bluehex) = $_[0]=~/(..)(..)(..)/;
my ($r, $g, $blue) = (sprintf("%d", hex($redhex)), sprintf("%d", hex($greenhex)), sprintf("%d", hex($bluehex)));
my ($h, $s, $v) = rgb2hsv($r, $g, $blue);
if ($s > .5) { $s -= .15; $v += 30; } else { $s += .15; $v -= 30; };
$s = 0 if ($s < 0);
$s = 1 if ($s > 1);
$v = 0 if ($v < 0);
$v = 255 if ($v > 255);
($r, $g, $blue) = hsv2rgb($h, $s, $v);
($redhex, $greenhex, $bluehex) = (sprintf("%02x", $r), sprintf("%02x", $g), sprintf("%02x", $blue));
return "$redhex$greenhex$bluehex";
}
sub rgb2hsv {
my ($r, $g, $blue) = @_;
my ($h, $s, $v, $min, $max, $delta);
($min, $max) = (sort { $a <=> $b } ($r,$g,$blue))[0,-1];
return(-1, 0, 0) if ($max==0);
$delta = $max - $min;
$v = $max;
$s = $delta / $max;
if ($r == $max) {
$h = ($g - $blue) / $delta;
} elsif ($g == $max) {
$h = 2 + ($blue - $r) / $delta;
} else {
$h = 4 + ($r - $g) / $delta;
}
$h *= 60;
$h += 360 if ($h < 0);
return ($h, $s, $v);
}
sub hsv2rgb {
my ($h, $s, $v) = @_;
my ($i, $f, $p, $q, $t, $r, $g, $blue);
return ($v, $v, $v) if ($s == 0);
$h /= 60;
$i = int($h);
$f = $h - $i;
$p = $v * (1 - $s);
$q = $v * (1 - $s * $f);
$t = $v * (1 - $s * (1 - $f));
if ($i == 0) {
($r, $g, $blue) = ($v, $t, $p);
} elsif ($i == 1) {
($r, $g, $blue) = ($q, $v, $p);
} elsif ($i == 2) {
($r, $g, $blue) = ($p, $v, $t);
} elsif ($i == 3) {
($r, $g, $blue) = ($p, $q, $v);
} elsif ($i == 4) {
($r, $g, $blue) = ($t, $p, $v);
} else {
($r, $g, $blue) = ($v, $p, $q);
}
return ($r, $g, $blue);
}
sub listview {
my $year=$_[0];
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
my $localtime=ow::datetime::time_gm2local(time(), $prefs{'timeoffset'}, $prefs{'daylightsaving'});
my ($current_year, $current_month, $current_day)=(ow::datetime::seconds2array($localtime))[5,4,3];
$current_year+=1900; $current_month++;
$year = $current_year if (!$year);
$year=2037 if ($year>2037); $year=1970 if ($year<1970);
my ($html, $temphtml);
$html = applystyle(readtemplate("listview.template"));
$temphtml = startform(-name=>'dateselform',
-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl").
ow::tool::hiddens(action=>'callist',
sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid);
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/g;
$html =~ s/\@\@\@DATESELMENU\@\@\@/$lang_text{'calfmt_year'}/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-default=>$year,
-onChange=>"submit()",
-accesskey=>'G',
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/ $temphtml /;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
$temphtml = formatted_date($year);
$html =~ s/\@\@\@CALTITLE\@\@\@/$temphtml/g;
my $cal_url=qq|$config{'ow_cgiurl'}/openwebmail-cal.pl?sessionid=$thissession&folder=$escapedfolder&message_id=$escapedmessageid|;
$temphtml = calbuttonsstr($cal_url, $current_year, $current_month, $current_day);
if ($year != $current_year) {
$temphtml .= iconlink("refresh.gif", "$lang_text{'backto'} ".formatted_date($current_year), qq|accesskey="R" href="$cal_url&action=callist&year=$current_year"|);
}
$temphtml .= " \n$miscbuttonsstr";
$html =~ s/\@\@\@MENUBARLINKS\@\@\@/$temphtml/g;
my $prev_year = $year - 1;
my $gif="left.gif"; $gif="right.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($prev_year), qq|accesskey="U" href="$cal_url&action=callist&year=$prev_year"|). qq| \n|;
$html =~ s/\@\@\@PREV_LINK\@\@\@/$temphtml/g;
my $next_year = $year + 1;
$gif="right.gif"; $gif="left.gif" if ($ow::lang::RTL{$prefs{'language'}});
$temphtml=iconlink($gif, formatted_date($next_year), qq|accesskey="D" href="$cal_url&action=callist&year=$next_year"|). qq| \n|;
$html =~ s/\@\@\@NEXT_LINK\@\@\@/$temphtml/g;
my (%items, %indexes);
my $calbookfile=dotpath('calendar.book');
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if ($prefs{'calendar_reminderforglobal'}) {
readcalbook("$config{'global_calendarbook'}", \%items, \%indexes, 1E6);
if ($prefs{'calendar_holidaydef'} eq 'auto') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'language'}", \%items, \%indexes, 1E7);
} elsif ($prefs{'calendar_holidaydef'} ne 'none') {
readcalbook("$config{'ow_holidaysdir'}/$prefs{'calendar_holidaydef'}", \%items, \%indexes, 1E7);
}
}
my $t0 = ow::datetime::array2seconds(1,1,1, $current_day,$current_month-1,$current_year-1900);
my @accesskey=qw(0 1 2 3 4 5 6 7 8 9 0 J Q);
$temphtml="";
for my $month (1..12) {
for my $day (1..$days_in_month[$month]) {
my $t=ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $wdaynum=(ow::datetime::seconds2array($t))[6];
my $dow=$ow::datetime::wday_en[$wdaynum];
my $date=sprintf("%04d%02d%02d", $year, $month, $day);
my $date2=sprintf("%04d,%02d,%02d,%s", $year,$month,$day,$dow);
my @indexlist=();
foreach ($date, '*') {
next if (!defined($indexes{$_}));
foreach my $index (@{$indexes{$_}}) {
if ($date =~/$items{$index}{'idate'}/ ||
$date2=~/$items{$index}{'idate'}/ ||
ow::datetime::easter_match($year,$month,$day,$items{$index}{'idate'}) ) {
push(@indexlist, $index);
}
}
}
@indexlist=sort { $items{$a}{'starthourmin'}<=>$items{$b}{'starthourmin'} ||
$items{$a}{'endhourmin'}<=>$items{$b}{'endhourmin'} ||
$b<=>$a } @indexlist;
my $dayhtml="";
for my $index (@indexlist) {
$dayhtml .= listview_item($index, \%items, $cal_url, "year=$year&month=$month&day=$day&index=$index&callist=1", ($index>=1E6))
}
my ($tr_bgcolorstr, $td_bgcolorstr);
my $bgcolor=$style{tablerow_light};
$bgcolor=$style{tablerow_dark} if ($year==$current_year && $month==$current_month && $day==$current_day);
if ($prefs{'uselightbar'}) {
$tr_bgcolorstr=qq|bgcolor=$bgcolor |.
qq|onMouseOver='this.style.backgroundColor=$style{tablerow_hicolor};' |.
qq|onMouseOut='this.style.backgroundColor=$bgcolor;' |.
qq|onClick="window.location.href='$cal_url&action=calday&year=$year&month=$month&day=$day';"|;
$td_bgcolorstr='';
} else {
$tr_bgcolorstr='';
$td_bgcolorstr=qq|bgcolor= $bgcolor|;
}
if ($dayhtml ne "" || $t==$t0) {
my $daydiffstr=int(($t-$t0)/86400);
$daydiffstr="+$daydiffstr" if ($daydiffstr>0);
$dayhtml = qq|<tr><td> </td></tr>| if ($dayhtml eq "");
$temphtml .= qq|<tr $tr_bgcolorstr>|.
qq|<td $td_bgcolorstr nowrap>|.
qq|<a accesskey="$accesskey[$month]" href="$cal_url&action=calday&year=$year&month=$month&day=$day"><b>|;
if ($prefs{'dateformat'}=~m!mm([/\-\.])dd!) {
$temphtml.=sprintf("%02d$1%02d", $month, $day);
} elsif ($prefs{'dateformat'}=~m!dd([/\-\.])mm!) {
$temphtml.=sprintf("%02d$1%02d", $day, $month);
} else {
$temphtml.=sprintf("%02d/%02d", $month, $day);
}
$temphtml.=qq|</b></a>|;
if ($prefs{'charset'} eq "big5" || $prefs{'charset'} eq "gb2312") {
$temphtml .= qq| |.lunar_str($year, $month, $day, $prefs{'charset'});
}
$temphtml .= qq|</td>|.
qq|<td $td_bgcolorstr $bgcolor>|.
qq|<a href="$cal_url&action=calweek&year=$year&month=$month">|.
qq|$lang_wday{$wdaynum}</a>|.
qq|</td>|.
qq|<td $td_bgcolorstr align="right" nowrap>$daydiffstr </td>|.
qq|<td $td_bgcolorstr><table width="100%" cellspacing="0" cellpadding="2">$dayhtml</table></td>|.
qq|</tr>\n|;
}
}
}
$html=~s/\@\@\@ITEMLIST\@\@\@/$temphtml/;
httpprint([],
[htmlheader(), htmlplugin($config{'header_pluginfile'}),
$html,
htmlplugin($config{'footer_pluginfile'}), htmlfooter(2)] );
}
sub listview_item {
my ($index, $r_items, $cal_url, $cgi_parm, $is_global) = @_;
my $r_item=${$r_items}{$index};
my $temphtml;
my $colorstr='';
if (defined($eventcolors{${$r_item}{'eventcolor'}})) {
$colorstr=qq|bgcolor="#$eventcolors{${$r_item}{'eventcolor'}}"|;
}
my ($eventtime, $eventlink, $eventemail);
if (${$r_item}{'starthourmin'} ne "0") {
$eventtime = hourmin2str(${$r_item}{'starthourmin'}, $prefs{'hourformat'});
if (${$r_item}{'endhourmin'} ne "0") {
$eventtime .= qq|-| . hourmin2str(${$r_item}{'endhourmin'}, $prefs{'hourformat'});
}
} else {
$eventtime="#";
}
$eventtime=qq|<font color="#c00000">$eventtime</font> |;
if (${$r_item}{'link'}) {
my $link=${$r_item}{'link'}; $link=~s/\%THISSESSION\%/$thissession/;
$eventlink = qq| |. iconlink("cal-link.gif", "${$r_item}{'link'}", qq|href="$link" target="_blank"|);
}
if (${$r_item}{'email'}) {
$eventemail = qq| |. iconlink("email.gif", "${$r_item}{'email'}", "");
}
my ($jsedit, $jsdel)=('','');
if (${$r_item}{'idate'}=~/[\*|,|\|]/) {
$jsedit = qq|onclick="return confirm('$lang_text{multieditconf}')"|;
$jsdel = qq|onclick="return confirm('$lang_text{multidelconf}')"|;
} else {
$jsdel = qq|onclick="return confirm('$lang_text{caldelconf}')"|;
}
my $s=${$r_item}{'string'};
my $nohtml=$s; $nohtml=~ s/<.*?>//g;
$s=substr($nohtml, 0, 76)."..." if (length($nohtml)>80);
if ($is_global) {
$temphtml.=qq|<td $colorstr width="120" nowrap>$eventtime</td>\n|.
qq|<td $colorstr>$s *|.
$eventlink.$eventemail.
qq|</td>\n|;
} else {
$temphtml.=qq|<td $colorstr width="120" nowrap>$eventtime</td>\n|.
qq|<td $colorstr><a title="$lang_text{'edit'}" href="$cal_url&action=caledit&$cgi_parm" $jsedit>$s</a>|.
$eventlink.$eventemail.
qq| |. iconlink("cal-delete.gif", "$lang_text{'delete'}", qq|href="$cal_url&action=caldel&index=$index&$cgi_parm" $jsdel|).
qq|</td>\n|;
}
$temphtml=qq|<tr $colorstr>$temphtml</tr>|;
return($temphtml);
}
sub edit_item {
my ($year, $month, $day, $index)=@_;
my ($html, $temphtml);
$html = applystyle(readtemplate("editcalendar.template").
readtemplate("calpopup.js").
readtemplate("validate.js") );
my $calbookfile=dotpath('calendar.book');
my (%items, %indexes);
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if (! defined($items{$index}) ) {
openwebmailerror(__FILE__, __LINE__, "$lang_text{'calendar'} $index $lang_err{'doesnt_exist'}");
writelog("edit calitem error - item missing, index=$index");
writehistory("edit calitem error - item missing, index=$index");
}
$temphtml=qq|'$lang_wday{0}','$lang_wday{1}','$lang_wday{2}','$lang_wday{3}','$lang_wday{4}','$lang_wday{5}','$lang_wday{6}'|;
$html =~ s/\@\@\@WDAY_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_order{1}','$lang_order{2}','$lang_order{3}','$lang_order{4}','$lang_order{5}'|;
$html =~ s/\@\@\@WORDER_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_wday_abbrev{0}','$lang_wday_abbrev{1}','$lang_wday_abbrev{2}','$lang_wday_abbrev{3}','$lang_wday_abbrev{4}','$lang_wday_abbrev{5}','$lang_wday_abbrev{6}'|;
$html =~ s/\@\@\@WDAYABBREV_ARRAY\@\@\@/$temphtml/;
$temphtml=qq|'$lang_month{1}','$lang_month{2}','$lang_month{3}','$lang_month{4}','$lang_month{5}','$lang_month{6}','$lang_month{7}','$lang_month{8}','$lang_month{9}','$lang_month{10}','$lang_month{11}','$lang_month{12}'|;
$html =~ s/\@\@\@WMONTH_ARRAY\@\@\@/$temphtml/;
$html =~ s/\@\@\@WSTART\@\@\@/$prefs{'calendar_weekstart'}/g;
$html =~ s/\@\@\@TODAY\@\@\@/$lang_text{'today'}/g;
$html =~ s/\@\@\@THISDAY_ONLY\@\@\@/$lang_text{'thisday_only'}/g;
$html =~ s/\@\@\@THE_WDAY_OF_THISMONTH\@\@\@/$lang_text{'the_wday_of_thismonth'}/g;
$html =~ s/\@\@\@EVERY_WDAY_THISMONTH\@\@\@/$lang_text{'every_wday_thismonth'}/g;
$html =~ s/\@\@\@EVERY_ODDMONTH_THISYEAR\@\@\@/$lang_text{'every_oddmonth_thisyear'}/g;
$html =~ s/\@\@\@EVERY_EVENMONTH_THISYEAR\@\@\@/$lang_text{'every_evenmonth_thisyear'}/g;
$html =~ s/\@\@\@ORDER\@\@\@/"+wOrder[(weekOrder-1)]+"/g;
$html =~ s/\@\@\@WDAY\@\@\@/"+wDay[(checkDate.getDay())]+"/g;
$temphtml = startform(-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl",
-name=>'editcalendar',
-override=>'1').
ow::tool::hiddens(sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid,
action=>'calupdate',
index=>$index);
$temphtml .= ow::tool::hiddens(callist=>'1') if (defined(param('callist')));
$html =~ s/\@\@\@STARTFORM\@\@\@/$temphtml/;
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
$day=$days_in_month[$month] if ($day>$days_in_month[$month]); $day=1 if ($day<1);
$temphtml = qq|$lang_text{'calfmt_yearmonthday'} |;
$temphtml .= iconlink("cal-popup.gif", $lang_text{'calendar'}, qq|href="#" onClick="calPopup(this,'editcalendarpopupCal',25,15,'editcalendar','valiDate');"|);
$html =~ s/\@\@\@ITEMDATEMENU\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'year',
-values=>[1970..2037],
-onChange=>"valiDate('editcalendar')",
-default=>$year,
-override=>'1');
$html =~ s/\@\@\@YEAR\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'month',
-values=>[1..12],
-default=>$month,
-onChange=>"valiDate('editcalendar')",
-labels=>\%lang_month,
-override=>1);
$html =~ s/\@\@\@MONTH_STR\@\@\@/$temphtml/g;
$temphtml = popup_menu(-name=>'day',
-values=>[1..31],
-default=>$day,
-onChange=>"valiDate('editcalendar')",
-override=>'1');
$html =~ s/\@\@\@DAY\@\@\@/$temphtml/g;
$temphtml = textfield(-name=>'string',
-default=>$items{$index}{'string'},
-size=>'32',
-override=>'1');
$html =~ s/\@\@\@STRINGFIELD\@\@\@/$temphtml/;
my @hourlist;
if ($prefs{'hourformat'}==12) {
@hourlist=qw(none 1 2 3 4 5 6 7 8 9 10 11 12);
} else {
@hourlist=qw(none 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23);
}
my %numlabels=( none=>$lang_text{'none'},
0=>'00', 1=>'01', 2=>'02', 3=>'03', 4=>'04',
5=>'05', 6=>'06', 7=>'07', 8=>'08', 9=>'09');
my $temphtml2;
my ($starthour, $startmin, $startampm)=('none', 0, 'am');
if ($items{$index}{'starthourmin'} =~ /0*(\d+)(\d{2})$/) {
($starthour, $startmin)=($1, $2);
($starthour, $startampm)=ow::datetime::hour24to12($starthour) if ($prefs{'hourformat'}==12);
}
$temphtml = $lang_text{'calfmt_hourminampm'};
$temphtml2 = popup_menu(-name=>'starthour',
-values=>\@hourlist,
-default=>$starthour,
-labels=>\%numlabels,
-override=>'1');
$temphtml2 .= "<B>:</B>";
$temphtml2 .= popup_menu(-name=>'startmin',
-values=>[0,5,10,15,20,25,30,35,40,45,50,55],
-default=>$startmin,
-labels=>\%numlabels,
-override=>'1');
$temphtml =~ s/\@\@\@HOURMIN\@\@\@/$temphtml2/;
if ($prefs{'hourformat'}==12) {
$temphtml2 = popup_menu(-name=>'startampm',
-values=>['am','pm'],
-default=>$startampm,
-labels=>{ am=>$lang_text{'am'}, pm=>$lang_text{'pm'} },
-override=>'1');
} else {
$temphtml2 = '';
}
$temphtml =~ s/\@\@\@AMPM\@\@\@/$temphtml2/;
$html =~ s/\@\@\@STARTHOURMINMENU\@\@\@/$temphtml/;
my ($endhour, $endmin, $endampm)=('none', 0, 'am');
if ($items{$index}{'endhourmin'} =~ /0*(\d+)(\d{2})$/) {
($endhour, $endmin)=($1, $2);
($endhour, $endampm)=ow::datetime::hour24to12($endhour) if ($prefs{'hourformat'}==12);
}
$temphtml = $lang_text{'calfmt_hourminampm'};
$temphtml2 = popup_menu(-name=>'endhour',
-values=>\@hourlist,
-default=>$endhour,
-labels=>\%numlabels,
-override=>'1');
$temphtml2 .= "<B>:</B>";
$temphtml2 .= popup_menu(-name=>'endmin',
-values=>[0,5,10,15,20,25,30,35,40,45,50,55],
-default=>$endmin,
-labels=>\%numlabels,
-override=>'1');
$temphtml =~ s/\@\@\@HOURMIN\@\@\@/$temphtml2/;
if ($prefs{'hourformat'}==12) {
$temphtml2 = popup_menu(-name=>'endampm',
-values=>['am','pm'],
-default=>$endampm,
-labels=>{ am=>$lang_text{'am'}, pm=>$lang_text{'pm'} },
-override=>'1');
} else {
$temphtml2 = '';
}
$temphtml =~ s/\@\@\@AMPM\@\@\@/$temphtml2/;
$html =~ s/\@\@\@ENDHOURMINMENU\@\@\@/$temphtml/;
my ($everyyear, $monthfreq, $dayfreq, $dow, $startdate, $enddate, $ndays) = '';
my $dayfreq_default = "thisdayonly";
my $thisandnextndays_default = 0;
my $ndays_default = "";
my $monthfreq_default = "thismonthonly";
my $everyyear_default = 0;
my $linkstr_default=$items{$index}{'link'};
my $emailstr_default=$items{$index}{'email'};
if ($items{$index}{'idate'}=~/,/) {
($everyyear, $monthfreq, $dayfreq, $dow) = split(/,/, $items{$index}{'idate'});
my %weekorder_day_wild_reversed = ( "0[1-7]" => 1,
"((0[8-9])|(1[0-4]))" => 2,
"((1[5-9])|(2[0-1]))" => 3,
"2[2-8]" => 4);
if ($weekorder_day_wild_reversed{$dayfreq}) {
$dayfreq_default = "thewdayofthismonth";
} elsif ($dayfreq eq '.*') {
$dayfreq_default = "everywdaythismonth";
}
if ($monthfreq eq '(01|03|05|07|09|11)') {
$monthfreq_default = "everyoddmonththisyear";
} elsif ($monthfreq eq '(02|04|06|08|10|12)') {
$monthfreq_default = "everyevenmonththisyear"
} elsif ($monthfreq eq '.*') {
$monthfreq_default = "everymonththisyear";
}
if ($everyyear eq '.*') {
$everyyear_default = 1;
}
} elsif ($items{$index}{'idate'}=~/^\(?(\d+)\|?.*?\|?(\d+)?\)?$/) {
$startdate = $1;
$enddate = $2 || '';
if ($enddate ne '') {
$thisandnextndays_default = 1;
$ndays_default = $items{$index}{'idate'} =~ tr/|/|/;
}
} else {
openwebmailerror(__FILE__, __LINE__, "Index $index idate $lang_err{'doesnt_exist'}");
writelog("edit calitem error - idate wrong format, index=$index");
writehistory("edit calitem error - idate wrong format, index=$index");
}
my $t=ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $wdaynum=(ow::datetime::seconds2array($t))[6];
my $weekorder=int(($day+6)/7);
my %dayfreqlabels = ('thisdayonly' =>$lang_text{'thisday_only'},
'thewdayofthismonth'=>$lang_text{'the_wday_of_thismonth'},
'everywdaythismonth'=>$lang_text{'every_wday_thismonth'});
$dayfreqlabels{'thewdayofthismonth'}=~s/\@\@\@ORDER\@\@\@/$lang_order{$weekorder}/;
$dayfreqlabels{'thewdayofthismonth'}=~s/\@\@\@WDAY\@\@\@/$lang_wday{$wdaynum}/;
$dayfreqlabels{'everywdaythismonth'}=~s/\@\@\@WDAY\@\@\@/$lang_wday{$wdaynum}/;
if ($weekorder<=4) {
$temphtml = popup_menu(-name=>'dayfreq',
-values=>['thisdayonly', 'thewdayofthismonth', 'everywdaythismonth'],
-default=>$dayfreq_default,
-labels=>\%dayfreqlabels,
-override=>'1');
} else {
$temphtml = popup_menu(-name=>'dayfreq',
-values=>['thisdayonly', 'everywdaythismonth'],
-default=>$dayfreq_default,
-labels=>\%dayfreqlabels,
-override=>'1');
}
$html =~ s/\@\@\@FREQMENU\@\@\@/$temphtml/;
$temphtml = checkbox(-name=>'thisandnextndays',
-value=>'1',
-checked=>$thisandnextndays_default,
-label=>'',
-override=>'1');
$html =~ s/\@\@\@THISANDNEXTNDAYSCHECKBOX\@\@\@/$temphtml/g;
$temphtml = textfield(-name=>'ndays',
-default=>$ndays_default,
-size=>'2',
-override=>'1');
$html =~ s/\@\@\@NDAYSFIELD\@\@\@/$temphtml/;
my %monthfreqlabels = ('thismonthonly' =>$lang_text{'thismonth_only'},
'everyoddmonththisyear' =>$lang_text{'every_oddmonth_thisyear'},
'everyevenmonththisyear'=>$lang_text{'every_evenmonth_thisyear'},
'everymonththisyear' =>$lang_text{'every_month_thisyear'});
my @monthfreq =('thismonthonly');
if ($month%2==1) {
push(@monthfreq, 'everyoddmonththisyear');
} else {
push(@monthfreq, 'everyevenmonththisyear');
}
push(@monthfreq, 'everymonththisyear');
$temphtml = popup_menu(-name=>'monthfreq',
-values=>\@monthfreq,
-default=>$monthfreq_default,
-labels=>\%monthfreqlabels,
-override=>'1');
$html =~ s/\@\@\@MONTHFREQMENU\@\@\@/$temphtml/g;
$temphtml = checkbox(-name=>'everyyear',
-value=>'1',
-checked=>$everyyear_default,
-label=>'',
-override=>'1');
$html =~ s/\@\@\@EVERYYEARCHECKBOX\@\@\@/$temphtml/g;
$linkstr_default="http://" if ($linkstr_default eq "0");
$temphtml = textfield(-name=>'link',
-default=>$linkstr_default,
-size=>'32',
-override=>'1');
$html =~ s/\@\@\@LINKFIELD\@\@\@/$temphtml/;
$emailstr_default="" if ($emailstr_default eq "0");
if ($config{'calendar_email_notifyinterval'} > 0 ) {
templateblock_enable($html, 'EMAIL');
$temphtml = textfield(-name=>'email',
-default=>$emailstr_default,
-size=>'32',
-override=>'1');
$html =~ s/\@\@\@EMAILFIELD\@\@\@/$temphtml/;
} else {
$temphtml = ow::tool::hiddens(email=>$emailstr_default);
templateblock_disable($html, 'EMAIL', $temphtml);
}
$temphtml = qq|<table><tr>|;
$temphtml .= qq|<td>|;
$temphtml .= popup_menu(-name=>'eventcolor',
-values=>['none', sort keys %eventcolors],
-default=>$items{$index}{'eventcolor'},
-labels=>{ none=> $lang_text{'none'} },
-override=>'1');
$temphtml .= qq|</td>|;
my $eventcolornum = 1;
foreach (sort keys %eventcolors) {
$temphtml .= qq|<td width="14" align="center" bgcolor="#$eventcolors{$_}">|.
qq|<a href="#" onClick='javascript:document.editcalendar.eventcolor.selectedIndex="$eventcolornum"'>$_</a></td>\n|;
$eventcolornum++;
}
$temphtml .= qq|<td width="14" align="center">|.
qq|<a href="#" onClick='javascript:document.editcalendar.eventcolor.selectedIndex="0"'>--</a></td>\n|;
$temphtml .= qq|</tr></table>|;
$html =~ s/\@\@\@EVENTCOLORMENU\@\@\@/$temphtml/;
$temphtml = submit("$lang_text{'save'}");
$html =~ s/\@\@\@SUBMITBUTTON\@\@\@/$temphtml/;
$temphtml = startform(-action=>"$config{'ow_cgiurl'}/openwebmail-cal.pl",
-name=>'cancelform',
-override=>'1').
ow::tool::hiddens(sessionid=>$thissession,
folder=>$folder,
message_id=>$messageid,
year=>$year);
if (defined(param('callist'))) {
$temphtml .= ow::tool::hiddens(action=>'callist');
} else {
$temphtml .= ow::tool::hiddens(month=>$month,
day=>$day,
action=>'calday');
}
$html =~ s/\@\@\@STARTCANCELFORM\@\@\@/$temphtml/;
$temphtml = submit($lang_text{'cancel'});
$html =~ s/\@\@\@CANCELBUTTON\@\@\@/$temphtml/;
$temphtml = end_form();
$html =~ s/\@\@\@ENDFORM\@\@\@/$temphtml/g;
httpprint([], [htmlheader(), $html, htmlfooter(2)]);
}
sub add_item {
my ($year, $month, $day,
$string,
$starthour, $startmin, $startampm,
$endhour, $endmin, $endampm,
$dayfreq,
$thisandnextndays, $ndays,
$monthfreq,
$everyyear,
$link, $email, $eventcolor)=@_;
my $line;
return if ($string=~/^\s?$/);
if ($string =~ /\@\@\@/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'pipe_char_not_allowed'}");
}
if ($link =~ /\@\@\@/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'pipe_char_not_allowed'}");
}
if ($string =~ /\@$/) {
$string=$string." ";
} elsif ($string =~ /^\@/) {
$string=" ".$string;
}
if ($link =~ /\@$/) {
$link=$link." ";
} elsif ($link =~ /^\@/) {
$link=" ".$link;
}
$link=~s/\Q$thissession\E/\%THISSESSION\%/;
$link=0 if ($link !~ m!://[^\s]+!);
$email=0 if ($email !~ m![^\[email protected]][email protected][^\[email protected]]+!);
my $starthourmin=0;
my $endhourmin=0;
if ($starthour =~ /\d+/) {
if ($prefs{'hourformat'}==12) {
$starthour+=12 if ($startampm eq "pm" && $starthour< 12);
$starthour=0 if ($startampm eq "am" && $starthour==12);
}
$starthourmin = sprintf("%02d%02d", $starthour,$startmin);
}
if ($endhour =~ /\d+/) {
if ($prefs{'hourformat'}==12) {
$endhour+=12 if ($endampm eq "pm" && $endhour< 12);
$endhour=0 if ($endampm eq "am" && $endhour==12);
}
$endhourmin = sprintf("%02d%02d", $endhour,$endmin);
}
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
$day=$days_in_month[$month] if ($day>$days_in_month[$month]); $day=1 if ($day<1);
my $calbookfile=dotpath('calendar.book');
my ($item_count, %items, %indexes);
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
my $index = $item_count+19690404;
my $t = ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $dow = $ow::datetime::wday_en[(ow::datetime::seconds2array($t))[6]];
if ($dayfreq eq 'thisdayonly' && $monthfreq eq 'thismonthonly' && !$everyyear) {
if ($thisandnextndays && $ndays) {
if ($ndays !~ /\d+/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'badnum_in_days'}: $ndays");
}
my $date_wild='(';
for (my $i=0; $i<=$ndays; $i++) {
my ($y, $m, $d)=(ow::datetime::seconds2array($t+86400*$i))[5,4,3];
$date_wild.='|' if ($i>0);
$date_wild.=sprintf("%04d%02d%02d", $y+1900, $m+1, $d);
}
$date_wild.=')';
$items{$index}{'idate'}=$date_wild;
} else {
$items{$index}{'idate'}=sprintf("%04d%02d%02d", $year, $month, $day);
}
} elsif ($dayfreq eq 'thewdayofthismonth') {
my $year_wild=sprintf("%04d", $year);
my $month_wild=sprintf("%02d", $month);
my $day_wild=sprintf("%02d", $day);
$year_wild = ".*" if ($everyyear);
if ($monthfreq eq 'everyoddmonththisyear') {
$month_wild="(01|03|05|07|09|11)";
} elsif ($monthfreq eq 'everyevenmonththisyear') {
$month_wild="(02|04|06|08|10|12)";
} elsif ($monthfreq eq 'everymonththisyear') {
$month_wild = ".*";
}
my %weekorder_day_wild= ( 1 => "0[1-7]",
2 => "((0[8-9])|(1[0-4]))",
3 => "((1[5-9])|(2[0-1]))",
4 => "2[2-8]" );
my $weekorder=int(($day+6)/7);
$day_wild=$weekorder_day_wild{$weekorder} if ($weekorder_day_wild{$weekorder} ne "");
$items{$index}{'idate'}="$year_wild,$month_wild,$day_wild,$dow";
} else {
my $year_wild=sprintf("%04d", $year);
my $month_wild=sprintf("%02d", $month);
$year_wild = ".*" if ($everyyear);
if ($monthfreq eq 'everyoddmonththisyear') {
$month_wild="(01|03|05|07|09|11)";
} elsif ($monthfreq eq 'everyevenmonththisyear') {
$month_wild="(02|04|06|08|10|12)";
} elsif ($monthfreq eq 'everymonththisyear') {
$month_wild = ".*";
}
if ($dayfreq eq 'everywdaythismonth') {
$items{$index}{'idate'}="$year_wild,$month_wild,.*,$dow";
} else {
my $daystr=sprintf("%02d", $day);
$items{$index}{'idate'}="$year_wild,$month_wild,$daystr,.*";
}
}
$items{$index}{'starthourmin'}="$starthourmin";
$items{$index}{'endhourmin'}="$endhourmin";
$items{$index}{'string'}=$string;
$items{$index}{'link'}=$link;
$items{$index}{'email'}=$email;
$items{$index}{'eventcolor'}=$eventcolor;
if (writecalbook($calbookfile, \%items) <0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
reset_notifycheck_for_newitem($items{$index});
my $msg="add calitem - index=$index, start=$starthourmin, end=$endhourmin, str=$string";
writelog($msg);
writehistory($msg);
}
sub del_item {
my $index=$_[0];
my $calbookfile=dotpath('calendar.book');
my (%items, %indexes);
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
return if (! defined($items{$index}) );
delete $items{$index};
if ( writecalbook($calbookfile, \%items) <0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
my $msg="delete calitem - index=$index, t=$items{$index}{'starthourmin'}, str=$items{$index}{'string'}";
writelog($msg);
writehistory($msg);
}
sub update_item {
my ($index,
$year, $month, $day,
$string,
$starthour, $startmin, $startampm,
$endhour, $endmin, $endampm,
$dayfreq,
$thisandnextndays, $ndays, $monthfreq, $everyyear,
$link, $email, $eventcolor)=@_;
my $line;
return if ($string=~/^\s?$/);
if ($string =~ /\@{3}/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'at_char_not_allowed'}");
}
if ($link =~ /\@{3}/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'at_char_not_allowed'}");
}
if ($string =~ /\@$/) {
$string=$string." ";
} elsif ($string =~ /^\@/) {
$string=" ".$string;
}
if ($link =~ /\@$/) {
$link=$link." ";
} elsif ($link =~ /^\@/) {
$link=" ".$link;
}
$link=~s/\Q$thissession\E/\%THISSESSION\%/;
$link=0 if ($link !~ m!://[^\s]+!);
$email=0 if ($email !~ m![^\[email protected]][email protected][^\[email protected]]+!);
my $starthourmin=0;
my $endhourmin=0;
if ($starthour =~ /\d+/) {
if ($prefs{'hourformat'}==12) {
$starthour+=12 if ($startampm eq "pm" && $starthour< 12);
$starthour=0 if ($startampm eq "am" && $starthour==12);
}
$starthourmin = sprintf("%02d%02d", $starthour,$startmin);
}
if ($endhour =~ /\d+/) {
if ($prefs{'hourformat'}==12) {
$endhour+=12 if ($endampm eq "pm" && $endhour< 12);
$endhour=0 if ($endampm eq "am" && $endhour==12);
}
$endhourmin = sprintf("%02d%02d", $endhour,$endmin);
}
my @days_in_month = qw(0 31 28 31 30 31 30 31 31 30 31 30 31);
$days_in_month[2]++ if ( ($year%4)==0 && (($year%100)!=0||($year%400)==0) );
$day=$days_in_month[$month] if ($day>$days_in_month[$month]); $day=1 if ($day<1);
my $t = ow::datetime::array2seconds(1,1,1, $day,$month-1,$year-1900);
my $dow = $ow::datetime::wday_en[(ow::datetime::seconds2array($t))[6]];
my $idate = '';
if ($dayfreq eq 'thisdayonly' && $monthfreq eq 'thismonthonly' && !$everyyear) {
if ($thisandnextndays && $ndays) {
if ($ndays !~ /\d+/) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'badnum_in_days'}: $ndays");
}
my $date_wild='(';
for (my $i=0; $i<=$ndays; $i++) {
my ($y, $m, $d)=(ow::datetime::seconds2array($t+86400*$i))[5,4,3];
$date_wild.='|' if ($i>0);
$date_wild.=sprintf("%04d%02d%02d", $y+1900, $m+1, $d);
}
$date_wild.=')';
$idate=$date_wild;
} else {
$idate=sprintf("%04d%02d%02d", $year, $month, $day);
}
} elsif ($dayfreq eq 'thewdayofthismonth') {
my $year_wild=sprintf("%04d", $year);
my $month_wild=sprintf("%02d", $month);
my $day_wild=sprintf("%02d", $day);
$year_wild = ".*" if ($everyyear);
if ($monthfreq eq 'everyoddmonththisyear') {
$month_wild="(01|03|05|07|09|11)";
} elsif ($monthfreq eq 'everyevenmonththisyear') {
$month_wild="(02|04|06|08|10|12)";
} elsif ($monthfreq eq 'everymonththisyear') {
$month_wild = ".*";
}
my %weekorder_day_wild= ( 1 => "0[1-7]",
2 => "((0[8-9])|(1[0-4]))",
3 => "((1[5-9])|(2[0-1]))",
4 => "2[2-8]" );
my $weekorder=int(($day+6)/7);
$day_wild=$weekorder_day_wild{$weekorder} if ($weekorder_day_wild{$weekorder} ne "");
$idate="$year_wild,$month_wild,$day_wild,$dow";
} else {
my $year_wild=sprintf("%04d", $year);
my $month_wild=sprintf("%02d", $month);
$year_wild = ".*" if ($everyyear);
if ($monthfreq eq 'everyoddmonththisyear') {
$month_wild="(01|03|05|07|09|11)";
} elsif ($monthfreq eq 'everyevenmonththisyear') {
$month_wild="(02|04|06|08|10|12)";
} elsif ($monthfreq eq 'everymonththisyear') {
$month_wild = ".*";
}
if ($dayfreq eq 'everywdaythismonth') {
$idate="$year_wild,$month_wild,.*,$dow";
} else {
my $daystr=sprintf("%02d", $day);
$idate="$year_wild,$month_wild,$daystr,.*";
}
}
my $calbookfile=dotpath('calendar.book');
my (%items, %indexes);
if ( readcalbook($calbookfile, \%items, \%indexes, 0)<0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
if (! defined($items{$index}) ) {
openwebmailerror(__FILE__, __LINE__, "$lang_text{'calendar'} $index $lang_err{'doesnt_exist'}");
writelog("update calitem error - item missing, index=$index");
writehistory("update calitem error - item missing, index=$index");
}
$items{$index}{'starthourmin'}="$starthourmin";
$items{$index}{'endhourmin'}="$endhourmin";
$items{$index}{'idate'}="$idate";
$items{$index}{'string'}=$string;
$items{$index}{'link'}=$link;
$items{$index}{'email'}=$email;
$items{$index}{'eventcolor'}="$eventcolor";
if ( writecalbook($calbookfile, \%items) <0 ) {
openwebmailerror(__FILE__, __LINE__, "$lang_err{'couldnt_open'} $calbookfile");
}
reset_notifycheck_for_newitem($items{$index});
my $msg="update calitem - index=$index, start=$starthourmin, end=$endhourmin, str=$string";
writelog($msg);
writehistory($msg);
}
sub set_days_in_month {
my ($year, $month, $days_in_month) = @_;
my %wdaynum=qw(Sun 0 Mon 1 Tue 2 Wed 3 Thu 4 Fri 5 Sat 6);
foreach (keys %wdaynum) {
$wdaynum{$_}=($wdaynum{$_}+7-$prefs{'calendar_weekstart'})%7;
}
my $time = ow::datetime::array2seconds(0,0,12, 1,$month-1,$year-1900);
my $weekday = ow::datetime::seconds2array($time); $weekday =~ s/^(\w+).*$/$1/;
my @days;
my $day_counter = 1;
for my $x (0..5) {
for my $y (0..6) {
if ( ($x>0 || $y>=$wdaynum{$weekday}) &&
$day_counter<=$days_in_month ) {
$days[$x][$y] = $day_counter;
$day_counter++;
}
}
}
return @days;
}
sub hourmin2str {
my ($hourmin, $hourformat) = @_;
if ($hourmin =~ /(\d+)(\d{2})$/) {
my ($hour, $min) = ($1, $2);
$hour =~ s/^0(.+)/$1/;
if ($hourformat==12) {
my $ampm;
($hour, $ampm)=ow::datetime::hour24to12($hour);
$hourmin = $lang_text{'calfmt_hourminampm'};
$hourmin =~ s/\@\@\@HOURMIN\@\@\@/$hour:$min/;
$hourmin =~ s/\@\@\@AMPM\@\@\@/$lang_text{$ampm}/;
} else {
$hourmin = sprintf("%02d", $hour) . ":" . sprintf("%02d", $min);
}
}
return $hourmin;
}
sub formatted_date {
my ($year, $month, $day, $wday)=@_;
my $fmtstr;
if (defined($wday)) {
$fmtstr=