1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
#!/usr/bin/perl -w
###############################################################################
##OCS inventory-NG Version 1.02
##Copyleft Pascal DANEK 2005
##Copyleft Goneri Le Bouder 2006
##Web : http://www.ocsinventory-ng.org
##
##This code is open source and may be copied and modified as long as the source
##code is always made freely available.
##Please refer to the General Public Licence http://www.gnu.org/ or Licence.txt
################################################################################
#Last modification : $Id: ocsinventory-injector.pl,v 1.3 2008-02-18 07:17:52 hunal Exp $
#Local insertion script
use Fcntl qw/:flock/;
use LWP::UserAgent;
use XML::Simple;
use Compress::Zlib;
use Getopt::Long;
use constant VERSION => 3;
use strict;
my $help;
my $directory;
my $file;
my $url;
my $useragent;
my $remove;
my $verbose;
my $stdin;
sub loadfile {
$file = shift;
unless ( -r $file ) {
print STDERR "Can't read $file\n";
return;
}
print "Loading $file..." if $verbose;
unless ( open( FILE, "$file" ) && flock( FILE, LOCK_EX | LOCK_NB ) ) {
print STDERR "Failed to access $file : $!";
return;
}
local $/;
my $content = <FILE>;
close FILE or die "Can't close file $file: $!";
sendContent($content);
}
sub loaddirectory {
my $directory = shift;
unless ( -r $directory ) {
print STDERR "Can't read $directory: $!\n";
return;
}
opendir( DIR, $directory ) || die "can't opendir $directory: $!";
foreach ( readdir(DIR) ) {
loadfile("$directory/$_") if (/\.ocs$/);
}
closedir DIR;
}
sub loadstdin {
my $content;
undef $/;
$content = <STDIN>;
sendContent($content);
}
sub sendContent {
my $content = shift;
my $ua = LWP::UserAgent->new;
$ua->agent($useragent);
my $request = HTTP::Request->new( POST => $url );
$request->header(
'Pragma' => 'no-cache',
'Content-type', 'Application/x-compress'
);
$request->content("$content");
my $res = $ua->request($request);
if($res->is_success){
print "OK\n" if $verbose;
print STDERR "Can't remove $file: $!\n"
if ($remove && (!unlink $file));
}else{
if($verbose){
print "ERROR: ";
print $res->status_line(), "\n";
}
}
}
sub usage {
print <<EOF;
DESCRIPTION:
A command line tools to import .ocs files.
USAGE:
-h --help : this menu
-d --directory : load every .ocs files from a directory
-f --file\ : load a speficic file
-u --url : ocsinventory backend URL, default is http://ocsinventory-ng/ocsinventory
--useragent : HTTP user agent, default is OCS-NG_LOCAL_PL_v".VERSION."
-r --remove : remove succesfuly injected files
-m --msg : show message returned my ocsinventory
-v --verbose : verbose mode
--stdin : read data from STDIN
You can specify a --file or a --directory or STDIN. Current directory is the default
EOF
exit 1;
}
GetOptions(
'h|help' => \$help,
'd|directory=s' => \$directory,
'f|file=s' => \$file,
'u|url=s' => \$url,
'useragent=s' => \$useragent,
'r|remove' => \$remove,
'v|verbose' => \$verbose,
'stdin' => \$stdin,
);
# Default values
$url = 'http://localhost/ocsinventory' unless $url;
$useragent = 'OCS-NG_INJECTOR_PL_v'.VERSION unless $useragent;
$directory = '.' unless $directory;
###
$|=1;
if ($file && -f $file) {
loadfile($file);
}
elsif ($stdin) {
loadstdin();
}
elsif($help){
usage();
}
else{
if ($directory && -d $directory) {
loaddirectory($directory);
}
else{
die("Directory does not exist. Abort.");
}
}
|