"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "EmailReminder/Utils.pm" between
email-reminder-0.8.0.tar.gz and email-reminder-0.8.1.tar.gz

About: Email-Reminder lets define events to be reminded of by email via cronjob (with GUI).

Utils.pm  (email-reminder-0.8.0):Utils.pm  (email-reminder-0.8.1)
skipping to change at line 27 skipping to change at line 27
package EmailReminder::Utils; package EmailReminder::Utils;
# Utility subroutines for the Email-Reminder program # Utility subroutines for the Email-Reminder program
use strict; use strict;
use warnings; use warnings;
use XML::DOM; use XML::DOM;
our $VERSION = '0.8.0'; our $VERSION = '0.8.1';
our $USER_CONFIG_FILE = '.email-reminders'; our $USER_CONFIG_FILE = '.email-reminders';
our $SPOOL_DIRECTORY = '/var/spool/email-reminder'; our $SPOOL_DIRECTORY = '/var/spool/email-reminder';
my %names = ( my %names = (
1 => "Paper", 1 => "Paper",
2 => "Cotton", 2 => "Cotton",
3 => "Leather", 3 => "Leather",
4 => "Linen", 4 => "Linen",
5 => "Wood", 5 => "Wood",
6 => "Iron", 6 => "Iron",
skipping to change at line 123 skipping to change at line 123
return "th"; return "th";
} }
} }
# Returns the traditional name for this occurence of the anniversary # Returns the traditional name for this occurence of the anniversary
# if applicable (e.g. Silver, Golden, Diamond) # if applicable (e.g. Silver, Golden, Diamond)
# (see http://www.the-inspirations-store.com/acatalog/anniversary.html) # (see http://www.the-inspirations-store.com/acatalog/anniversary.html)
sub get_special_name sub get_special_name
{ {
my $occurence = shift; my $occurence = shift;
return unless defined($occurence);
return unless exists $names{$occurence}; return unless exists $names{$occurence};
return "($names{$occurence}) "; return "($names{$occurence}) ";
} }
# Return some general-purpose debugging info # Return some general-purpose debugging info
sub debug_info sub debug_info
{ {
my $obj = shift; my $obj = shift;
my $depth_level = shift; my $depth_level = shift;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)