688
edits
Changes
Jump to navigation
Jump to search
Line 5:
Line 5: − <code>my $interval = $cdb->get('mailstats')->prop('Interval') || 'daily'; + − + − + − + − + − + − + − + − + − +
no edit summary
However, the specific code looks for "weekly", "fortnightly", "monthly":
However, the specific code looks for "weekly", "fortnightly", "monthly":
my $interval = $cdb->get('mailstats')->prop('Interval') || 'daily';
if ($interval eq "weekly") {
if ($interval eq "weekly") {
$secsininterval = 86400*7;
$secsininterval = 86400*7;
} elsif ($interval eq "fortnightly") {
} elsif ($interval eq "fortnightly") {
$secsininterval = 86400*14;
$secsininterval = 86400*14;
} elsif ($interval eq "monthly") {
} elsif ($interval eq "monthly") {
$secsininterval = 86400;
$secsininterval = 86400;
} elsif ($interval =~m/\d+/) {
} elsif ($interval =~m/\d+/) {
$secsininterval = $interval*3600;
$secsininterval = $interval*3600;
};</code>
};
so, does "week" eq "weekly" in perl (I don't know the answer)?
so, does "week" eq "weekly" in perl (I don't know the answer)?