package WebCoso::Common;
our $SRCPATH='src';
our $DSTPATH='dst';
our $DSTBASEURL='/';
sub langOf {
my ($name)=@_;
$name=~m{(^|/)document\.([^.]+)(\.|$)} and return $2;
return;
}
sub typeOf {
my ($name)=@_;
$name=~m{(^|/)document\.[^.]+\.([^.]+\.[^.]+)$} and return $2;
return;
}
sub typedAs {
my ($name,$newtype)=@_;
$name=~s{(^|/)(document\.[^.]+\.)([^.]+\.[^.]+)$}{$1$2$newtype};
return $name;
}
sub dstUriFor {
my ($name,$short)=(@_,1);
warn "dstUriFor($name,$short)\n";
if ($short) {
$name=~s{/[^/]+$}{/};
}
else {
$name=typedAs($name,'html');
}
$name=~s{^\Q$SRCPATH\E/}{$DSTBASEURL};
return $name;
}
sub isLang {
my ($lang,$name)=@_;
warn "isLang($lang,$name)\n";
return 1 if $name=~m{/$};
return 1 if langOf($name) eq $lang;
return;
}
1;