ARGV Userberechtigung (Allgemeines zu Perl)

[thread]20523[/thread]

ARGV Userberechtigung

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+11 replies
bluelight

2018-10-31 12:20

User since
2018-10-31
3 Artikel
BenutzerIn

Hallo,

Bin der neue, komm jetzt öfters ;-)

Habe folgendes Problem:

System: Windows Server 2008 R2 64bit

User1 = normaler DomainUser mit lokalen Adminrechten
User2 = DomainAdmin

Das Problem:

Start Skript1 als User1

Im Skript1 werden die startbedingungen für skript2 erzeugt.
Bsp: system("$WORKDIR$PROGRAM_FILE $last_nr")

Im Skript2($PROGRAM_FILE) wird im Verzeichnis($WORKDIR) gestartet aber das ARGV im Skript2 ist empty
Bsp:
my $vonNr = shift @ARGV;
my $bisNr = shift @ARGV;

Start Skript1 als User2

Das ARGV wird übernommen.

Beide Skripte liegen im gleichen lokalen Ordner.

Da ich das User2-Konto nicht verwenden möchte, ist nun die Frage wo der Fehler liget. Auch wenn ich die Skripte lokal auf einem anderen Rechner laufen lasse, funktioniert es.
Last edited: 2018-10-31 13:01:08 +0100 (CET)
- hlubenow
  
  2018-10-31 13:14
  
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  
  2018-10-31T11:20:31 bluelight
  Bin der neue, komm jetzt öfters ;-)
  
  Das ist schonmal gut.
  
  2018-10-31T11:20:31 bluelight
  Bsp: system("$WORKDIR$PROGRAM_FILE $last_nr")
  
  Ohne einen Trenner zwischen $WORKDIR und $PROGRAM_FILE würde die Zeile wohl nicht laufen. Immer gut, sich die Zeile erstmal ausgeben zu lassen, die man an system() übergeben will.
  
  2018-10-31T11:20:31 bluelight
  Auch wenn ich die Skripte lokal auf einem anderen Rechner laufen lasse, funktioniert es.
  
  Das deutet darauf hin, daß es sich nicht um eine "allgemeine Frage zu Perl" handelt.
- haj
  
  2018-10-31 15:40
  User since
  2015-01-07
  561 Artikel
  BenutzerIn
  Mal ins Blaue geschossen: Perl-Programme startet man ganz katholisch mit perl "$WORKDIR$PROGRAM_FILE" args .... An system übergeben kann man das auf Windows nur dann, wenn beispielsweise eine Verknüpfung z.B. von "*.pl" auf perl.exe besteht oder wenn das Skript eigentlich eine .bat-Datei ist, die dann irgendwie Perl startet.
  
  Sowohl der PATH, auf dem Programme gesucht werden, als auch die Verknüpfung des Dateityps mit einem Programm sind benutzerspezifisch. Kann's sein, dass hier bei User1 was falsch liegt?
  
  In dem Fall wäre es einen Versuch wert, alle Shells und sonstigen Zwischenhändler mit einem geänderten Aufruf auszuschalten:
  
  Code (perl): (dl )
  
  system("a:/bs/path/to/perl.exe", "$WORKDIR$PROGRAM_FILE", $last_nr);
- +4 replies
- rosti
  
  2018-10-31 16:41
  
  User since
  2011-03-19
  3513 Artikel
  BenutzerIn
  
  Ok, Regel #1:
  
  Systemcall nur, wenn es gar nicht anders geht. Also: Was macht das bei Dir was nicht mit Perl zu machen wäre?
  
  .
  - +3 replies
  - bluelight
    
    2018-11-02 10:25
    
    User since
    2018-10-31
    3 Artikel
    BenutzerIn
    
    @rosti -> es werden unterschiedliche Perl-Skripte aufgerufen.
    - bianca
      
      2018-11-02 11:59
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2018-11-02T09:25:26 bluelight
      @rosti -> es werden unterschiedliche Perl-Skripte aufgerufen.
      
      Dafür verwende ich äußerst komfortabel Win32::Process::Open. Hat auch den Vorteil, dass das aufrufende Script nach dem Aufruf beendet wird. Insbesondere bei Webanwendungen ist das unerlässlich - das nur als Nebeninfo.
      10 print "Hallo"
      20 goto 10
    - rosti
      
      2018-11-02 12:24
      
      User since
      2011-03-19
      3513 Artikel
      BenutzerIn
      
      2018-11-02T09:25:26 bluelight
      @rosti -> es werden unterschiedliche Perl-Skripte aufgerufen.
      
      Falsche Herangehensweise. Zweckmäßiger hierfür ist das was Perl selber bietet, nämlich use, require: Zum Einbinden und Ausführen von Code weiterer Dateien.
      
      Und dann wäre noch OOP für die Organisation solcher Dinge...
      
      .
- GwenDragon
  
  2018-11-02 12:38
  
  User since
  2005-01-17
  14790 Artikel
  Admin1
  
  $WORKDIR$PROGRAM_FILE funktioniert nur, wenn es ein absoluter Pfad ist und $PROGRAM_FILE für den Nutzer, der es startet, eine verknüpfte und als ausführbar erlaubte Dateiendung besitzt.
  Zudem kann die Windows-Umgebung auch Restriktionen für bestimmte Gruppen/Nutzer haben bezüglich Umgebungsvariablen und Kommandoprozessor.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2018-11-02 12:45
  User since
  2005-01-17
  14790 Artikel
  Admin1
  Zwei Testprogramme für einen User:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!perl use strict; use warnings; use 5.010; my $vonNr = shift @ARGV; my $bisNr = shift @ARGV; say "Bin in $0"; say "von: '$vonNr' bis: '$bisNr'"; system('C:\strawberry\perl\bin\perl.exe', 't:\ZETT\b.pl', $vonNr, $bisNr);
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!perl use strict; use warnings; use 5.010; say "\n\nBin in $0"; say "\@ARGV: '@ARGV'"
  
  ergeben in der Eingabeaufforderung:
  T:\>perl a.pl "Da ist" "ein test" Bin in a.pl von: 'Da ist' bis: 'ein test' Bin in t:\ZETT\b.pl @ARGV: 'Da ist ein test'
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - bluelight
    
    2018-11-06 15:31
    
    User since
    2018-10-31
    3 Artikel
    BenutzerIn
    
    Hallo zusammen
    
    weitere infos
    
    -PATH ist identisch bei beiden Usern
    -der systemcall ist auf grund dessen das ich eine kettenreagtion möchte so schon richtig.
    -der $WORKDIR Pfad ist ein absoluter Pfad und wird als solcher behandelt.
    - GwenDragon
      
      2018-11-06 16:52
      
      User since
      2005-01-17
      14790 Artikel
      Admin1
      
      Nö, wenn der system-Aufruf richtig wäre, dann hätte ja dein zweites Skript kein leeres @ARGV!
      Oder du hast in deinem Programm @ARGV mittels local aus dem Scope genommen.
      Was weiß ich.
      
      Verwendest du jetzt ein system() mit mehrern Paramnetern?
      Hast du denn mal die Rückgabewerte des system() geprüft, um raus zu bekommen was da fehlschlägt?
      https://perldoc.perl.org/functions/system.html
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      my $ret = system(..., ..., ..., ...); if ($ret != 0) { if ($? == -1) { print "failed to execute: $!\n"; } elsif ($? & 127) { printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without'; } else { printf "child exited with value %d\n", $? >> 8; } }
      
      Last edited: 2018-11-06 17:10:12 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2018-10-31 12:20.