Tadashi Okoshi
slash****@users*****
2006年 4月 6日 (木) 02:23:58 JST
Index: affelio/apps/diary/Diary.pm
diff -u affelio/apps/diary/Diary.pm:1.43 affelio/apps/diary/Diary.pm:1.44
--- affelio/apps/diary/Diary.pm:1.43 Thu Apr 6 00:59:39 2006
+++ affelio/apps/diary/Diary.pm Thu Apr 6 02:23:58 2006
@@ -29,7 +29,7 @@
use Affelio::misc::WebInput;
use Affelio::exception::SystemException;
use Error qw(:try);
- use Diary::ListDiary;
+# use Diary::ListDiary;
######################################################################
#Constructor
######################################################################
@@ -142,6 +142,12 @@
$self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('max_textlen', '10000')");
$self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('show_author', '0')");
$self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('image_size', '300')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_popserv', '')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_popuser', '')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_poppass', '')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_author', '')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_lastcheck', '0')");
+ $self->{dbh}->do("INSERT INTO $self->{pref_table} (key, value) VALUES ('moblog_check_interval', '15')");
}
bless $self, $class;
debug_print("Diary::new: end.");
@@ -168,6 +174,26 @@
);
###########################
+ #Moblog check once in 15 minutes
+ ###########################
+ use Diary::RetrieveMoblog;
+ my $cur_time = time;
+ my $last_check = $self->loadPref("moblog_lastcheck");
+ my $interval = $self->loadPref("moblog_check_interval") * 60;
+# if($cur_time > ($last_check + $interval) ){
+ retrieve_mesg_from_pop3(diary => $self,
+ pop3_server => $self->loadPref("moblog_popserv"),
+ pop3_username => $self->loadPref("moblog_popuser"),
+ pop3_password => $self->loadPref("moblog_poppass"),
+ author_email => $self->loadPref("moblog_author"),
+ tmp_dir => $self->{datadir}
+ );
+
+ $self->savePref("moblog_lastcheck", $cur_time);
+# }
+
+
+ ###########################
#Check DF_access
###########################
unless ($afap->check_access("DF_access")) {
@@ -187,6 +213,7 @@
##############################################################
my %output_data = ("tmpl_path", Cwd::getcwd()."/templates/");
+
##############################################################
#Model invocation
##############################################################
@@ -406,6 +433,36 @@
return @weeks;
}
+
+##############################################
+# savePref
+##############################################
+sub savePref{
+ my $diary = shift;
+ my $key = shift;
+ my $value = shift;
+
+ $diary->{dbh}->do("UPDATE $diary->{pref_table} SET value = '$value' WHERE key = '$key'");
+}
+
+##############################################
+# loadPref
+##############################################
+sub loadPref{
+ my $diary = shift;
+ my $key = shift;
+
+ my $query = "SELECT value from $diary->{pref_table} where key = '$key'";
+ my $sth;
+ my @row =();
+ $sth = $diary->{dbh}->prepare($query);
+ $sth->execute;
+ @row = $sth->fetchrow_array;
+
+ return( $row[0] );
+}
+
+
##############################################
# getCommentsNo
##############################################