diff --git a/dcd.pl b/dcd.pl index 4db3c83765b4ac75f272b752b743ce4ee92ead5d..26e7ff5eb99189f690771f4d99947f0ecabfd982 100755 --- a/dcd.pl +++ b/dcd.pl @@ -153,15 +153,19 @@ sub register_url my $repo_url= shift; print __LINE__, " repo_url=[$repo_url]\n"; - if ($repo_url =~ m#^https?://(phaidra(-(sandbox|temp))?\.univie\.ac\.at)/(detail_object|view/)?(o:\d+)$# - # || $repo_url =~ m# ... uscholar ... #) + if (# Phaidra + $repo_url =~ m#^https?://(phaidra(-(sandbox|temp))?\.univie\.ac\.at)/(detail_object|view/)?(o:\d+)$# + # OJS || $repo_url =~ m#https://(ojs3test\.univie\.ac\.at)/index\.php/wks/article/view/(\d+)$# || $repo_url =~ m#https://(wbagon\.univie\.ac\.at)/index\.php/(wbagon)/article/view/(\d+)$# || $repo_url =~ m#https://(rezenstfm\.univie\.ac\.at)/index\.php/(tfm)/article/view/(\d+)$# - || $repo_url =~ m#https://(journals\.univie\.ac\.at)/index\.php/(yis|kf|mp|oezg|wdr)/article/view/(\d+)$# + || $repo_url =~ m#https://(journals\.univie\.ac\.at)/index\.php/(yis|kf|mp|oezg|wdr|aaj|lili)/article/view/(\d+)$# || $repo_url =~ m#https://(chronotopos\.eu)/index\.php/(cts)/article/view/(\d+)$# || $repo_url =~ m#https://(viennalawreview\.com)/index\.php/(vlr)/article/view/(\d+)$# || $repo_url =~ m#https://(aseas\.univie\.ac\.at)/index\.php/(aseas)/article/view/(\d+)$# + || $repo_url =~ m#https://(www\.protokollezurbibel\.at)/index\.php/(pzb)/article/view/(\d+)$# + || $repo_url =~ m#https://(www\.tde-journal\.org)/index\.php/(tde)/article/view/(\d+)$# + # Othes || $repo_url =~ m#https://(othes\.univie\.ac\.at)/(\d+)/$# ) {