d2591c30b91bcb0a9ef79b80301d60516feb90d7
[idzebra-moved-to-github.git] / test / dmoz / con1.pl
1 #!/usr/bin/perl -w
2
3 my $state = 'init';
4 my $topic = '';
5 my $title;
6 my $description;
7
8 while ($_ = <STDIN>) {
9     if (/<Topic r:id=\"(.*?)\">/) {
10         $topic = $1;
11     }
12     elsif (/<ExternalPage about=\"(.*?)\">/) {
13         $url = $1;
14     }
15     elsif (/<d:Title>(.*?)<\/d:Title>/) {
16         $title = $1;
17     }
18     elsif (/<d:Description>(.*?)<\/d:Description>/) {
19         $description = $1;
20     }
21     elsif (/<\/ExternalPage>/) {
22         print "<meta>\n";
23         print " <title>$title</title>\n";
24         print " <description>$description</description>\n";
25         print " <url>$url</url>\n";
26         print " <topic>$topic</topic>\n";
27         print "</meta>\n";
28     }
29 }