Mercurial > hg > Applications > Calcon

comparison Calcon.pm @ 9:798ba47e8046 address-book

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sun, 16 Oct 2005 15:42:04 +0900
parents 37b9a5119474
children 1a68139a269f
comparison
equal deleted inserted replaced
8:37b9a5119474 9:798ba47e8046
3073 # 3073 #
3074 3074
3075 sub initialize { 3075 sub initialize {
3076 my ($self) = @_; 3076 my ($self) = @_;
3077 $self->SUPER::initialize(); 3077 $self->SUPER::initialize();
3078 open(OUTPUT,"| nkf -w16") or die("nkf required.");
3079 select OUTPUT;
3078 } 3080 }
3079 3081
3080 sub print { 3082 sub print {
3081 my ($self,@data) = @_; 3083 my ($self,@data) = @_;
3082 foreach (@data) { 3084 foreach (@data) {
3134 # $data = "$record{'group'}"; 3136 # $data = "$record{'group'}";
3135 # $self->print("CATEGORIES:$data\n") if($data); 3137 # $self->print("CATEGORIES:$data\n") if($data);
3136 # } 3138 # }
3137 if(defined $record{'office'}) { 3139 if(defined $record{'office'}) {
3138 $data = "$record{'office'}"; 3140 $data = "$record{'office'}";
3139 $self->print("org:$data\n") if($data); 3141 $self->print("ORG:$data;\n") if($data);
3140 # if ($cat==0) { 3142 # if ($cat==0) {
3141 # $self->print("CATEGORIES:$data\n") if($data); 3143 # $self->print("CATEGORIES:$data\n") if($data);
3142 # } 3144 # }
3143 } 3145 }
3144 my $title; 3146 my $title;
3160 $adr_zip = $record{'zip'}; 3162 $adr_zip = $record{'zip'};
3161 } 3163 }
3162 $self->print("item$i.ADR;type=work;type=pref:;;$adr1;$adr2;$adr_state;$adr_zip;$adr_country\n") if ($data); 3164 $self->print("item$i.ADR;type=work;type=pref:;;$adr1;$adr2;$adr_state;$adr_zip;$adr_country\n") if ($data);
3163 } 3165 }
3164 if(defined $record{'tel'}) { 3166 if(defined $record{'tel'}) {
3165 my $i = $self->{'item'}++; 3167 # my $i = $self->{'item'}++;
3166 $data = $record{'tel'}; 3168 $data = $record{'tel'};
3167 $self->print("item$i.TEL;type=work:$data\n") if($data); 3169 $self->print("TEL;type=WORK:$data\n") if($data);
3170 }
3171 if(defined $record{'mobile-tel'}) {
3172 # my $i = $self->{'item'}++;
3173 $data = $record{'mobile-tel'};
3174 $self->print("TEL;type=CELL:$data\n") if($data);
3168 } 3175 }
3169 if(defined $record{'home-tel'}) { 3176 if(defined $record{'home-tel'}) {
3170 my $i = $self->{'item'}++; 3177 # my $i = $self->{'item'}++;
3171 $data = $record{'tel'}; 3178 $data = $record{'tel'};
3172 $self->print("item$i.TEL;type=home:$data\n") if($data); 3179 $self->print("TEL;type=HOME:$data\n") if($data);
3173 } 3180 }
3174 if(defined $record{'tel2'}) { 3181 if(defined $record{'tel2'}) {
3175 my $i = $self->{'item'}++; 3182 # my $i = $self->{'item'}++;
3176 $data = $record{'tel2'}; 3183 $data = $record{'tel2'};
3177 $self->print("item$i.tel;type=cell:$data\n") if($data); 3184 $self->print("TEL;type=CELL:$data\n") if($data);
3178 } 3185 }
3179 if(defined $record{'fax'}) { 3186 if(defined $record{'fax'}) {
3180 my $i = $self->{'item'}++; 3187 # my $i = $self->{'item'}++;
3181 $data = $record{'fax'}; 3188 $data = $record{'fax'};
3182 $self->print( "item$i.TEL;type=pref:$data\n") if($data); 3189 $self->print( "TEL;type=FAX:$data\n") if($data);
3183 } 3190 }
3184 if(defined $record{'home-address'}) { 3191 if(defined $record{'home-address'}) {
3185 my $i = $self->{'item'}++; 3192 my $i = $self->{'item'}++;
3186 my ($adr1 , $adr2 , $adr_state , $adr_zip , $adr_country ); 3193 my ($adr1 , $adr2 , $adr_state , $adr_zip , $adr_country );
3187 $adr1 = $adr2 = $adr_state = $adr_zip = $adr_country = ''; 3194 $adr1 = $adr2 = $adr_state = $adr_zip = $adr_country = '';
3190 # ADD:ÈÖÃÏ;;Į¼;²­Æì;903-0213;ÆüËÜ 3197 # ADD:ÈÖÃÏ;;Į¼;²­Æì;903-0213;ÆüËÜ
3191 if(defined $record{'home-zip'}) { 3198 if(defined $record{'home-zip'}) {
3192 $adr_zip = $record{'home-zip'}; 3199 $adr_zip = $record{'home-zip'};
3193 } 3200 }
3194 $self->print("item$i.ADR;type=home;type=pref:;;$adr1;$adr2;$adr_state;$adr_zip;$adr_country\n") if ($data); 3201 $self->print("item$i.ADR;type=home;type=pref:;;$adr1;$adr2;$adr_state;$adr_zip;$adr_country\n") if ($data);
3195 } 3202 # $self->print("item$1.X-ABADR:ja\n") if ($data);
3203 }
3204 if(defined $record{'mail2'}) {
3205 # my $i = $self->{'item'}++;
3206 $data = $record{'mail2'};
3207 $self->print("EMAIL;type=INTERNET;type=home:$data\n") if($data);
3208 }
3196 if(defined $record{'mail'}) { 3209 if(defined $record{'mail'}) {
3197 my $i = $self->{'item'}++; 3210 # my $i = $self->{'item'}++;
3198 $data = $record{'mail'}; 3211 $data = $record{'mail'};
3199 $self->print("item$i.EMAIL;type=INTERNET;type=pref:$data\n") if($data); 3212 $self->print("EMAIL;type=INTERNET;type=pref:$data\n") if($data);
3200 } 3213 }
3201 if(defined $record{'birth'}) { 3214 if(defined $record{'birth'}) {
3202 $data = $record{'birth'}; 3215 $data = $record{'birth'};
3203 $self->print("bday:".$data->date()."\n") if($data); 3216 $self->print("bday:".$data->date()."\n") if($data);
3204 } 3217 }