scripts/shortcuts/rap.pl

#!/usr/bin/perl

## -------------------------------------------------------------------------
##  $Id: rap.pl,v 1.2 2003/02/18 19:09:07 jonen Exp $
## -------------------------------------------------------------------------
##  $Log: rap.pl,v $
##  Revision 1.2  2003/02/18 19:09:07  jonen
##  + cwd for linux bootstrap
##
##  Revision 1.1  2003/02/18 15:30:52  joko
##  + initial commit
##
## -------------------------------------------------------------------------


use strict;
use warnings;


use File::Spec::Functions qw( splitpath splitdir catpath catdir );

sub popdir {
  my $path = shift;
  my $popcount = shift;
  (my $volume, my $directory, my $file) = splitpath( $path );
  my @dir = splitdir($directory);
  while ($popcount--) {
    pop @dir;
  }
  #pop @dir;
  
  #my $base = catpath($volume, catdir(@dir));
  my $base = join('/', @dir);
  $base = $volume . $base if $volume;
  
  return $base;
}


BEGIN { 
  use FindBin qw($Bin);
  #use lib "$Bin/../../libs";
  my $libpath = popdir($Bin, 2) . '/libs';
  #print "libpath: $libpath", "\n";
  #exit;
  my $evs = "use lib '$libpath';";
  #print "evs: $evs", "\n";
  eval($evs);
  die($@) if $@;
}


# ------------------------------------   main   ------------
use Data::Dumper;
use Data::Rap;


sub main {
  my $argString = shift;
  my $rap = Data::Rap->new( target => $argString );
  $rap->start();
  #$rap->stop();
}

my @args = @ARGV;
@args = () if not @args;
main(join(' ', @args));


1;
__END__
1	#!/usr/bin/perl
2
3	## -------------------------------------------------------------------------
4	## $Id: rap.pl,v 1.2 2003/02/18 19:09:07 jonen Exp $
5	## -------------------------------------------------------------------------
6	## $Log: rap.pl,v $
7	## Revision 1.2 2003/02/18 19:09:07 jonen
8	## + cwd for linux bootstrap
9	##
10	## Revision 1.1 2003/02/18 15:30:52 joko
11	## + initial commit
12	##
13	## -------------------------------------------------------------------------
14
15
16	use strict;
17	use warnings;
18
19
20	use File::Spec::Functions qw( splitpath splitdir catpath catdir );
21
22	sub popdir {
23	my $path = shift;
24	my $popcount = shift;
25	(my $volume, my $directory, my $file) = splitpath( $path );
26	my @dir = splitdir($directory);
27	while ($popcount--) {
28	pop @dir;
29	}
30	#pop @dir;
31
32	#my $base = catpath($volume, catdir(@dir));
33	my $base = join('/', @dir);
34	$base = $volume . $base if $volume;
35
36	return $base;
37	}
38
39
40
41	BEGIN {
42	use FindBin qw($Bin);
43	#use lib "$Bin/../../libs";
44	my $libpath = popdir($Bin, 2) . '/libs';
45	#print "libpath: $libpath", "\n";
46	#exit;
47	my $evs = "use lib '$libpath';";
48	#print "evs: $evs", "\n";
49	eval($evs);
50	die($@) if $@;
51	}
52
53
54	# ------------------------------------ main ------------
55	use Data::Dumper;
56	use Data::Rap;
57
58
59	sub main {
60	my $argString = shift;
61	my $rap = Data::Rap->new( target => $argString );
62	$rap->start();
63	#$rap->stop();
64	}
65
66	my @args = @ARGV;
67	@args = () if not @args;
68	main(join(' ', @args));
69
70
71	1;
72	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26