wurde script remote gestartet (Allgemeines zu Perl)

[thread]14554[/thread]

wurde script remote gestartet

Leser: 22

Articles: hide open all | hide show old branches

+14 replies
schuetze09

2010-01-28 11:27

User since
2006-07-24
15 Artikel
BenutzerIn

hallo zusammen,

leider finde ich keinen anhaltspunkt zu meinem problem.

wie kann ich im aufgerufenen script prüfen, ob es selber remote aufgerufen wurde? aufgerufen wird es i.d.r. über den "su"-Befehl.

mfg
andré
- +8 replies
- Taulmarill
  
  2010-01-28 11:31
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Was bedeutet in diesem Zusammenhang genau "remote"?
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +7 replies
  - schuetze09
    
    2010-01-28 11:35
    User since
    2006-07-24
    15 Artikel
    BenutzerIn
    
    also, mein script läuft auf einem unix-host unter einer benutzer-id "XXX"
    wenn mein script unter der benutzer-id "XXX" aufgerufen wird ist es ok.
    wenn mein script mittels einer benutzer-id "AAA" mit einem "su" aufgerufen wird, will ich das erkennen und reagieren können.
    der aufrug des benutzers AAA erfolgt in der regel so:
    
    Code: (dl )
    
    su - XXX -c 'mein_script.pl'
    - +6 replies
    - renee
      
      2010-01-28 11:40
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      #!/usr/bin/perl use strict; use warnings; my $owner = (stat $0)[4]; my $run_by = $<; if( $run_by != $owner ) { print "Hey, das Skript laeuft nicht unter dem Besitzer-Account\n"; }
      
      Edit: Zu $< siehe perlvar Doku
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +4 replies
      - Taulmarill
        
        2010-01-28 12:03
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Soweit ich das testen konnte, speichert $< die User-ID des laufenden Prozesses. Die wird ja mit su geändert, dafür ist es da.
        
        Was man machen könnte, wäre die Ausgabe von 'who am i' auszuwerten. Das sollte auch nach einem su den ursprünglich eingeloggten User anzeigen.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        betterworld
        
        2010-01-28 12:22
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2010-01-28T11:03:54 Taulmarill
        Soweit ich das testen konnte, speichert $< die User-ID des laufenden Prozesses. Die wird ja mit su geändert, dafür ist es da.
        
        Ich wollte jetzt gerade schreiben, dass renee ja gerade deswegen mit der ID der Datei vergleicht. Aber wo ich drueber nachdenke, hast Du recht, denn die IDs sind vermutlich immer gleich, wenn der fremde Benutzer immer "su" auf schuetze09 macht und dem auch die Datei gehoert.
        
        Wir brauchen eine genauere Beschreibung des Szenarios. Auch verwirrt mich das Wort "remote", denn es bedeutet "aus der Ferne", das bedeutet fuer mich, dass das Script ueber ssh oder ueber einen Webserver ausgefuehrt wird.
        
        Um herauszufinden, ob das Programm ueber "su" ausgefuehrt wird, kann man auch einfach die Prozessinformationen benutzen. Das ist alles sehr fummelig, fehleranfaellig und systemabhaengig, aber auf meinem System wuerde so etwas zum Beispiel als "ugly hack" taugen:
        
        Code: (dl )
        
        ps --no-header -o comm $(ps --no-header -o ppid $$)
        
        OK, das muss dann natuerlich noch variiert werden, wenn es wiederum aus Perl heraus ausgefuehrt wird. Ich wuerde auch von der Verwendung von Shellbefehlen abraten, das war jetzt nur so POC.
        
        (Update: Fuer sicherheitsrelevante Sachen soll das hoffentlich nicht benutzt werden...)
        Last edited: 2010-01-28 12:28:17 +0100 (CET)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        +2 replies
        
        renee
        
        2010-01-28 12:45
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2010-01-28T11:22:35 betterworld
        Ich wollte jetzt gerade schreiben, dass renee ja gerade deswegen mit der ID der Datei vergleicht. Aber wo ich drueber nachdenke, hast Du recht, denn die IDs sind vermutlich immer gleich, wenn der fremde Benutzer immer "su" auf schuetze09 macht und dem auch die Datei gehoert.
        
        stimmt, daran habe ich nicht gedacht...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        schuetze09
        
        2010-01-28 13:12
        
        User since
        2006-07-24
        15 Artikel
        BenutzerIn
        
        so ist es leider
      - schuetze09
        
        2010-01-28 12:09
        
        User since
        2006-07-24
        15 Artikel
        BenutzerIn
        
        ich habe noch einmal in einem der "fremdscripte" des benutzers "AAA" nachgesehen...
        
        dort wird mein script so aufgerufen:
        
        Code: (dl )
        
        1 2
        
        my $cmd = qq( ssh -n $user " . ./.profile nohup /home/XXX/test.pl"); system($cmd) == 0 || die "$!";
        
        und von einem anderen mittels dem su (was immer root macht, über ein maestro-schedule)
