_touchy

#!/usr/bin/perl -w

# Thu Aug  4 01:10:57 EDT 2011
(my $email='XXX%YYY,ch')=~ tr/%,/@./;

use strict;

$0=~ /(.*?)([^\/]+)\z/s or die "?";
my ($mydir, $myname)=($1,$2);
sub usage {
    print STDERR map{"$_\n"} @_ if @_;
    print "$myname [string(s)]

  or read lines from stdin.

  'url2filename'-escape the strings, create file or bark if exists.

  (Christian Jaeger <$email>)
";
exit (@_ ? 1 : 0);
}

use Getopt::Long;
our $verbose=0;
#our $opt_dry;
GetOptions("verbose"=> \$verbose,
	   "help"=> sub{usage},
	   #"dry-run"=> \$opt_dry,
	   ) or exit 1;

use Chj::Web::FileescapeUrl qw(fileescapeurl);
use Chj::xsysopen;

sub xtouchy {
    my ($str)=@_;
    my $path= fileescapeurl($str);
    $path.=" " if $path=~ /~$/;
    xsysopen $path, O_CREAT|O_EXCL|O_WRONLY;
}

sub touchy {
    my ($str)=@_;
    my $r;
    eval {
	xtouchy $str;
	$r=1;
    };
    $r or do {
	warn $!
	  #heh funny, xsysopen doesn't mention the path. whatever.
    };
}

if (@ARGV) {
    foreach (@ARGV){ touchy $_ };
} else {
    while (<STDIN>) {
	chomp;
	touchy $_
    }
}

#use Chj::ruse;
#use Chj::Backtrace; use Chj::repl; repl;