mirror of
https://github.com/systemd/systemd-stable.git
synced 2024-10-31 16:21:11 +03:00
83 lines
2.1 KiB
Perl
83 lines
2.1 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# udev-log-script
|
||
|
|
#
|
||
|
|
# Copyright (C) Intel Corp, 2004
|
||
|
|
#
|
||
|
|
# Author: Yin Hu <hu.yin@intel.com>
|
||
|
|
#
|
||
|
|
# This is a script for replacing udev binary during udevsend/udevd testing.
|
||
|
|
# It just simply logs the event information sent by udved in order to
|
||
|
|
# test script udevd-test.pl can analyze whether udved execute as we expected.
|
||
|
|
# You should not execute this script directly because it will be invoked by
|
||
|
|
# udevd automatically.
|
||
|
|
#
|
||
|
|
# Before you run your test please modify $log_file to designate where the udev
|
||
|
|
# log file should be placed, in fact, the default value is ok.
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# This program is free software; you can redistribute it and/or modify it
|
||
|
|
# under the terms of the GNU General Public License as published by the
|
||
|
|
# Free Software Foundation version 2 of the License.
|
||
|
|
#
|
||
|
|
# This program is distributed in the hope that it will be useful, but
|
||
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
|
|
# General Public License for more details.
|
||
|
|
#
|
||
|
|
# You should have received a copy of the GNU General Public License along
|
||
|
|
# with this program; if not, write to the Free Software Foundation, Inc.,
|
||
|
|
# 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
|
#
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
# modifiable settings
|
||
|
|
my $log_file = "/tmp/udev_log.txt";
|
||
|
|
|
||
|
|
# global variables
|
||
|
|
my $devpath;
|
||
|
|
my $action;
|
||
|
|
my $subsystem;
|
||
|
|
|
||
|
|
# common functions
|
||
|
|
sub getDate {
|
||
|
|
# Get current date/time
|
||
|
|
# If we want GTM time, simply pass GMT as first argument to this function.
|
||
|
|
my $format = @_;
|
||
|
|
my $date;
|
||
|
|
|
||
|
|
if( $format =~ /GMT/i ) {
|
||
|
|
$date = gmtime() . " GMT";
|
||
|
|
} else {
|
||
|
|
$date = localtime();
|
||
|
|
}
|
||
|
|
return $date;
|
||
|
|
}
|
||
|
|
|
||
|
|
# main program
|
||
|
|
if ($ARGV[0]) {
|
||
|
|
# prepare
|
||
|
|
$subsystem = $ARGV[0];
|
||
|
|
$devpath = $ENV{DEVPATH};
|
||
|
|
$action = $ENV{ACTION};
|
||
|
|
|
||
|
|
# Get current system date
|
||
|
|
my $time = getDate();
|
||
|
|
|
||
|
|
# Logging
|
||
|
|
if (open(LOGF, ">>$log_file")) {
|
||
|
|
print LOGF "$devpath,$action,$subsystem,$time\n";
|
||
|
|
} else {
|
||
|
|
print "File open failed. \n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
close(LOGF);
|
||
|
|
|
||
|
|
exit 0;
|
||
|
|
} else {
|
||
|
|
print "Too less argument count.\n";
|
||
|
|
exit 1;
|
||
|
|
}
|