mirror of
https://github.com/OpenVPN/openvpn.git
synced 2025-05-08 21:25:53 +08:00
52d84f6eaf
git-svn-id: http://svn.openvpn.net/projects/openvpn/branches/BETA21/openvpn@1875 e7ae566f-a301-0410-adde-c780ea21d3b5
10 lines
191 B
Perl
10 lines
191 B
Perl
#!/usr/bin/perl
|
|
|
|
# convert a unix filename to a DOS filename
|
|
|
|
while ($unixname = shift(@ARGV)) {
|
|
$unixname =~ s#^/([a-zA-Z])(/|$)#$1:\\#g;
|
|
$unixname =~ s#/#\\#g;
|
|
print "$unixname\n";
|
|
}
|