- +5 replies
- topeg
  
  2010-01-28 15:08
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So kannst du herausfinden wer der übergeordnete Prozess ist.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; use Proc::ProcessTable; my $proc = Proc::ProcessTable->new(); my ($own)=grep{$$==$_->{pid}}@{$proc->table()}; my ($upper)=grep{$own->{ppid}==$_->{pid}}@{$proc->table()}; if($upper->{fname} eq 'su') { print "running throu 'su' \n"; } else { print "running normal\n"; }
  
  Was ich gerne wissen würde wofür brauchst du das? Es ist doch nur wichtig zu wissen wie die BenutzerID lautet. Die bestimmt die Rechte die ein Prozess hat.
  Last edited: 2010-01-28 15:23:21 +0100 (CET)
  - +2 replies
  - schuetze09
    
    2010-01-28 15:19
    
    User since
    2006-07-24
    15 Artikel
    BenutzerIn
    
    besten Dank, werde ich ausprobieren, nachdem ich ProcessTable auf den Host installiert hab :-)
    
    Hintergrund der ganzen Sache ist, es gibt 2 Methoden die mein Tool aufrufen, da diese statisch sind und keine Kommandozeilenagrs. übergeben, gibt es für die ausführung unter einer bestimmten benutzter-id default-werte.
    wenn sich jedoch ein anderer benutzter z.b. über ssh auf den host unter dieser bunutzer-id connectet, soll er, da er es manuell macht, keine defaults haben, sondern gezwungen sein, argumente zu übergeben.
    - topeg
      
      2010-01-28 15:31
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Überprüfe doch ob die nötigen Umgebungsvariablen vorhanden sind. Wenn nicht, dann frage nach.
      Das ist weit aus besser als nur zu prüfen ob es über 'su' läuft.
      Mein Beispiel z.B erkennt nur ob der übergeordnete Prozess 'su' ist, es kann aber sein das 'su' weiter "oben" auftaucht. z.B beim Aufruf:
      
      Code: (dl )
      
      su -c 'sh -e "perl script-pl"'
      
      Das wird von meinem Beispiel nicht erkannt.
      Es kann auch sein das ein übergeordneter Prozess bestimmte Umgebungsvariablen löscht, das wird auch nicht abgefangen.
      Das beste wäre wirklich alle nötigen Umgebungsvariablen auf Korrektheit zu prüfen.
  - +2 replies
  - renee
    
    2010-01-28 15:21
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    2010-01-28T14:08:06 topeg
    
    Code (perl): (dl )
    
    my $proc = new Proc::ProcessTable();
    
    Bitte die Schreibweise Proc::ProcessTable->new() benutzen. Die indirekte Notation hat ein paar Probleme... Dazu gibt's einen Artikel in $foo Nr. 10. Wenn ich dran denke, werde ich später mal Auszüge daraus hier posten...
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - topeg
      
      2010-01-28 15:24
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      stimmt, stimmt.
      Hatte ich eben schnell raus kopiert ohne drauf zu achten.

View all threads created 2010-01-28 11:27.