genorg.pl
changeset 19 4af32b97ad33
parent 18 2db4b55800d3
child 20 ce527668bd78
equal deleted inserted replaced
18:2db4b55800d3 19:4af32b97ad33
   386 sub rss_en ($data) {
   386 sub rss_en ($data) {
   387   my $thing = <<"END" =~ s/\n\s+//gr;
   387   my $thing = <<"END" =~ s/\n\s+//gr;
   388  <item>
   388  <item>
   389     <title>TITLE</title>
   389     <title>TITLE</title>
   390     <link>LINK</link>
   390     <link>LINK</link>
   391     <description>DESC</description>
       
   392   </item>
   391   </item>
   393 END
   392 END
   394   $thing 
   393   $thing 
   395     =~ s|LINK|"$domain/" . $data->{file}|er
   394     =~ s|LINK|"$domain/" . $data->{file}|er
   396       =~ s/TITLE/$data->{utitle}/er;
   395       =~ s/TITLE/$data->{utitle}/er;