From: opensides <opensides@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 6 Jan 2010 14:29:55 +0000 (+0000)
Subject: - Updated to use perl -w
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=240bf845c36eead8345bff89a2433818f02c0121;p=gosa.git

- Updated to use perl -w
- Fixed missing libraries (Closes: #816)



git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@15088 594d385d-05f5-0310-b6e9-bd551577e9d8
---

diff --git a/gosa-plugins/squid/README.squid b/gosa-plugins/squid/README.squid
index 023f4281f..7637e8209 100644
--- a/gosa-plugins/squid/README.squid
+++ b/gosa-plugins/squid/README.squid
@@ -1,9 +1,16 @@
-goQuota.pl - run this script via cron (each 5-10 min for examle). It makes
+goQuota.pl - run this script via cron (each 5-10 min for example). It makes
              cache file (quota.db) with traffic usage and user info from LDAP
 
 goQuotaView.pl - read collected data from quota.db and print it to
                  stdout in human readable format
 
+Libraries needed
+
+The goQuotaView.pl needs 
+
+libtimedate-perl
+
+
 goSquid.pl - connect this script to squid
              redirect_program /usr/local/sbin/goSquid
 
@@ -15,3 +22,4 @@ mkHash.pl  - create hash file for black list
 At this time all scripts have no config file. Please, edit source to configure.
 
 Igor Muratov <migor@altlinux.org>
+
diff --git a/gosa-plugins/squid/contrib/goQuota.pl b/gosa-plugins/squid/contrib/goQuota.pl
index cceeffa90..2e8ac9a7f 100644
--- a/gosa-plugins/squid/contrib/goQuota.pl
+++ b/gosa-plugins/squid/contrib/goQuota.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 #
 # Parse squid log and write current traffic usage by users into cache
 #
diff --git a/gosa-plugins/squid/contrib/goQuotaView.pl b/gosa-plugins/squid/contrib/goQuotaView.pl
index 7dd14972d..4024a3d4c 100644
--- a/gosa-plugins/squid/contrib/goQuotaView.pl
+++ b/gosa-plugins/squid/contrib/goQuotaView.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 #
 # Show user info from cache
 #
@@ -9,6 +9,7 @@
 
 use strict;
 use DB_File;
+use Date::Format;
 
 my $CACHE_FILE = '/var/spool/squid/quota.db';
 my $FORMAT = "A16 A5 S S L A5 L L L";
diff --git a/gosa-plugins/squid/contrib/goSquid.pl b/gosa-plugins/squid/contrib/goSquid.pl
index b91db163b..0be6f8d22 100644
--- a/gosa-plugins/squid/contrib/goSquid.pl
+++ b/gosa-plugins/squid/contrib/goSquid.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 #
 # Squid redirect programm for GOsa project
 #