#!/usr/bin/perl
# fixurl.pl
# purpose:
#	to accept a JGOFS object specification of the
#	form: //hostname.domain/path/to/object
#	and to return a proper URL to use in passing
#	on to another script/program, resulting in:
#	http://hostname.domain/jg/serv/path/to/object
#	
if ($#ARGV < 0) {

  print "";

} else {

  $name=$ARGV[0];
  $urlname="http:".substr($name,0,(index($name,"/",2)));
  $urlname.="/jg/serv".substr($name,(index($name,"/",2)));

  print $urlname;

}
