Re: [OpenAFS] Perl Modules for OpenAFS 1.4

2005-12-11 Thread Norbert Gruener
On Wed, Dec 07 2005, Mike Polek wrote:
> In case anyone else uses the Perl modules for OpenAFS
> and needs them working with OpenAFS 1.4 before the
> the AFS-2.2.4 version of the Perl code comes out,
> the following patch appears to fix up some minor
> problems with the upgrade to 1.4.

For those who are interested  ...   :-))

I am working on the upgrade of AFSperl to work under OpenAFS 1.4.  And
I hope I can release the new version before Christmas (2005)  :-)

Cheers,

Norbert
-- 
+---+
| Norbert E. Gruener   http://www.MPA-Garching.MPG.de/~nog/ |
| Max-Planck-Institut  <[EMAIL PROTECTED]>|
| fuer Astrophysik PGP encrypted mail preferred |
| PGPprint(RSA):  66 64 C0 D0 6F 1A 16 02  C2 C6 37 83 3A 5F 88 9B  |
| PGPprint(DH):  8B9A CB28 79DC 4C4F 5A0F  08A8 2771 2A99 A091 FBE8 |
| PGPprint(DSS): 8900 2CB4 F3D3 124F 7ED2  F681 EA2D 11CA BE19 6642 |
+---+
___
OpenAFS-info mailing list
OpenAFS-info@openafs.org
https://lists.openafs.org/mailman/listinfo/openafs-info


Re: [OpenAFS] Perl Modules for OpenAFS 1.4

2005-12-08 Thread Frank Burkhardt
Hi,

On Wed, Dec 07, 2005 at 12:35:40PM -0800, Mike Polek wrote:
> In case anyone else uses the Perl modules for OpenAFS
> and needs them working with OpenAFS 1.4 before the
> the AFS-2.2.4 version of the Perl code comes out,
> the following patch appears to fix up some minor
> problems with the upgrade to 1.4.

Cool :-)

Unfortunately the patch doesn't apply to libafs-perl-2.2.3 .

$ tar -xzf AFS-2.2.3.tar.gz
$ patch -p0 < patch.txt
patching file AFS-2.2.3/src/Makefile.PL
Hunk #1 FAILED at 140.
1 out of 1 hunk FAILED -- saving rejects to file AFS-2.2.3/src/Makefile.PL.rej
patching file AFS-2.2.3/src/AFS.xs
Hunk #1 FAILED at 2012.
Hunk #2 FAILED at 2053.
Hunk #3 FAILED at 3663.
3 out of 3 hunks FAILED -- saving rejects to file AFS-2.2.3/src/AFS.xs.rej

Could you post (or send in private) the modified sources
or a diff that applies to the libafs-perl-sources from CPAN?

Regards,

Frank
___
OpenAFS-info mailing list
OpenAFS-info@openafs.org
https://lists.openafs.org/mailman/listinfo/openafs-info


[OpenAFS] Perl Modules for OpenAFS 1.4

2005-12-07 Thread Mike Polek

In case anyone else uses the Perl modules for OpenAFS
and needs them working with OpenAFS 1.4 before the
the AFS-2.2.4 version of the Perl code comes out,
the following patch appears to fix up some minor
problems with the upgrade to 1.4.

(Many thanks to Norbert G. for maintaining the
 Perl code!)

Take care,
Mike Polek



-- >8 SNIP 8< ---

--- AFS-2.2.3/src/Makefile.PL.orig  2005-02-15 07:19:17.0 -0800
+++ AFS-2.2.3/src/Makefile.PL   2005-12-07 12:14:42.0 -0800
@@ -140,6 +140,7 @@
 elsif ($version =~ /1.1/)   { $d_flag = 'OpenAFS 1.1'; }
 elsif ($version =~ /1.2/)   { $d_flag = 'OpenAFS 1.2'; }
 elsif ($version =~ /1.3/)   { $d_flag = 'OpenAFS 1.3'; }
+elsif ($version =~ /1.4/)   { $d_flag = 'OpenAFS 1.4'; }
 elsif ($version =~ /devel/) { $d_flag = 'OpenAFS devel'; }

 if ($version =~ /openafs/)  { $a_flag = '-DOpenAFS'; }
--- AFS-2.2.3/src/AFS.xs.orig   2005-02-15 07:14:13.0 -0800
+++ AFS-2.2.3/src/AFS.xs2005-12-07 12:14:45.0 -0800
@@ -2012,7 +2012,6 @@
 return 0;
 }

-#ifndef OpenAFS
 afs_uint32 GetUInt32(as, aval)
 register char *as;
 afs_uint32 *aval;
@@ -2054,7 +2053,6 @@
 *aval = total;
 return 0;
 }
-#endif

 /* keep those lines small */
 static char *em(acode)
@@ -3665,17 +3663,18 @@
 {
 struct ViceIoctl vi;
 int32 code;
-struct VolumeStatus status;
+char space[MAXSIZE];
+struct VolumeStatus *status = (struct VolumeStatus *) &space;

 vi.in_size = 0;
 vi.in = 0;
-vi.out_size = sizeof(status);
-vi.out = (char *) &status;
+vi.out_size = MAXSIZE;
+vi.out = (char *) &space;
 code = pioctl(path, VIOCGETVOLSTAT, &vi, follow);
 FSSETCODE(code);
 if (code == 0) {
 EXTEND(sp, 1);
-PUSHs(sv_2mortal(newSViv(status.MaxQuota)));
+PUSHs(sv_2mortal(newSViv(status->MaxQuota)));
 }
 }

-- >8 SNIP 8< ---

--
Michael Polek
Manager of System Operations
Pictage, Inc.
1580 Francisco Street, Ste. 101
Torrance, CA 90501
(310) 525-1600 ext. 628
[EMAIL PROTECTED]
Czar of all the Russias
--
Opinions are my own and do not necessarily reflect those
of the company. Viewer discretion is advised.
Please do not make any inferences about what is in this email
beyond what is stated. If there is any unclarity in this email,
please ask the author of the email for clarification. Any assumptions
about the content of this email or what it means are solely the
responsibility of the reader.
E Pluribus Unum. Annuit Coeptis. Novus Ordo Seclorum.

Confidentiality Notice:

This message, together with any attachments, is intended only for the use of
the individual or entity to which it is addressed. It may contain
information that is confidential and prohibited from disclosure. If you are
not the intended recipient, you are hereby notified that any dissemination
or copying of this message or any attachment is strictly prohibited. If you
have received this item in error, please notify the original sender and
destroy this item, along with any attachments.
___
OpenAFS-info mailing list
OpenAFS-info@openafs.org
https://lists.openafs.org/mailman/listinfo/openafs-info