/[swish]/trunk/html/swish.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/html/swish.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 61 by dpavlin, Thu Jan 29 18:25:55 2004 UTC revision 62 by dpavlin, Fri Feb 6 13:27:51 2004 UTC
# Line 20  my $config=XMLin(undef, Line 20  my $config=XMLin(undef,
20    
21  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});
22  sub x {  sub x {
23            return if (! defined $_[0]);
24          return $from_utf8->convert($_[0]);          return $from_utf8->convert($_[0]);
25  }  }
26    
# Line 71  print STDERR "##: $_->{limit}",x($_->{co Line 72  print STDERR "##: $_->{limit}",x($_->{co
72          $path_label{$_->{limit}} = x($_->{content});          $path_label{$_->{limit}} = x($_->{content});
73  }  }
74    
75  my @properties = split(/\s+/,x($config->{properties}));  my @properties = split(/\s+/,x($config->{properties})) if ($config->{properties});
76    
77  if ($config->{charset}) {  if ($config->{charset}) {
78          print header(-charset=>x($config->{charset}));          print header(-charset=>x($config->{charset}));
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.26