#!/usr/perl5/bin/perl
#

#
# Copyright (c) 2009, 2011, Oracle and/or its affiliates. All rights reserved.
# 
# a simple shell script for SMB printing that can either use SAMBA's smbspool(1)
# or a native smb print client should it materialize in the future.
#
(-f '/etc/samba/smb.conf') && exec('/usr/bin/smbspool', @ARGV);
exit(1);